Ako naplniť VB zoznamom s dátami z databázy tabuľky

V aplikácii Visual Basic , combo boxy sú často používané v programoch vstupných dát a pri podávaní informácií prostredníctvom on - line formulára . Napríklad , možno budete musieť vybrať zo zoznamu štátov alebo poštových smerovacích čísel a kliknutím na rozbaľovací zoznam vám ponúkne rôzne výbery . Combo box je naplnený používateľom definovaných položiek , ktoré sú zvyčajne pridané programátorom v čase návrhu , ale môžete tiež naplniť pole so zoznamom s predmetmi z databázovej tabuľky pomocou len pár riadkov kódu . Veci , ktoré budete potrebovať
Visual Basic nainštalovaná klipart súboru databázy
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite Visual Basic kliknutím na tlačidlo " Štart " a voľbou " programy , " " Microsoft Visual Studio " a potom " Microsoft Visual Basic [ číslo verzie ] . "
2

zvoľte " Štandardné EXE " v dialógovom okne " Nový projekt " . Kliknutím na tlačidlo " Otvoriť " otvorte nový formulár .
3

Kliknite na " ComboBox " ovládanie z panela na ľavej strane a pretiahnite ju do stredu formy . Nastavte jeho vlastnosti v okne Properties na pravej strane .
4

Pridať " ADO " riadenie do formulára . Nastavte svoj ​​" Visible " vlastnosť " False " .
5

kliknite na tlačidlo " Zobraziť kód " v hornej časti okna Prehliadač projektu začať pridaním kódu . V nižšie uvedenom príklade , budú 50 amerických štátov byť pridané do poľa so zoznamom z databázovej tabuľky . Pri načítaní formulára pri behu , pole sa naplní automaticky . Prejdite na " Form_Load " udalosť a zadajte kód podobný nasledovné :

Dim conn ako New ADODB.ConnectionDim rs As New ADODB.RecordsetSet conn = DBEngine.OpenDatabase ( App.Path & " \\ dbDatabase . mdb " ) Set rs = conn.OpenRecordset ( " tblStates " )

Ak rs.RecordCount > 0 ThenDo keď nie rs.EOFWith Combo1.AddItem rs.Fields ( " USStateName " ) End With.MoveNextLoopEnd ak
6

Stlačením tlačidla " F5 " na vašej klávesnici spustiť program .
7

Uložte projekt jazyka kliknutím na tlačidlo " Súbor " a potom na " Save projekt ako " z menu .

• Predchádzajúca strana: Ako spustiť Telnet z jazyka 
• Ďalšia strana: Ako vytvoriť inštalačný program pre vaše VB6 program