[VB6] Popolare ComboBox con record tabella database

[Elena85]

Ciao a tutti!
E' possibile popolare una ComboBox utilizzando i record di una tabella di un database Sql Server 2005?
In rete e sul mio manuale di VB6 non ho trovato niente in merito...
Pensavo di contare i record della tabella (supponiamo siano N record), eseguire un ciclo FOR (da 1 a N), leggere il record N-esimo ed inserirne la stringa nella ComboBox...
E' fattibile?
Grazie in anticipo!

[MItaly]

Benvenuta sul forum! Ti ricordo che le discussioni relative a VB6 non sono trattate qui, ma nella sezione Visual Basic e .Net Framework.

Ora provvedo a spostare entrambi i thread, in futuro imposta correttamente la discussione fin da subito; nel frattempo ti consiglio di dare un'occhiata al regolamento.

[oregon]

Ovviamente è possibile, devi eseguire una query, ottenere un recordset e utilizzarlo per riempire la combo

[Elena85]

Grazie per la risposta.
Ecco il mio codice a riguardo:

Private Sub Form_Load()

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim NumRecord1 As Integer
Dim NumRecord2 As Integer
Dim n As Integer

conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=PROVA_ELENA;Data Source=ELENA-PC\SQLEXPRESS"

'Popolo la ComboBox cboLotto
rs.Open "select CODICE_LOTTO from LOTTI", conn, adOpenStatic
If rs.RecordCount > 0 Then
NumRecord1 = rs.RecordCount
'MsgBox NumRecord1
    For N = 1 To NumRecord1 Step 1
    'Leggo un record e lo inserisco nella ComboBox
    cboLotto.AddItem "stringa"
    Next
Else
MsgBox "Nessun record"
End If

End Sub

La parte in grassetto è quella che non so fare...mi puoi aiutare con il codice?

[Elena85]

A MItaly

Grazie e scusa!

[oregon]

Quale valore ottieni in NumRecord1 ?

Se ottieni il corretto numero di record dovresti scrivere

cboLotto.AddItem rs(0)

[Elena85]

In NumRecord1 ottengo 4 (infatti i record in quella tabella ora sono 4).
Perchè devo scrivere cboLotto.AddItem rs(0) e non cboLotto.AddItem rs(N)?
Scusa la mia ignoranza! Comunque adesso provo!
Grazie ancora!

[Elena85]

Inserendo nel ciclo for l'istruzione cboLotto.AddItem rs(0) mi inserisce 4 volte la stessa stringa!

Se inserisco cboLotto.AddItem rs(N) mi dà errore...

[oregon]

Scusa, ma come fai a scrivere codice senza avere l'idea di quello che scrivi? Non è una critica ma mi sembra una cosa poco sensata ... basta un buon libro di base e un minimo di applicazione ...

rs(0)

indica il valore del primo "campo" del tuo record (sai cosa è un campo e cosa un record?).

Ti restituisce sempre lo stesso perché prima della

Next

dovresti scrivere

rs.MoveNext

per passare al prossimo record del recordset che stai esplorando.

[Elena85]

So che cos'è un campo e cos'è un record...ho qualche lacuna in vb6!!
Ho un manuale di vb6 di 1000 pagine...vado a leggere in qua e in là quando ho bisogno di qualcosa...
Comunque grazie mille!