ODBC Visual Basic to Access
Wasimolo
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
A voir également:
- ODBC Visual Basic to Access
- Visual basic - Télécharger - Langages
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
- Qwerty to azerty - Guide
- Visual paradigm - Télécharger - Gestion de données
4 réponses
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
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
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
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:
L'autre ne fonctionne pas aussi.
Mon code:
connstring = "DRIVER={Microsoft Access Driver (*.mdb,*.accdb)}; DBQ='" & Chemin_Base & "'
L'autre ne fonctionne pas aussi.
bonjour
regarde sur ce site si tu ne trouves pas ton bonheur
https://www.connectionstrings.com/
regarde aussi cette discussion
https://forums.commentcamarche.net/forum/affich-2787257-difference-entre-ado-odbc-oledb#6
regarde sur ce site si tu ne trouves pas ton bonheur
https://www.connectionstrings.com/
regarde aussi cette discussion
https://forums.commentcamarche.net/forum/affich-2787257-difference-entre-ado-odbc-oledb#6
