Newsgroup: it.comp.lang.visual-basic
Titolo: Casella Combinata

Ciao A tutti.
Devo creare una Casella Combinata prendendo i dati da una tabella in Sql.
In access mi pare che l'unico sistema sia quello di collegare la tabella al
Db, in Vb qual'è il sistema ??
Grazie Grazie
Enrico Pietrobon

se usi ADO, ti connetti ad un db, poi apri un ADODB.Recordset e lo cicli per
riempire la combobox. In altre parole:
Dim Temp as ADODB.Recordset
Set Temp = New ADODB.Recordset
Temp.Open "Tabella",cnnArchivio
Do While Temp.EOF=False
    Me.Combo1.AddItem Temp("Campo")
    Temp.Movenext
Loop
Temp.Close
Set Temp = Nothing
ho omesso la parte relativa alla connessione al db (cnnArchivio). Basta che
sostituisci il nome della tabella e il nome del campo...
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 ha scritto nel messaggio
news:bgss56$rupbd$1...@ID-134521.news.uni-berlin.de...

Si avevo già provato in questo modo. ma quando le righe da incolarci reano
piu di 500 e qualcosa mi veniva restituito un errore.
Nel caso in cui la casella combinata contenesse molte righe come dovrei
comportarmi.
Grazie
Enrico Pietrobon

mmhh......strano, non dovrebbe darti particolari problemi. Credo che il
limite sia 32767, non di certo 500......
qual'era il messaggio di errore esattamente?
non è che andavi oltre l' EOF? non è che cercavi di aggiungere un record con
il valore Null?
il codice che ho messo, a parte qualche svista, è giusto: se avevi dei
problemi, non è da imputare alla combo, dovevi avere qualche altro problema,
secondo me....


 ha scritto nel messaggio
news:bgt2hd$spbpp$1...@ID-134521.news.uni-berlin.de...

Tra le altre cose ho provato con il tuo sistema, che è un pò diverso da
quello che usavo io,
Io aggiungevo al Campo combo i valori da inserire.
Con il tuo sistema però mi viene restituito un errore quando viene eseguita
questa istruzione
Me!Combo1.AddItem T1("Data")
L'errore è ( Impossibile trovare il metodo o il membro dei dati ) l'errore
dovrebbe essere sulk istruzione Additem
Grazie
Enrico Pietrobon

rieccomi!!! allora, fammi capire...quel messaggio di errore indica che il
metodo AddItem non funziona sull'oggetto Combo1. Se sicuro che che Combo1 è
proprio una ComboBox?
Non è che per caso è un DataCombo?
T1 che oggetto è? è un oggetto Recordset?
perchè guarda che il codice che ho postato funziona. L'errore che hai
indicato vuol dire che AddItem non è un metodo valido, il che non è
assolutamente possibile...
Intellisense cosa ti dice in merito. Dopo aver dato il . dopo Combo1 ti
appare AddItem tra i metodi disponibili?



Questo è il codice che uso io
    Dim Cnn As New ADODB.Connection
    Dim T1 As New ADODB.Recordset, S As String
    Cnn.Open Variabili.StringaApSql
    S = "Select * From BolleTestata"
    T1.Open S, Cnn
    Do While Not T1.EOF
        Combo1..AddItem  T1("Data")
        T1.MoveNext
    Loop
    T1.Close
    Cnn.Close
ma ho capito il perche non funziona sono un pirla. Sto usando il Vb di
access e non Visual Basic.
Il problema purtoppo rimane, Dovrei comunque riuscirci, ho provato a vedere
i rferimenti, se erano presenti tutti e sembra che ci sia tutto. Muble
Muble.
Enrico Pietrobon

ti rispondo solo oggi, magari sei in ferie!!!
:-)))
Se non ti appare AddItem nell'elenco dei metodi, vuol dire (al 99,99%) che
Combo1 NON è una combobox. Come fai a dire che usi VB di Access invece di
quello di VB?
In base a cosa lo dici?
Perchè nel copia/incolla ci sono due punti tra Combo1 e AddItem ?
Combo1..AddItem  T1("Data")
Questo non mi quadra....
Ti conviene cancellare la combobox, e ricreala (con lo stesso nome)
prendendola dalla casella degli strumenti di VB....guarda che deve andare
per forza....
