Bonjour à toute et à tous,
Je débute en VB 6 (oui je sais qu'il aurait été plus malin de commencer avec VB 2005 mais les enseignements académiques sont ainsi faits...) et j'ai un problème lorsque je cherche à établir une connexion avec une base de données existante, un message d'erreur m'indique [gestionnaire de pilotes ODBC] source de données introuvable et nom de pilotes non spécifiés. Sachant que les références à Active X data object 2.8, à recordset et à ADO ext 2.8 fro DLL and security ont été faites, quelqu'un peut-il m'expliquer ce qui ne va pas ?
Voici mon code
Sub main()
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim nomobjet
cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"DataSource" = "C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\NorthwindCS.mdb"""
Set cat.ActiveConnection = cnn
For Each nomobjet In cat.Tables
With nomobjet
Debug.Print .Name
Debug.Print .Type
'Debug.Print nomobjet & " " & nomobjet.Type
End With
Next
End Sub
Merci d'avance de vos lectures...