[VB6] Leggere un record

[lobo90]

Ciao a tutti ho un piccolo problema dovrei visualizzare una colonna del db in una combobox!! Mi spiego ho una tabella nome e descrizione dovrei far fizualizzare tutti i nomi disponibile nella combobox sperando che la connessione al database è giusta ho inserito questo all'inizio della pagina:

Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Non ne so molto sulle connessioni con il database in vb6 potete aiutarmi?? Grazie

[MarcoGG]

Semplice. Se la colonna è "nome" :

Dim percorso As String
percorso = App.Path & "\"
Dim nomeFileDb As String
nomeFileDb = "nomeDB.mdb"

Dim strSql As String
strSql = "SELECT nome FROM nomeTabella"

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim strCN As String
strCN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & percorso & nomeFileDb & ";User Id=admin;Password=;"

CN.Open strCN
Set RS = CN.Execute(strSql)

While Not RS.EOF
cmb_nomi.AddItem (RS("nome"))
RS.MoveNext
Wend
cmb_nomi.ListIndex = 0

RS.Close
CN.Close
Set RS = Nothing
Set CN = Nothing
;)