Discussion :

[ruzakruzak]

Hello !

Je développe actuellement une macro qui se connecte à une base Oracle. La macro doit être utilisable sur plusieurs postes, avec chacun un client Oracle 9i identique.

Ma connexion marche bien tant que je ne requête qu'une seule table, mais dès qu'il y a des jointures entre les tables, comme Excel n'arrive pas à repérer les liaisons entre les tables je suis contraint de passer par MS Query, qui génère un fichier .dqy.

Comment puis-je contourner ce problème ?? Il faudrait soit éliminer totalement le besoin de ce fichier .dqy (comment ?), ou sinon l'intégrer directement dans le code (mais alors, comment y faire référence ? Où l'intégrer ??).

Voici ma fonction de connexion :

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
20
21
22
23
24
25
26
Function ODBCConnect(monSQL As String)
 
' Connexion paramétrée pour la récupération de données, en utilisant les paramètes ci-dessus.
 
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=" & MonDNS & ";UID=" & MonUID & ";PWD=" & MonPW & _
        ";SERVER=" & MonServeur & ";", Destination:=Range("A1"))
    .CommandText = monSQL
    .Name = "CISCOM_DEV1"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .SourceConnectionFile = _
        "D:\Mes Documents\Lancer la requête à partir de CISCOM_DEV1.dqy.dsn"
    .Refresh BackgroundQuery:=False
End With
 
End Function

J'ai besoin de me passer du paramètre de SourceConnectionFile, qui renvoie vers un fichier (tout pourri soit dit en passant, parce qu'il ne fait que recopier la requête !), ou d'éviter qu'il renvoie vers un fichier...

Toute suggestion sera bienvenue !

[ruzakruzak]

Personne ??

J'ai refait mes requêtes, les ai testées sous SQL*Plus et elles fonctionnement à merveille, mais dès que je lance la macro je dois à chaque requête, sélectionner le driver ODBC. Comment en sélectionner un une fois pour toutes, par le code de préférence ??

[ruzakruzak]

Il me manquait ça dans ma connectionString :

Code :

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

DRIVER{Microsoft ODBC for Oracle}

pour arriver à ceci :

Code :

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

1
2
3
4
5
6
7
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DRIVER={Microsoft ODBC for Oracle};DSN=" & MonDNS & ";UID=" & MonUID & ";PWD=" & MonPW & _
        ";SERVER=" & MonServeur & ";", Destination:=Range("A1"))
    .CommandText = monSQL
    .Name = "CISCOM_DEV1"
...gna gna gna
    .Refresh BackgroundQuery:=False
End With