Discussion :

[BILANGA]

Bonjour,

J'ai ma bd dans MySQL. J'ai créé une function fct_deblocagepret qui marche très bien.
Je l'appelle ainsi dans mon 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
with TADOQuery.Create(nil) do
   begin
      ConnectionString := HR.ConnectionString;
      Sql.Add('select fct_deblocagepret(:vparam1,:vparam2,:vparam3)');
      Prepared := true;
      with Parameters do
      begin
         ParamByName('vparam1').Value := '1';
         ParamByName('vparam2').Value := '2';
         ParamByName('vparam3').Value := '2016-05-20';
      end;
      ExecSQL;
      open;
      if(Fields[1].Value ='test') then
        Prompt(mtInformation,'succès.')
      else
        Prompt(mtInformation,'pas ok.');
      Free;
   end;

Comme je l'ai dit plus haut, tout marche sauf la ligne de recuperation de la valeur du paramètre output.

Code :

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

  open;

,
cette ligne ne genere une erreur:

Merci

[SergioMaster]

Bonjour,

ce select fct_deblocagepret(:vparam1,:vparam2,:vparam3) me perturbe, en général un SELECT suivi d'un ensemble de nom de champs (ou *) est suivi d'un FROM puis de la table ou de la "fonction" (je mets fonction entre guillemets pour moi il s'agit plus d'une procédure).
Ensuite si cette "fonction" renvoi des données, ce n'est pas ExecSQL qu'il faut utiliser mais Open (et pas les deux !)

qu'en serait-il ainsi ?

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
with TADOQuery.Create(nil) do
   begin
      ConnectionString := HR.ConnectionString;
      Sql.Add('select * from  fct_deblocagepret(:vparam1,:vparam2,:vparam3)');
      Prepared := true;
      with Parameters do
      begin
         ParamByName('vparam1').Value := '1';
         ParamByName('vparam2').Value := '2';
         ParamByName('vparam3').Value := '2016-05-20';
      end;
      open;
      if(Fields[1].Value ='test') then
        Prompt(mtInformation,'succès.')
      else
        Prompt(mtInformation,'pas ok.');
      close;
      Free;
   end;

[BILANGA]

Bonjour,

ce select fct_deblocagepret(:vparam1,:vparam2,:vparam3) me perturbe, en général un SELECT suivi d'un ensemble de nom de champs (ou *) est suivi d'un FROM puis de la table ou de la "fonction" (je mets fonction entre guillemets pour moi il s'agit plus d'une procédure).
Ensuite si cette "fonction" renvoi des données, ce n'est pas ExecSQL qu'il faut utiliser mais Open (et pas les deux !)

qu'en serait-il ainsi ?

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
with TADOQuery.Create(nil) do
   begin
      ConnectionString := HR.ConnectionString;
      Sql.Add('select * from  fct_deblocagepret(:vparam1,:vparam2,:vparam3)');
      Prepared := true;
      with Parameters do
      begin
         ParamByName('vparam1').Value := '1';
         ParamByName('vparam2').Value := '2';
         ParamByName('vparam3').Value := '2016-05-20';
      end;
      open;
      if(Fields[1].Value ='test') then
        Prompt(mtInformation,'succès.')
      else
        Prompt(mtInformation,'pas ok.');
      close;
      Free;
   end;

Bonjour,
votre proposition ne marche pas,
ce code ci-dessous marche bien, le seul problème c'est pour récupérer la valeur de retour de la function de MySQL. Au niveau de:

Code :

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

if(Fields[1].Value ='test') then

qui genere une erreur de: Le projet xxx.ex a provoqué une classe d'exception ELISTError avec le message 'Indice de liste hors limites (0)'.

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
with TADOQuery.Create(nil) do
   begin
      ConnectionString := HR.ConnectionString;
      Sql.Add('select fct_deblocagepret(:vparam1,:vparam2,:vparam3)');
      Prepared := true;
      with Parameters do
      begin
         ParamByName('vparam1').Value := '1';
         ParamByName('vparam2').Value := '2';
         ParamByName('vparam3').Value := '2016-05-20';
      end;
      ExecSQL;
      if(Fields[1].Value ='test') then
        Prompt(mtInformation,'ok.')
      else
        Prompt(mtInformation,'pas ok.');
      Free;
   end;

