[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