Connection ODBC DAO

Signaler
Messages postés
3
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
12 mai 2008
-
Messages postés
3
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
12 mai 2008
-
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

2 réponses

Messages postés
1
Date d'inscription
mercredi 8 juin 2005
Statut
Membre
Dernière intervention
12 mai 2008

Salut,

tu devrait trouver la solution sur ce site : http://www.carlprothman.net/Default.aspx?tabid=86#ODBCManagedProvider .

Pettes
Messages postés
3
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
12 mai 2008

bonsoir pettes
merci pour ton lien très complet en la matière,
mais j'ai oublié de signaler que je codait en vb6... (honte a moi)
donc du coup sa marche pas
sinon pour le code que j'ai mit tout a l'heure le problème venait du wokspace qu'il fallait definir ainsi:

Set wrkJet = DBEngine.Workspaces(0)
strConnect = "ODBC;DSN=TEST;"
Set db = wrkJet.OpenDatabase(" ", False, False, strConnect)

le passage de la DNS se fait maintenant directement dans la strConnect (plus proche du projet a réaliser)

cependant la connection ne se fait toujours pas, erreur:
"ODBC -- Echec de la connexion à test"
qui au debugage me surligne la ligne set db=wrkjet.opendatabase....
merci encore

bakira