Ciao a tutti...avrei un quesito da porvi ?!
è possibile che una combobox si popoli grazie ad una query ? ?
Vorrei evitare il ciclo for per riempire una combobox!!
Ciao a tutti...avrei un quesito da porvi ?!
è possibile che una combobox si popoli grazie ad una query ? ?
Vorrei evitare il ciclo for per riempire una combobox!!
Spiegati meglio intanto provo a risponderti
Una volta aperta la connessione al database
nell'evento che vuoi tu (Load, click, ecc.) iserisi questo codice.
Ovviamente devi aprire prima una connessione, con ADO possibilmentecodice:If Rs.EOF Then MsgBox "Il testo del tuo messaggio!", vbInformation, "nome del tuo programma" Else Rs.MoveFirst Do Until Rs.EOF ComboBox.AddItem Rs.Fields("nome del tuo campo") Rs.MoveNext Loop End If
e dichiarare le variabili Rs, e Cn che sono rispettivamente
RecordSet e Connection.
I'll see you on the dark side of the moon
se vuoi usare la combobox standard di VB devi *necessariamente* usare un ciclo per popolarla, diversamente, devi usare la DataCombo, che ti permette di associare un campo per popolarla automaticamente, quindi senza nessun ciclo, ovviamente con un notevole risparmio di tempo...
Boolean
Era esattamente quello che volevo sapere!! Ti ringrazio!!Originariamente inviato da Boolean
se vuoi usare la combobox standard di VB devi *necessariamente* usare un ciclo per popolarla, diversamente, devi usare la DataCombo, che ti permette di associare un campo per popolarla automaticamente, quindi senza nessun ciclo, ovviamente con un notevole risparmio di tempo...
Boolean
Grazie ugualmente per aver risposto, ma nn era quest la risposta che intendevo avere!! Grazie ancora...Originariamente inviato da axsw
Spiegati meglio intanto provo a risponderti
Una volta aperta la connessione al database
nell'evento che vuoi tu (Load, click, ecc.) iserisi questo codice.
Ovviamente devi aprire prima una connessione, con ADO possibilmentecodice:If Rs.EOF Then MsgBox "Il testo del tuo messaggio!", vbInformation, "nome del tuo programma" Else Rs.MoveFirst Do Until Rs.EOF ComboBox.AddItem Rs.Fields("nome del tuo campo") Rs.MoveNext Loop End If
e dichiarare le variabili Rs, e Cn che sono rispettivamente
RecordSet e Connection.