Connection ODBC DAO VB6
bakira
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
Etant novice en vb, j'aurais fortement besoin de votre aide:
Je cherches a faire une connection vers une base ODBC de façon le plus automatique possible, le DSN et le mot de passe eventuel etant renseigner dans un tableau de string param.
j'ai donc le code suivant:
Dim wrkJet As Workspace
Dim db As connection
Dim rs As Recordset
Dim Qd As QueryDef
Dim strConnect As String
Set wrkJet = CreateWorkspace("", "", "", dbUseODBC)
strConnect = "ODBC;DSN=" & varGlobale.param(1, 2) & ";" 'ici pas de mot de passe ni de login juste le DSN
Set db = wrkJet.OpenConnection("Connect1", dbDriverPrompt, False, strConnect)
le problème est que au moment de la connection une fenetre de connection odbc apparait dans laquelle il faut selectionner la base voulu se que je ne veux pas.
Est ce que quelqu'un aurait la solution a mon problème?
Merci d'avance,
Bakira
Etant novice en vb, j'aurais fortement besoin de votre aide:
Je cherches a faire une connection vers une base ODBC de façon le plus automatique possible, le DSN et le mot de passe eventuel etant renseigner dans un tableau de string param.
j'ai donc le code suivant:
Dim wrkJet As Workspace
Dim db As connection
Dim rs As Recordset
Dim Qd As QueryDef
Dim strConnect As String
Set wrkJet = CreateWorkspace("", "", "", dbUseODBC)
strConnect = "ODBC;DSN=" & varGlobale.param(1, 2) & ";" 'ici pas de mot de passe ni de login juste le DSN
Set db = wrkJet.OpenConnection("Connect1", dbDriverPrompt, False, strConnect)
le problème est que au moment de la connection une fenetre de connection odbc apparait dans laquelle il faut selectionner la base voulu se que je ne veux pas.
Est ce que quelqu'un aurait la solution a mon problème?
Merci d'avance,
Bakira
A voir également:
- Connection ODBC DAO VB6
- Vb6 - Télécharger - Divers Utilitaires
- Gmail connection - Guide
- Facebook connection - Guide
- Connection chromecast - Guide
- Connection privée - Guide
4 réponses
Bonjour
ODBC esr abandonné depuis Office 2007
vos lignes
Set wrkJet = DBEngine.Workspaces(0)
Set db = wrkJet.OpenDatabase("connect1", False, False, strConnect)
sont du langage DAO et non ADO
pour se connecter à une database
https://www.connectionstrings.com/
ODBC esr abandonné depuis Office 2007
vos lignes
Set wrkJet = DBEngine.Workspaces(0)
Set db = wrkJet.OpenDatabase("connect1", False, False, strConnect)
sont du langage DAO et non ADO
pour se connecter à une database
https://www.connectionstrings.com/
problème réglé...
le workspace posait problème j'ai remplacé sa definition par
Set wrkJet = DBEngine.Workspaces(0)
seulement maintenant cela coince au niveau de cette ligne
Set db = wrkJet.OpenDatabase("connect1", False, False, strConnect)
où je récupère une erreur:
ODBC-Echec de la connexion à 'TEST' (qui est le nom de ma base ODBC)
Quelqu'un pourrait il m'éclairer?
le workspace posait problème j'ai remplacé sa definition par
Set wrkJet = DBEngine.Workspaces(0)
seulement maintenant cela coince au niveau de cette ligne
Set db = wrkJet.OpenDatabase("connect1", False, False, strConnect)
où je récupère une erreur:
ODBC-Echec de la connexion à 'TEST' (qui est le nom de ma base ODBC)
Quelqu'un pourrait il m'éclairer?
