Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come riempire un VB casella combinata con i dati di tabella di database

In Visual Basic, le caselle combinate vengono spesso utilizzati nei programmi di inserimento dati e quando la trasmissione di informazioni tramite moduli online . Per esempio, potrebbe essere necessario selezionare da un elenco di stati o codici di avviamento postale e fare clic su un elenco a discesa si presenta con varie selezioni . Una casella combinata è popolata con gli elementi definiti dall'utente che vengono tipicamente aggiunti dal programmatore in fase di progettazione , ma si può anche riempire una casella combinata con elementi da una tabella di database utilizzando poche righe di codice . Cose che ti serviranno
Visual Basic installato base di dati del file
Mostra più istruzioni
1

lancio di Visual Basic , fare clic sul pulsante "Start" e selezionare "Programmi , " " Microsoft Visual Studio "e poi " Microsoft Visual Basic [numero versione ] . "
2

Seleziona " EXE standard "sotto la finestra di dialogo " Nuovo progetto " . Fare clic su "Apri" per aprire un nuovo modulo .
3

Clicca sul comando " ComboBox " dalla casella degli strumenti sulla sinistra e trascinarlo sul modulo centrale. Impostare le proprietà sotto la finestra Proprietà sulla destra.
4

Aggiungi un controllo " ADO " in forma . Impostare la proprietà " Visible " su "False ".
5

Fare clic sul pulsante " Visualizza codice " nella parte superiore della finestra Esplora progetti ad aggiungere codice . Nell'esempio seguente, il 50 stati americani saranno aggiunti nella casella combinata da una tabella di database . Quando il modulo viene caricato in fase di esecuzione , la casella combinata viene riempito automaticamente . Vai all'evento « Form_Load " e inserire il codice simile al seguente :

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

rs.RecordCount > 0 ThenDo Mentre Non rs.EOFWith Combo1.AddItem rs.Fields ( " USStateName ") End With.MoveNextLoopEnd Se
6

Premere il tasto " F5 " sulla tastiera per eseguire il programma.
7

Salvare il progetto di Visual Basic facendo clic su " File " e poi " Salva progetto con nome "dal menu .

 

Programmazione © www.354353.com