Discussion :

[Tahrky]

Bonjour tout le monde ! Vous allez bien ?

Voila, en VBA sur Excel 2010, je dois récupérer les valeurs retournées par une procédure stockée Oracle.

Après avoir cherché sur internet pendant plusieurs heures une solution, j'en ai finalement trouvé une qui fonctionne
(et j'ai bien du en essayer plus d'une vintaine ...).

Cependant, cette vilaine, semble apparement ne vouloir me retourner ma requête qu'à partir du moment ou elle récupère une ligne,
au dela d'une ligne, j'ai l'erreur suivante :

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
    ' Crée un objet Command pour la procédure stockée
    Set oCmd = New ADODB.Command
    Set oCmd.ActiveConnection = connexion
    oCmd.CommandType = adCmdStoredProc
    ' Nom de la procédure stockée
    oCmd.CommandText = "PK_EXCELREPORT.RECUP_FROM_POSTE_INTERVAL"
         
    ' Paramètres de la procédure stockée
    ' a) Paramètres d'entrée
    oCmd.Parameters.Append oCmd.CreateParameter("P_COD_ATEL", adVarChar, adParamInput, 50, databaseAtel)
    ' b) Paramètres de sorti
    oCmd.Parameters.Append oCmd.CreateParameter("p_POSTE_DUR_TC", adVarChar, adParamOutput, 50, "")
         
    ' Exécute la procédure stockée
    oCmd.execute <- LIGNE QUI CAUSE L'ERREUR

(Il y a en vrai beaucoup plus de paramètres, mais je ne penses pas que ce soit utile de tous les écrire dans le code.)

J'ai essayé de mettre ce ADODB.Command dans un ADODB.recordset, mais je n'ai pas trouvé la syntaxe qui autorise (set, recordset.Open ...)
la sortie de plusieurs lignes.

C'est ainsi que je m'en remet à vous, en espérant que quelqu'un pourra m'aider, ou m'expliquer,
comment faire pour résoudre mon problème.

Je vous remercie d'avance,

Cordialement,
Tahrky

[Tahrky]

Bonjour,

J'ai réussi (en continuant à chercher) à résoudre mon problème.

L'erreur ne vient pas du code VBA ni d'ADODB mais de la base de données, qui suite à une modification du package ne retourne plus les valeurs correctement.