ODBC Visual Basic to Access

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.

4 réponses

  1. Contributeur
    Bonjour,

    montre nous la partie de ton code concernant la connection...
    1. 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
      1. Contributeur
        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

        1. 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.