requete via VBA sur different schema oracle

Version imprimable

19/01/2006, 14h14
FO

requete via VBA sur different schema oracle

Bonjour,

J'ai une base Oracle avec plusieurs schema et des tables ayant le même nom dans ces differents schema.
J'ai un outil Access qui doit se connecter à ces tables Oracle pour faire des stats.

J'ai lu les FAQ et les tuto pour tenter d'executer des requetes d'insert (de Oracle dans Access) via ADO.

J'arrive a créer un recordset sur la table d'un schema de la base et à le parcourrir, mais je n'arrive pas à créer une requete.

Comment je declare dans ma requete le schema sur lequel je me positionne (j'ai cherché sur les forums access et oracle, sans succes) ?

Merci d'avance !

Pour info, voici le code qui ne fonctionne pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
 
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
Set cmd = New ADODB.Command
 
'Définition de la chaîne de connexion avec DSN
cnx.ConnectionString = "DSN=" & NomDuDSN & ";UID=" & NomUtilisateur & ";PWD=" & MotDePasse & ";"
 
cnx.Open
If cnx.State = adStateOpen Then
     MsgBox "connection OK"
 
    'Exécution de la requête
     cmd.CommandText = "SELECT PROJECT_NAME, DB_NAME FROM QCSITEADMIN_DB.PROJECTS"
     Set rst = cmd.Execute
 
End If

Merci pour votre aide

Voici ce que tu peux essayer (trouver dans le tutoriel ADO)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
'===================================================================
' AUTHOR : DrQ
' FUNCTION : InitConnection(...)
' DESCRIPTION : Initiliase la connexion à la base de données
' PARAMS : * DSN : Nom du DSN associé à la connexion
' * UserName : Nom de l'utilisateur
' * Password : Mot de passe de l'utilisateur
' VERSION : 1.1
'===================================================================
Public Function InitConnection(DSN As String, UserName As String, PassWord As String) As Boolean
  Dim query As String
  Dim cnxString As String
  Dim RequeteOk As Boolean
  Dim mRst As New ADODB.Recordset
 
  InitConnection = False
  'Initialisation de la chaine de connexion
  ADOCnx.ConnectionString = "DSN=" & DSN & ";"
 
  'Vérifie que la connexion est bien fermée
  If ADOCnx.State = adStateOpen Then
    ADOCnx.Close
  End If
  On Error GoTo BadConnection
  'Connexion à la base de données
  ADOCnx.Open cnxString, UserName, PassWord, adAsyncConnect
  'Attente que la connexion soit établie
  While (ADOCnx.State = adStateConnecting)
    DoEvents
   Wend
  'Vérification des erreurs dans le cas d'une mauvaise connexion
  If ADOCnx.Errors.Count > 0 Then
    'Affichage des erreurs
    MsgBox ADOCnx.Errors.Item(0)
    InitConnection = False
    Exit Function
  Else
    InitConnection = True
   End If
   Exit Function
 
BadConnection:
If ADOCnx.Errors.Count > 0 Then
    'Affichage des erreurs
    MsgBox ADOCnx.Errors.Item(0)
    InitConnection = False
    Exit Function
Else
    MsgBox err.Description
End If
End Function

19/01/2006, 15h40
FO

Merci pour ta reponse :D , mais je l'ai vu et je me suis inspiré de ce code pour faire ma connexion à Oracle.

Ce n'est pas sur la connexion Oracle que j'ai des soucis, c'est sur l'execution d'une requete sur des tables d'un schema particulier d'Oracle :( .

Le tutoriel montre comment se connecter à Oracle et comment executer une requete sur des tables, mais sans notion de schema d'ou mon souci !