[BILANGA]

Ceci semble marche.

Code :

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

Result := ExecSQL = 1;

[exyacc]

salut,

moi j'utilise execsql pour un INSERT ou un DELETE quand il n'y a pas de valeurs a retournées, sinon un OPEN
mais les 2 a la suite, faut pas ...

[anapurna]

salut

1°) tu cherche le champs 1 alors que l'on ne connais pas la structure de la réponse si celle-ci n'a qu'un champs tu te trouveras hors limites
si je comprend bien tu fais un sélect sur des élément retourné par une fonction

with TADOQuery.Create(nil) do
begin
ConnectionString := HR.ConnectionString;
Sql.Add('select * from fct_deblocagepret(:vparam1,:vparam2,:vparam3)');
Prepared := true;
with Parameters do
begin
ParamByName('vparam1').Value := '1';
ParamByName('vparam2').Value := '2';
ParamByName('vparam3').Value := '2016-05-20';
end;
open;
if(Fields[0].Value ='test') then
Prompt(mtInformation,'succès.')
else
Prompt(mtInformation,'pas ok.');
close;
Free;
end;

2°) si ta requette doit renvoyer des élément utiliser de préférence open comme le dis SergioMaster

[BILANGA]

Je dois récupérer une valeur de type string;

voici un peu le code

Code :

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

1
2
3
CREATE FUNCTION fct_deblocagepret (vnopret varchar(15), vnocptevir varchar(15), vdtepech date)
RETURNS text
BEGIN

[Ph. B.]

Bonjour,

Comme je l'ai dit plus haut, tout marche sauf la ligne de recuperation de la valeur du paramètre output.

Au vu de votre dernier message, essayez ceci :

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 TADOQuery.Create(nil) do
   begin
      ConnectionString := HR.ConnectionString;
      Sql.Add('select fct_deblocagepret(:vparam1,:vparam2,:vparam3)');
      Prepared := true;
      with Parameters do
      begin
         ParamByName('vparam1').Value := '1';
         ParamByName('vparam2').Value := '2';
         ParamByName('vparam3').Value := '2016-05-20';
      end;
      ExecSQL;
      // open; // Open pour les ensembles de données, ExecSql pour les données discrètes ou l'absence de données retournées
      // Comme dit par exyacc, l'un exclut l'autre...
     if (ParamByName('Text').Value = 'test') then  // A remplacer par le nom du paramètre de sortie, éventuellement
     // if(Fields[1].Value ='test') then // Idem remarque sur open pour Fields vis à vis de ParamByName
        Prompt(mtInformation,'succès.')
      else
        Prompt(mtInformation,'pas ok.');
      Free;
   end;

Ceci dit, en l'occurrence, j'utiliserais plutôt le composant TADOStoredProc...

[exyacc]

Je dois récupérer une valeur de type string;

voici un peu le code

Code :

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

1
2
3
CREATE FUNCTION fct_deblocagepret (vnopret varchar(15), vnocptevir varchar(15), vdtepech date)
RETURNS text
BEGIN

essayes un

Code :

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

open

puis

Code :

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

1
2
3
4
 if sametext(Query.FieldByName('vnopret').AsString,'test') then
        Prompt(mtInformation,'succès.')
      else
        Prompt(mtInformation,'pas ok.');

si c'est pas le champ 'vnopret' que tu veux lire, mets le bon ...

[anapurna]

resalut

comme je le dis dans mon message
prend l'indice 0 des fields et non l'indice 1 avec l'indice 1 tu est hors limite

tu aurais pu utiliser filedbyname si tu connais a l'avance le nom de ton champs dans ton cas il n'as pas de nom

[exyacc]

ah oui merdoum, j'avais pas vu que c’était une fonction ...