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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.