ODBC Visual Basic to Access

Question

Bonsoir,  

Je désire créer une connexion entre mon formulaire (visual basic sous Word) et ma bdd Access, j'ai créé le lien ODBC. Cependant, je n'arrive pas à établir la connexion dans mon code VBA, j'ai testé plusieurs codes trouvés internet :soit la fonction n'est pas reconnue ou ne fonctionne pas. Bref, avez-vous une idée du code "type" ou exemple qu'il faut utiliser? 

Merci d'avance. 

Configuration: Windows 7 / Chrome 23.0.1.0

michel_m · Answer

Bonjour,

montre nous la partie de ton code concernant la connection...

Wasimolo · Answer

Voila le code:

' Outils, References, ajouter Microsoft DAO 3.6 object library
  Set conn = CreateObject("ADODB.Connection")
  Set rs = CreateObject("ADODB.recordset")
  
  'Chemin_Base = "P:\Mes Documents\FSBB.accdb"

  'haine de connexion: enlever ,*.accdb si pas 2007 et plus
  connstring = "DRIVER={Microsoft Access Driver (*.mdb,*.accdb)}; DBQ=" &    Chemin_Base
  
  'Connexion a la base
  conn.Open connstring

michel_m · Answer

Bonjour

DBQ=" &  Chemin_Base & ";" 
au besoin écrire
DBQ='" &  Chemin_Base & "'
(lire apostrophe guillemets)

je suppose que l'apostrophe devant 'Chemin_Base = "P:\Mes Documents\FSBB.accdb"
est supprimée

Au passage, comme tu utilises ADO, tu n'as pas besoin d'activer DAO

comme tu as utilisé cette syntaxe
Set conn = CreateObject("ADODB.Connection")
tu n'as pas besoin non plus d'activer ADO dans les références
mais il serait préférable de déclarer conn (et rs)
Dim conn as object
Dim re as object

Wasimolo · Answer

Merci pour ton aide, j'ai changé le code et maintenant un autre message d'erreur: "[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified", la syntaxe n'est pas encore correcte, je cherche. 

Mon code: 
connstring = "DRIVER={Microsoft Access Driver (*.mdb,*.accdb)}; DBQ='" & Chemin_Base & "'

L'autre ne fonctionne pas aussi.

ODBC Visual Basic to Access

4 réponses

Discussions similaires

Newsletters