Hab folgenden Code aus der Recherche...
11.03.2005 16:44:59
Peter
Servus,
Hab versucht mir per Selbsthilfe zu helfen und den Code zu verstehen, leider stopt er bereits bei Set ADOC mit dem Fehler Benutzerdefinierter Typ nicht definiert.
Hoffe mir kann jemand helfen, mit einer kurzen Erklärung zum Code wäre mir ebenfalls geholfen, danke.
Private Sub CommandButton7_Click()
Dim ADOC As ADODB.Connection
Dim DBS As ADODB.Recordset
Dim s As String
Dim Pfad As String
Dim i As Integer
ChDir ThisWorkbook.Path
Set ADOC = New ADODB.Connection
With ADOC
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "Kunden.mdb"
End With
Set DBS = New ADODB.Recordset
With DBS
.Open Source:="Kunden", _
ActiveConnection:=ADOC, _
CursorType:=adOpenKeyset, _
LockType:=adLockOptimistic
i = 2
Sheets("DB2").Activate
If Not .EOF Then
Do While Not .EOF
Cells(i, 1).Value = DBS!Kundennummer
Cells(i, 2).Value = DBS!Firma
Cells(i, 3).Value = DBS!Straße
Cells(i, 4).Value = DBS!Hausnummer
Cells(i, 5).Value = DBS!PLZ
Cells(i, 6).Value = DBS!Ort
Cells(i, 7).Value = DBS!Telefon_geschäftlich
Cells(i, 8).Value = DBS!Fax_geschäftlich
Cells(i, 9).Value = DBS!E_Mail_geschäftlich
Cells(i, 10).Value = DBS!Vorname
Cells(i, 11).Value = DBS!Name
Cells(i, 12).Value = DBS!Straße_privat
Cells(i, 13).Value = DBS!Hausnummer_privat
Cells(i, 14).Value = DBS!PLZ_privat
Cells(i, 15).Value = DBS!Ort_privat
Cells(i, 16).Value = DBS!Telefon
Cells(i, 17).Value = DBS!Fax
Cells(i, 18).Value = DBS!E_Mail
Cells(i, 19).Value = DBS!Übernachtungen
Cells(i, 20).Value = DBS!Umsatz_Hotel
Cells(i, 21).Value = DBS!letztes_Zimmer
Cells(i, 22).Value = DBS!Umsatz_Gaststätte
Cells(i, 23).Value = DBS!Gegesen
Cells(i, 24).Value = DBS!Getrunken
Cells(i, 25).Value = DBS!Sonstiges
i = i + 1
.MoveNext
Loop
Else
MsgBox "Datensatz nicht gefunden"
End If
.Close
End With
ADOC.Close
Set DBS = Nothing
Set ADOC = Nothing
End Sub
MfG
Peter