hi leude ,

ich suche unbedingt einen funktionierenden Code
also wenn das Formular lädt sollte er aus der Datenbank , eine bestimmte Tabelle laden , und danach sollte er bestimmte Werte aus der Tabelle in einer Listbox laden .
geht das ? , wenn bitte "help me"

mfg.: hhunderter

Jo, das geht

und wie , wenn ich fragen darf?

Nee, das geht nicht

1. Datenbank connection öffnen
2. Statement an DB schicken
3. Result an Recordset binden
4. Recordset durchlaufen und Items der Listbox hinzufügen

Und das ganze in Form_Load
Das sollten genügend Stichwörter sein, mit denen du mal eine Suchengine füttern kannst (z.B. die hier im Forum).

versuchs mal mit try and error


such mal ado oder dao im forum

gruss bb

ich hatte ja angefangen aber ich weis nicht was noch brauch so das es ****e

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim Db As Database ' Definiert datenbank Dim Rs As Recordset 'Recordset Dim ta1 As Field   Private Sub Form_Load() a = UN(1) Set Db = DBEngine.OpenDatabase("me.mdb") Set Rs = Db.OpenRecordset(a) Set ta1 = Rs.Fields(m1)   ha(1) = ta1    List1.Clear  For i = 1 To 13    If ha(i) <> "" Then       List1.AddItem ha(i)    End If  Next i   End Sub

ich bin mir ganz sicher das diese zeile falsch ist :
Set ta1 = Rs.Fields(m1)

was komt stadessen hin?

Wenn du weisst wie dein Tabellenfeld und deine heisst würde ich es so machen

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Db As Database ' Definiert datenbank Dim Rs As Recordset 'Recordset Dim ta1 As Field   Private Sub Form_Load()   Set Db = DBEngine.OpenDatabase("me.mdb") Set Rs = Db.OpenRecordset("Select Beschreibung From Tabelle1") ' direkter zugriff auf das entspr. feld der Tabelle    List1.Clear  While not rs.eof       List1.AddItem rs!Beschreibung ' feld aus dem select statement  wend End Sub

gruss bb

ich weis nicht was los ist aber irgenwie geht das net so wie ich es haben will

sobalt ich das pro starte hängt sich das ganze vb auf
warum?

ich habe was ausprobiert es mus an diesen code ligen :

Code :

1 2 3

While not rs.eof       List1.AddItem rs!m1  wend

, denn wenn ich dafor ein ' gemacht habe ging alles ?!
warum hängt es wenn es aktive ist?

hatt keiner eine antwort auf mein Problem?

Sry das ist mein Thema wieder hoch hole , aber ich will gerne mal ne Antwort.

wisst ihr es nicht oder wollt ihr es mir nicht sagen ?