salut a tout le monde,
Je suis entrein de developper une application excel(vba)/access, mais j ai eu un probleme, j arrive pas a me connecter a ma base de donner access 2000, il me donne erreur dans la ligne oú j assigne le provider de conexión.
le code est le suivant :
merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub ConnecterBase(ConnectBD As Object, Optional rs As Object, Optional pa As Object) Set ConnectBD = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Set pa = CreateObject("ADODB.Recordset") With ConnectBD .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = chemin_de_base_donnees .Open End With End Sub
Partager