Hvordan å fylle opp en VB Combo Box med data fra Database Table

I Visual Basic, er kombinasjonsbokser ofte brukt i dataregistrering programmer og når du sender inn informasjon via elektroniske skjemaer. For eksempel kan du må velge fra en liste over stater eller postnummer og klikke på en rullegardinliste presenterer deg med ulike valg. En kombinasjonsboks er befolket med brukerdefinerte elementer som vanligvis er lagt til av programmerer på design tid, men du kan også fylle opp en kombinasjonsboks med elementer fra en database tabell ved hjelp av bare noen få linjer med kode.

Bruksanvisning

1 Start Visual Basic ved å klikke på "Start" -knappen og velge "Programmer", "Microsoft Visual Studio" og deretter "Microsoft Visual Basic [versjonsnummer]."

2 Velg "Standard EXE" under "Nytt prosjekt" dialogboksen. Klikk "Open" for å åpne en ny form.

3 Klikk på "ComboBox" kontroll fra verktøykassen til venstre og dra det til sentrum form. Angi egenskapene under Properties vinduet til høyre.

4 Legg en "ADO" kontroll i skjemaet. Set sin "Synlig" egenskapen til "False".

5 Klikk på "Vis kode" knappen på toppen av Project Explorer-vinduet for å begynne å legge kode. I eksempelet nedenfor, vil de 50 amerikanske statene bli lagt inn i kombinasjonsboksen fra en database tabell. Når skjemaet belastninger under kjøring, er kombinasjonsboksen fylt opp automatisk. Gå til "Form_Load" hendelse og oppgi koden ligner på følgende:

Dim conn som ny ADODB.Connection
Dim retten New ADODB.Recordset
Sett conn = DBEngine.OpenDatabase (App.Path & "\ dbDatabase.mdb")
Set rs = conn.OpenRecordset ( "tblStates")

Hvis rs.RecordCount> 0 Then
Gjør Mens Ikke rs.EOF
med Combo1
.AddItem Rs.Fields ( "USStateName")
End With
.MoveNext
Loop
Slutt om

6 Trykk på "F5" tasten på tastaturet for å kjøre programmet.

7 Lagre Visual Basic-prosjektet ved å klikke på "File" og deretter "Lagre prosjekt som" fra menyen.