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!

Ich poste dir einfach mal eine Anbindung die funktioniert:

(Allgemein) - (Deklaration)

Option Explicit
Dim dbDatenbank As DAO.Database
Dim rstArtstamm As DAO.Recordset

(Form) - (Load)

Dim mdbVerzeichnis As String, Tabelle As String

' In der Variablen mdbVerzeichnis muß der Pfad zur Microsoft Database angegeben werden
' In der Variablen Tabelle muß der Name der Tabelle eingegeben werden.
' Bitte die Tabelle "tblAdressen" nennen sonst geht die Filter-Funktion nicht
MsgBox "Erst den Quelltext im Form_Load Ereignis lesen"
mdbVerzeichnis = "d:\eigene dateien\visual basic\testdatenbank.mdb"
Tabelle = "artstamm"
Set dbDatenbank = DBEngine.Workspaces(0).OpenDatabase(mdbVerzeichnis)
Set rstArtstamm = dbDatenbank.OpenRecordset(Tabelle, dbOpenDynaset)


Gruß Horst (der, der sein Passwort immer vergißt)

Diese Fehlermeldung kommt häufig wenn ein Feld der DB leer ist.

Versuche mal:
dim i as integer

for i = 1 to Rst.recordcount

lstArtikel.AddItem Rst!artnr
Rst.MoveNext

next

oder so ähnlich


Gruß Horst (Du weißt ja der mit dem PW)