Discussion :

[F.Salenko]

Bonjour,

j'ai un problème que nos ITs sont incapables de résoudre, j'espère trouver plus de réponses ici

On aimerait faire des reportings via Excel et Vba. Ce ne sont pas des requetes compliqués mais nous ne savons pas comment connecter Oracle à VBA/Excel.

Voici le code que j'ai réussi a construire grâce aux informations trouvées sur le net :

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 Connection_Oracle()
 
'Déclaration de la variable de connexion
Dim cNx As ADODB.Connection
Set cNx = New ADODB.Connection
 
'Définition de la chaîne de connexion
cNx.ConnectionString = "DSN=XxX" & NomDuDSN & ";UID=XxX" & NomUtilisateur & ";PWD=XxX" & MotDePasse & ";"
 
Dim varSQL As String
 
varSQL = "SELECT tr.trade_id FROM trade tr WHERE tr.trade_id = 123"
 
With ActiveSheet.QueryTables.Add(Connection:=cNx, Destination:=ActiveSheet.Range("A1"), Sql:=varSQL)
    .Refresh
 
End With
 
End Sub

A priori, il n'y a pas de souci au niveau de la connection avec le serveur. En tout cas dans microsoft Query, la connexion s'effectue correctement (il retrouve les tables de mon serveur). Je dis a priori, car je n'ai aucun moyen de tester la connexion dans VBA étant donné que je n'arrive meme pas a obtenir une réponse via un msgbox...

Voilà,

est ce que quelqu'un en saurait un peu plus sur le requetage sur VBA/Excel ?
Comment savoir si la connexion est correct ?
Comment faire une requete ?
Et comment formater le résultat obtenu ?

Je sais qu'il y a beaucoup de quesitons, mais si vous avez une réponse à l'unes de ces questions : n'hésiter pas !

Merci beaucoup.

[pgz]

Bonjour.

Pour les premiers pas :
tu ouvres une connexion ADO
tu ouvres un Recordset ADO avec une requête simple
Si oRst est ton recordse tu fais

Code :

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

Thisworkbook.Worksheets("Feuil1").Range("A1").Copyfromrecordset oRst

Cela devrait t'éclairer. SI tu as ensuite d'autres pb, tu reviens.

Cordialement,

PGZ

[F.Salenko]

Je ne suis pas sur de bien comprendre, quelle valeur devrait apparaitre dans ma cellule A1 ?

A quoi correspond le recordset ?

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
27
28
29
30
Sub Connection_Oracle()
 
'Déclaration de la variable de connexion
Dim cNx As ADODB.Connection, oRS As ADODB.Recordset
Set cNx = New ADODB.Connection
 
 
'Définition de la chaîne de connexion
cNx.ConnectionString = "DSN=XxX" & NomDuDSN & ";UID=XxX" & NomUtilisateur & ";PWD=XxX" & MotDePasse & ";"
 
cNx.Open
 
Dim varSQL As String
 
varSQL = "SELECT tr.trade_id FROM trade tr WHERE tr.trade_id = 123"
 
ThisWorkbook.Worksheets("Feuil1").Range("A1").CopyFromRecordset oRS
 
'With ActiveSheet.QueryTables.Add(Connection:=cNx, Destination:=ActiveSheet.Range("A1"), Sql:=varSQL)
'    .Refresh
'
'End With
 
'With ActiveSheet.QueryTables.Add(Connection:=cNx, Destination:=Range("A1"))
'.CommandText = SQLSTRING
'.AdjustColumnWidth = False
'.Refresh (False)
 
'End With
End Sub

[pgz]

Re,

CEla devrait ressembler à

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
Sub Connection_Oracle() 
'Déclaration de la variable de connexion
Dim cNx As ADODB.Connection, oRS As ADODB.Recordset, sSQL As String
Dim NomDuDSN As String, NomUtilisateur As String, MotDePasse As String
 
Set cNx = New ADODB.Connection
 
'Définition de la chaîne de connexion
cNx.ConnectionString = "DSN=XxX" & NomDuDSN & ";UID=XxX" & NomUtilisateur & ";PWD=XxX" & MotDePasse & ";"
cNx.Open
 
sSQL = "SELECT tr.trade_id FROM trade tr WHERE tr.trade_id = 123"
Set oRS = New ADODB.Recordset
 
oRS.Open sSQL, cNx, adOpenStatic
 
With ThisWorkbook.Worksheets("Feuil1")
    .UsedRange.ClearContents
    .Range("A1").CopyFromRecordset oRS
End With
 
oRS.Close
cNx.Close
Set oRS = Nothing
Set cNx = Nothing
End Sub

Cordialement,

PGZ

[F.Salenko]

La connection se fait bien. Si je mets les mauvais identifiants, le programme me renvoie un message d'erreur.
En revanche toujours aucune écriture au niveau de la cellule A1.

A quoi sert la commande recordset ?

Aurais tu une alternative pour faire apparaitre le resultat de la requete ? (qui devrait etre "123")

Si j'arrivais a faire apparaitre un résultat, j'aurais une base pour démarrer les recherches.

Merci d'avance pour ton aide

[pgz]

Bonjour.

Si la requête renvoie au moins 1 enregistrement, il devrait être copié dans la feuille. Tu peux vérifier avec

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
27
28
Sub Connection_Oracle()
'Déclaration de la variable de connexion
Dim cNx As ADODB.Connection, oRS As ADODB.Recordset, sSQL As String
Dim NomDuDSN As String, NomUtilisateur As String, MotDePasse As String
 
Set cNx = New ADODB.Connection
 
'Définition de la chaîne de connexion
cNx.ConnectionString = "DSN=XxX" & NomDuDSN & ";UID=XxX" & NomUtilisateur & ";PWD=XxX" & MotDePasse & ";"
cNx.Open
 
sSQL = "SELECT tr.trade_id FROM trade as tr WHERE tr.trade_id = 123;"
Set oRS = New ADODB.Recordset
 
oRS.Open sSQL, cNx, adOpenStatic
 
MsgBox IIf(oRS.EOF, "Il n'y a aucun enregistrement", "Il y a au moins un enregistrement")
 
With ThisWorkbook.Worksheets("Feuil1")
    .UsedRange.ClearContents
    .Range("A1").CopyFromRecordset oRS
End With
 
oRS.Close
cNx.Close
Set oRS = Nothing
Set cNx = Nothing
End Sub

Si le jeu est vide et qu'il n'y a pas d'erreur levée, essaie à nouveau en enlevant la clause WHERE.

Cordialement,

PGZ