Procédure stockée

Question

Bonjour,

J'ai un petit soucis pour appeler une fonction qui a été créée sous Oracle SQL Developer.

J'ai essayé ce genre de chose :

function DLO_Fonction3( DL_PARAMETRES_DIMPRESSION, pMag , pDep , pTrp: String): String;
begin
   With TADOQuery.Create(nil) Do Try
    Connection := FT.DB;

      // on control que le code existe
      SQL.Text := 'select DL_PARAMETRES_DIMPRESSION(''pMag'',''pDep'',''pTrp'') as RES from DUAL ';

      Open; First;
      if Eof then result := '0' else  Result := FieldByName('PARXIMP').AsString ;
   finally
     free
   end;
end;

      if FieldByName('TRPXIMP').AsString = '001' then begin
      DLO_Fonction3
      E_001.Text := Result;

Sans succès... En gros ce que je voudrais, c'est lancer ma procédure stockée (fonction) et récupérer le résultat qui se trouve dans le champs PARXIMP pour le mettre dans un TEdit.

Merci d'avance pour votre aide.

Diabolokev.

cs_MAURICIO · Answer

Salut, 

SQL.Text := 'select DL_PARAMETRES_DIMPRESSION(QuotedStr(pMag),QuotedStr(pDep),QuotedStr(pTrp)) as RES from DUAL ';

A+


Composants Cindy pour Delphi
Faites une donation.

diabolokev · Answer

Je teste ça mardi et je te redis.

Merci.

diabolokev · Answer

Problème résolu avec le composant TStoredProc.

Procédure stockée

3 réponses

Votre réponse

Discussions similaires