Discussion :

[Throne55]

Bonjour à tous,

Je recherche désespérément une solution à un problème qui m'agace depuis pas mal de temps. Voici donc:

Petit tour d'horizon: J'utilise un fichier Access (faute de mieux ) pour lancer des requêtes me servant à comparer la cohérence des enregistrements entre deux bases de données. Mon fichier contient donc uniquement des requêtes et des tables liées.

Mon objectif: automatiser le lancement de ma macro sous forme de tâche programmée (de ce côté c'est bon je maîtrise à peu près )

Mon problème: Mes tables liées sont sur des bases ORACLES, et je souhaiterai m'affranchir d'avoir à taper les identifiants des sources de données à chaque fois que mon fichier et la macro sont éxécuté.

Par le dessin: Je ne veux plus de ça!



Et j'ai testé le code ci-dessous ( j'ai remplacé la macro par un rapport en fin de code), mais l'état redemande les identifiants des Sources de données.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Cocoche()
Dim strConnBASE1 As String
Dim strConnBASE2 As String
 
strConnBASE1 = "ODBC;" & _
                 "DSN=DSN_BASE1;" & _
                 "UID=ID_USER_BASE1;" & _
                 "PWD=MDP_USER_BASE1"
 
strConnBASE2 = "ODBC;" & _
                 "DSN=DSN_BASE2;" & _
                 "UID=ID_USER_BASE2;" & _
                 "PWD=MDP_USER_BASE2"
 
Set connBASE1 = OpenDatabase("DSN_BASE1", dbDriverComplete, read - only, strConnBASE1)
Set connBASE2 = OpenDatabase("DSN_BASE2", dbDriverComplete, read - only, strConnBASE2)
DoCmd.OpenReport "ErreursDeCoherence"
 
End Sub

Please, HELP!

[nico84]

Bonjour,

2 solutions :

1) Les tables Oracle sont liées au logiciel access : il faut bien penser à cocher "mémoriser le mot de passe" quand on crée le lien et alors access ne le demande plus

2) Les requetes sont exécutées en ADO avec une connexion créée à chaque requete : le mot de passe doit être écrit "en dur" dans la connexion. Il est alors préférable d'utiliser un user Oracle en lecture seule. Exemple d'une lecture type "Dlookup" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function Get_cycle_complet(ByVal cd_article As Long) As Integer
Dim connect As adodb.Connection, Cmd As adodb.Command, rso As adodb.Recordset 'recordset pour base Oracle
  Get_cycle_complet = 0
  Set connect = New adodb.Connection ' créer connection sur oracle
  connect.Open "mabaseOracle", "monlogin", "monpassword"
  connect.CursorLocation = adUseClient
  Set Cmd = New adodb.Command
  Cmd.CommandType = adCmdText
  Set Cmd.ActiveConnection = connect
 
  Cmd.CommandText = "SELECT cycle_complet FROM article_champ WHERE cd_article=" & cd_article
  Set rso = Cmd.Execute
  If Not rso.EOF Then If rso!cycle_complet > 0 Then Get_cycle_complet = rso!cycle_complet
  rso.Close: Set rso = Nothing
  Set connect = Nothing
End Function