[vb6] non capisco nulla

[keeper76]

Ciao raga, dovrei interfacciare un db access 2000 con ADO in VB6, ma non so veramente un ca....... mi date una mano ?

GRAZIE100000000000

[md76]

nessuno sa proprio nulla

[Johnny_Depp]

nessuno sa proprio nulla

:master:
Ti ho risposto sul tuo POST

e se... utilizzaste il MOTORE DI RICERCA di questo FORUM

trovate 10.000 thread aperti che trattano (forse) l'argomento
più blasonato di questo FORUM cioè come connettersi
da Visual Basic ad un database ACCESS

provate a cercare nel motore

[Johnny_Depp]

Private Sub Command1_Click()
    On Error Resume Next
    Dim i as Integer
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    'SENZA DSN DI SISTEMA
    'cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Documenti\VB\db.mdb"
    'CON DSN DI SISTEMA
    cn.ConnectionString = "Provider=MSDASQL; Data Source=DSN_ACCESS; Database=; User Id=; Password=; Security Info=True"
    cn.Open
    Set rs = cn.Execute("SELECT * FROM  mia_tabella ORDER BY cognome,nome,id")
    rs.MoveFirst
    While Not rs.EOF
        for i=0 to 9 '<-- supponendo che il record sia composto da 10 campi 
            Mia_ListBox.AddItem rs.Fields(i).value
        next i    
        rs.MoveNext
    Wend
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub