[D2010] Comment créer dynamiquement une TSQLStoredProc ?

Version imprimable

Jusqu'à présent, j'utilisais sans problème la TStoredProc du BDE sous Delphi 6 (avec Oracle 10g).

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
function ProduitEphemere(const szRacinePdt, szFinitPdt: String; Database: TDatabase): Integer;
var
   StoredProc: TStoredProc;
begin
   Result := 0;
   StoredProc := TStoredProc.Create(nil);
   try
      StoredProc.DatabaseName := Database.DatabaseName;
      StoredProc.StoredProcName := 'EST_UN_PRODUIT_EPHEMERE';
      StoredProc.Params.CreateParam(ftString, 'pRACINE_PDT', ptInput);
      StoredProc.Params.CreateParam(ftString, 'pFINIT_PDT', ptInput);
      StoredProc.Params.CreateParam(ftFloat, 'Résultat', ptResult);
      try
         StoredProc.ParamByName('pRACINE_PDT').AsString := szRacinePdt;
         StoredProc.ParamByName('pFINIT_PDT').AsString := szFinitPdt;
         StoredProc.ExecProc;
         Result := StoredProc.ParamByName('Résultat').AsInteger;
      except
         on E: Exception do
         begin
            // Erreur ...
            Exit;
         end;
      end;
   finally
      StoredProc.Free;
   end;
end;

Je commence à développer sous Delphi 2010, et je passe aux composants DBExpress.

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
function ProduitEphemere(const szRacinePdt, szFinitPdt: String; SQLConnection: TSQLConnection): Integer;
var
   SQLStoredProc: TSQLStoredProc;
begin
   Result := 0;
   SQLStoredProc := TSQLStoredProc.Create(nil);
   try
      SQLStoredProc.SQLConnection := SQLConnection;
      SQLStoredProc.StoredProcName := 'EST_UN_PRODUIT_EPHEMERE';
      SQLStoredProc.Params.CreateParam(ftString, 'pRACINE_PDT', ptInput);
      SQLStoredProc.Params.CreateParam(ftString, 'pFINIT_PDT', ptInput);
      SQLStoredProc.Params.CreateParam(ftFMTBcd, 'Result', ptResult);
      try
         SQLStoredProc.ParamByName('pRACINE_PDT').AsString := szRacinePdt;
         SQLStoredProc.ParamByName('pFINIT_PDT').AsString := szFinitPdt;
         SQLStoredProc.ExecProc;
         Result := SQLStoredProc.ParamByName('Result').AsInteger;
      except
         on E: Exception do
         begin
            // Erreur ...
            Exit;
         end;
      end;
   finally
      SQLStoredProc.Free;
   end;
end;

Et là, j'ai une erreur :

Citation:

"EST_UN_PRODUIT_EPHEMERE" : Le nombre réel de paramètres (4) a dépassé le nombre en cours de paramètres de procédure stockée (3). Désactivez la propriété de composant ParamCheck ou vérifiez le contenu de la liste de paramètres

J'ai donc ajouté SQLStoredProc.ParamCheck := False;, et j'obtiens une erreur PL/SQL. La fonction plante, car elle a reçu le contenu du deuxième paramètre dans le premier, et rien dans le deuxième.

Que faut-il faut faire pour créer convenablement ces paramètres ?

:hola:

10/01/2011, 10h41
ShaiLeTroll

Que contient "Params" avant d'en Créer ?
Il n'ajouterait pas un paramètre Result par Défaut ?
un petit Clear() par prudence même si avec un objet créé à la volée ça ne devrait pas être utilse

as-tu essayé des variantes sur ptResult et ptOutput ?
ftFMTBcd est-il correctement supporté ?
10/01/2011, 12h46
Linkin

Par défaut (comportement Delphi 7), quand tu affectes le nom de la procédure stockée, l'objet récupère la liste des paramètres.

Par contre, le souci que j'ai eu (avec oracle 11g), c'est que j'ai dû passer par les indices (Params[0]), parce qu'avec FieldByName ça ne passait pas le bon paramètre. (alors que ça fonctionne avec Oracle 9i).

Je ne sais pas quels comportements sont imputables à l'ancienneté de mon Delphi. J'espère avoir pu aider.
10/01/2011, 14h32
Lung

Citation:

Envoyé par ShaiLeTroll

Que contient "Params" avant d'en Créer ?

Params.Count vaut 0.

Citation:

Envoyé par ShaiLeTroll

Il n'ajouterait pas un paramètre Result par Défaut ?

Si je ne créé pas le paramètre Result, il ne voit plus la procédure comme une fonction (semble t'il):

Citation:

PLS-00221: 'EST_UN_PRODUIT_EPHEMERE' is not a procedure or is undefined

Citation:

Envoyé par ShaiLeTroll

un petit Clear() par prudence même si avec un objet créé à la volée ça ne devrait pas être utilse

Ca ne change rien. :(

Citation:

Envoyé par ShaiLeTroll

as-tu essayé des variantes sur ptResult et ptOutput ?

Quel que soit le type du paramètre, si je le change en ptOutput j'obtiens l'erreur :

Citation:

Erreur DBX : Précision non valide

:calim2:

Citation:

Envoyé par ShaiLeTroll

ftFMTBcd est-il correctement supporté ?

C'est à dire ?
Je ne l'utilise que parce qu'en conception, c'est le type qu'il choisit pour ce paramètre (quand je pose une SQLStoredProc en conception).

:koi:

Citation:

Envoyé par Linkin

Par défaut (comportement Delphi 7), quand tu affectes le nom de la procédure stockée, l'objet récupère la liste des paramètres.

Aaaaaarg !! :arf:
Tu as raison. Ca les récupère tout seul.
(depuis ce matin, que je suis dessus)
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 function ProduitEphemere(const szRacinePdt, szFinitPdt: String; SQLConnection: TSQLConnection): Integer; var SQLStoredProc: TSQLStoredProc; begin Result := 0; SQLStoredProc := TSQLStoredProc.Create(nil); try SQLStoredProc.SQLConnection := SQLConnection; SQLStoredProc.StoredProcName := 'EST_UN_PRODUIT_EPHEMERE'; try SQLStoredProc.ParamByName('pRACINE_PDT').AsString := szRacinePdt; SQLStoredProc.ParamByName('pFINIT_PDT').AsString := szFinitPdt; SQLStoredProc.ExecProc; Result := SQLStoredProc.ParamByName('Result').AsInteger; except on E: Exception do begin // Erreur ... Exit; end; end; finally SQLStoredProc.Free; end; end;
Citation:

Envoyé par Linkin

Par contre, le souci que j'ai eu (avec oracle 11g), c'est que j'ai dû passer par les indices (Params[0]), parce qu'avec FieldByName ça ne passait pas le bon paramètre. (alors que ça fonctionne avec Oracle 9i).

Avec Delphi 2010 et Oracle 10g, je peux les appeler par leur nom sans problème.

:merci: pour votre aide. ;)

23/11/2012, 16h03
thomaser
bonjour,

est ce que je peux avoir le code (ou l’entête) de ta procédure car je me suis inspiré de ton code mais ça ne marche pas

j'ai fais ma procédure comme ça
Code:

1 2 3 4 5 6 7 8 9 create or replace procedure EST_UN_PRODUIT_EPHEMERE ( pRACINE_PDT in varchar2, pFINIT_PDT in varchar2, Résultat out varchar2 ) is begin Résultat := '12'; ... end;/
23/11/2012, 17h01
ShaiLeTroll

Déjà 'Result' est un entier dans l'extrait de code de Lung !

Et ta démarche est étrange, on commence plutôt par créer la fonction doit l'on a besoin avec les paramètres nécessaires puis l'on fait le code d'appel

Sinon, ce sujet étant :resolu:, ce n'est pas pratique de le poursuivre en posant une nouvelle question !
23/11/2012, 18h35
thomaser

Désolé d'avoir polluer
Le problème était que dans Delphi je passais les paramètres en tant qu'entier.
J'ai tout mis en type string et ça marche.
merci.