Récupérer la valeur de la fonction MySQL

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:

---

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:

---

open;

---

,
cette ligne ne genere une erreur:

Merci

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:

---

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;

---

Citation:

---

Envoyé par 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:

---

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:

---

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:

---

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;

---

Ceci semble marche.

Code:

---

Result := ExecSQL = 1;

---

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 ...

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

Citation:

---

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

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

voici un peu le code

Code:

---

1 2 3

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

---

Bonjour,

Citation:

---

Envoyé par BILANGA

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:

---

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...

Citation:

---

Envoyé par BILANGA

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

voici un peu le code

Code:

---

1 2 3

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

---

---

essayes un

Code:

---

open

---

puis

Code:

---

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 ...

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

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