Exemple :
Function user()
Dim Con as ADODB.Connection
Dim Rst as ADODB.Recorset
Set Con = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
Con.Open "DSN=TEST ODBC"
Rst.Open "Select *From fichier.Biblioteque",Con
End Function
Une fois la connexion établie, on peut parcourir le Recordset
Exemple :
Rst.MoveFirst
Do While Not Rst.EOF()
insérer ici votre source
Rst.MoveNext
Loop
[[Document traduit de l ‘espagnol. Auteur d'origine : Sergio Puentes]]