Inhalt eines Datenbankfeldes in einer ComboBox darstellen (DAO) VB-Version:  VB5, VB6
	Views:  7.760

Wie kann man Daten eines Datenbankfeldes in einer ComboBox zur Auswahl darstellen? Das geht so:

Dim DB As Database
Dim Rs As Recordset
 
Set DB = DBEngine.OpenDatabase("DeineMDB.mdb")
Set Rs = Db.OpenRecordset("DeineTabelle")
 
Combo1.Clear
If Rs.RecordCount > 0 Then
  While Not Rs.Eof
    Combo1.AddItem Rs.Fields("Feld_xy").Value
    Rs.MoveNext
  Wend
End If
 
Rs.Close
Db.Close