Falls es jemand interessiert. Ich konnte den Fehler beheben (lag an der .MdB). Ich hatte keinen Spalte mit AutoWert und entsprechenden Schlüssel (zumindest habe ich das so nachgelesen Link).
Ich nehme aber gerne noch Verbesserungsvorschläge und Korrekturen entgegen.
Aufruf
Spoiler anzeigen
Add Funktion
Delete
Save
Spoiler anzeigen
Ich nehme aber gerne noch Verbesserungsvorschläge und Korrekturen entgegen.
Aufruf
Visual Basic-Quellcode
- Option Explicit
- Dim cn As New ADODB.Connection
- Dim rs As New ADODB.Recordset
- Sub conMDB()
- Dim str, csql As String
- Dim c As Control
- Set cn = CreateObject("ADODB.Connection")
- Set c = Me.lb_data
- str = "C:\Desktop\Quellen\DOCs.mdb"
- With cn
- .CursorLocation = adUseClient
- .Mode = adModeShareDenyNone
- .Provider = "Microsoft.ACE.OLEDB.12.0"
- .ConnectionString = "Data Source=" & str
- .Open
- End With
- csql = "SELECT * FROM Office_Address_List"
- Set rs = CreateObject("ADODB.Recordset")
- rs.Open csql, cn, adOpenKeyset, adLockBatchOptimistic
- i = rs.Fields.Count
- While Not rs.EOF
- With c
- .ColumnCount = i
- .ColumnHeads = True
- .AddItem
- .List(.ListCount - 1, 0) = rs.Fields("Nr")
- .List(.ListCount - 1, 1) = rs.Fields("Praxis")
- .List(.ListCount - 1, 2) = rs.Fields("Nachname")
- .List(.ListCount - 1, 3) = rs.Fields("Anschrift")
- .List(.ListCount - 1, 4) = rs.Fields("Postleitzahl")
- .List(.ListCount - 1, 5) = rs.Fields("Ort")
- End With
- rs.MoveNext
- Wend
- rs.Close
- Set rs = Nothing
- With rs
- .ActiveConnection = cn
- .CursorLocation = adUseClient
- .CursorType = adOpenKeyset
- .LockType = adLockBatchOptimistic
- .Open csql, cn, adOpenKeyset, adLockBatchOptimistic
- .MoveFirst
- End With
- End Sub
Add Funktion
Delete
Save
Visual Basic-Quellcode
- Private Sub btn_save_Click()
- Dim x As Long
- x = Me.lb_data.ListIndex
- With rs
- .GetRows (x)
- !Praxis = Me.tb_1.Text
- !Nachname = Me.tb_2.Text
- !Anschrift = Me.tb_3.Text
- !Postleitzahl = Me.tb_4.Text
- !Ort = Me.tb_5.Text
- .UpdateBatch adAffectCurrent
- .Close
- End With
- Set rs = Nothing
- Me.lb_data.Clear
- Call conMDB
- End Sub