daten ,... aber wie?

[hhunderter]

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

 

[DirkM]

Jo, das geht

 

[hhunderter]

und wie , wenn ich fragen darf?

 

[Julian Maicher]

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).

 

[Alex F.]

versuchs mal mit try and error


such mal ado oder dao im forum

gruss bb

 

[hhunderter]

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

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?

 

[Alex F.]

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

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

 

[hhunderter]

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?

 

[hhunderter]

ich habe was ausprobiert es mus an diesen code ligen :

 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?

 

[hhunderter]

hatt keiner eine antwort auf mein Problem?