Discussion :

[kluh]

Bonjour, malgré la lecture de quelques posts et tuto, j'ai des questions concernants les connection à une BD via Access:
J'ai des tables Oracle liées via ODBC.
Lorsque je lance mon appli, lors du premier appel à ma base, une pop up me demande mon password.
Ensuite dans mon code, lorsque je veux executer une requete, je fais ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("blabla")

Je suppose que j'accede à ma BD avec mon user/password de la pop up? Oui? Non?
Maintenant, si je veux me connecter avec un autre user/password, puis je faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
CurrentDb.Connect="ODBC;DSN=UnDSN;UID=user;PWD=password;SERVER=NomDuServ;DATABASE="
Set Rs = Db.OpenRecordset("blabla")

Oui? Non?
Merci.

[Tofalu]

1. Oui

2. Non, il te faut utiliser la méthode OpenDatabase du DBEngine

Cf le cours sur DAO

[kluh]

Ce qui donnerait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim Db As DAO.Database 
Dim Rs As DAO.Recordset 
Set Db = OpenDatabase("ODBC;DSN=UnDSN;UID=user;PWD=password;SERVER=NomDuServ;DATABASE=maBAse")
Set Rs = Db.OpenRecordset("blabla")

Ya?

[kluh]

Voici ce que je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    Dim oDb As DAO.Database
    Set oDb = DBEngine.OpenDatabase("test", False, False, "ODBC;DSN=Oracle10g;UID=test;PWD=test;DATABASE=BASETEST")

mais j'ai un echec de connection ODBC...
Savez vous d'où cela peut venir?
Merci