[VB6] Aggiunta elementi a combobox da DB

[caso92]

posso porti un ultimo quesito ringraziandoti ancora per la tua disponibilità..devo riempire una combobox con i tipi e i formati presenti all'interno del database ma presenti una sola volta per tipo e formato..

qTipo = "Select distinct tipoBancale from Ordini "
Set rds = conn.Execute(qTipo)
cboTipo.AddItem rds.Fields("tipoBancale")

qFormato = "Select distinct dimBancale from Ordini"
Set rds = conn.Execute(qFormato)
cboFormato.AddItem rds.Fields("dimBancale")

Inutile dirti che da access il risultato è perfetto ma come al solito da VB restituisce un solo record sia per formato che per tipo..grazie ancora

[oregon]

Se fai un solo AddItem e non scorri il recordset ovviamente non vedrai altri record.

P.S. Si posta un solo problema per thread. Nuovo problema, nuovo thread con nuovo titolo

[caso92]

si lo scusa solo che la risosuluzione mi serve in fretta e ho trovato uno in gamba che mi rispondesse .. se aprivo un nuovo thread andava per le lunghe..comunque intendi una cosa di questo tipo ??

rds.Open "Ordini", conn, 2, 3
rds.MoveFirst
Do While Not rds.EOF
qTipo = "Select distinct tipoBancale from Ordini "
Set rds = conn.Execute(qTipo)
cboTipo.AddItem rds.Fields("tipoBancale")
rds.MoveNext
Loop
rds.close

[oregon]

Originariamente inviato da caso92
si lo scusa solo che la risosuluzione mi serve in fretta e ho trovato uno in gamba che mi rispondesse .. se aprivo un nuovo thread andava per le lunghe..

Non è un buon motivo per violare le regole ... anzi ...

comunque intendi una cosa di questo tipo ??

No. La query va eseguita fuori dal ciclo, una sola volta. E poi il ciclo va fatto solo per scorrere il recordset rds

[MItaly]

Originariamente inviato da caso92
si lo scusa solo che la risosuluzione mi serve in fretta e ho trovato uno in gamba che mi rispondesse ..

Questa volta separo la discussione, se ci provi di nuovo chiudo per direttissima.