Discussion :

[Pozzo]

Bonjour,

Version de Excel : 2000 sur windows XP
Je connais très peu VBA et assez bien Oracle.

Au sein du code attaché à un bouton j'interroge via ODBC une table Oracle.
Pour faire cela j'ai "pompé" sur une macro utilisant une source de données externe.
Ca marche.

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
 
 With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=***;UID=***;PWD=***;DBQ=***;DBA=W;APA=T;EXC=F;FEN=T;QTO=F;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAl" _
        ), Array("lSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;")) _
        , Destination:=Worksheets("Trace").Range("B5"))
        .CommandText = Array("select mon_champ  from ma_table")
        .Name = "Lancer la requête"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = False
        .Refresh BackgroundQuery:=False
    End With

Maintenant je voudrais invoquer une procédure stockée et en récupérer le résultat.
Un curseur si possible, mais à défaut le résultat sous forme de chaîne de caractère ferait l'affaire.

Curieusement je n'ai rien vu dans la faq ni le tutoriel alors que je ne dois pas être le premier à vouloir le faire.

Quelqu'un peut m'aider sil vous plaît ?

Pozzo

[Pierre Fauconnier]

Bonjour

En cochant la référence à Microsoft Activex Data Objects 2.x (outils/références), tu pourrais t'inspirer de ce qui suit, qui utilise un objet Connection et un objet Recordset

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
 
    cn.Open "ODBC;DSN=***;UID=***;PWD=***;DBQ=***;DBA=W;APA=T;EXC=F;FEN=T;QTO=F;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAl"
    rs.Open "select...", cn, adOpenStatic, adLockReadOnly
    ...
 
    rs.Close
    cn.Close
 
    Set rs = Nothing
    Set cn = Nothing

L'objet rs dispose de méthodes telles que MoveNext, ... en fonction des propriétés précisées à l'ouverture (adOpenStatic, adLockReadOnly) que tu peux adapter en fonction des services prévus par Oracle.

[Pozzo]

Merci Pierre de ton aide,

Cela m'a permis de faire fonctionner l'appel à une fonction stockée dans un package Oracle.
J'ai finalement opté pour des scalaires pour le retour au lieu du curseur.
Au cas où ça intéresserait quelqu'un voici quelques bribes de code

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
 
  Dim lc_connexion As ADODB.Connection
  Dim lc_ordre As ADODB.Command
...
  Set lc_connexion = New ADODB.Connection
  lc_connexion.Open ls_chaine
...
  Set lc_commande = New ADODB.Command
  lc_commande.CommandText = "{? = call mon_pkg.ma_func(?, ?, ?)}" 
 
  lc_commande.Parameters(0).Direction = adParamReturnValue
  lc_commande.Parameters(1).Value = xxx (c'est un param in)
  lc_commande.Parameters(2).Value = yyy  
  lc_commande.Parameters(2).Direction = adParamInputOutput
  lc_commande.Parameters(3).Direction = adParamOutput
 
  lc_commande.Execute
 
  ' code retour de la fonction dans lc_commande.Parameters(0).Value
  ' valeur des paramètres inout et out après appel dans lc_commande.Parameters(1).Value et lc_commande.Parameters(2).Value
 
  lc_connexion.Close
  Set lc_connexion = Nothing
  Set lc_commande = Nothing

Merci encore mon problème est résolu.
Pozzo