Hallo!
Habe jetzt versucht Daten in eine Listbox zu importieren:
(DAO 3.6 ist installiert)
Option Explicit
Private Sub cmdLaden_Click()
Dim DB As Database
Dim Rst As Recordset
Set DB = OpenDatabase("d:\eigene dateien\visual basic\testdatenbank.mdb", , 0, 1)
Set Rst = DB.OpenRecordset("artstamm")
Rst.MoveFirst
Do Until Rst.EOF
lstArtikel.AddItem Rst!artnr
Rst.MoveNext
Loop
lstArtikel.Selected(0) = True
End Sub
Allerdings bekomme ich beim Kommando:
Set Rst = DB.OpenRecordset("artstamm")
den Fehler: Laufzeitfehler 13 - Typen unverträglich
Meine Tabelle "artstamm" hat 2 Felder:
artnr, bez1 beides String-Typ
Vielleicht könnt Ihr mir ja einen Tip geben.
Danke!
Habe jetzt versucht Daten in eine Listbox zu importieren:
(DAO 3.6 ist installiert)
Option Explicit
Private Sub cmdLaden_Click()
Dim DB As Database
Dim Rst As Recordset
Set DB = OpenDatabase("d:\eigene dateien\visual basic\testdatenbank.mdb", , 0, 1)
Set Rst = DB.OpenRecordset("artstamm")
Rst.MoveFirst
Do Until Rst.EOF
lstArtikel.AddItem Rst!artnr
Rst.MoveNext
Loop
lstArtikel.Selected(0) = True
End Sub
Allerdings bekomme ich beim Kommando:
Set Rst = DB.OpenRecordset("artstamm")
den Fehler: Laufzeitfehler 13 - Typen unverträglich
Meine Tabelle "artstamm" hat 2 Felder:
artnr, bez1 beides String-Typ
Vielleicht könnt Ihr mir ja einen Tip geben.
Danke!