Discussion :

[rec82]

salut
j'ai un souci avec une requette sql ,j'ai un adoquery qui s'appelle s et qui à comme parametre v1 et v2 v3 (v1 et v2 come type widestring)et v3 comme type integer,
quand j'exécute cette requtte tout marche bien:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm20.BitBtn2Click(Sender: TObject);
begin
s.close;
s.SQL.Clear;
s.SQL.add('select com ,post ,date ,tn ,tm,tecl,taux,desq from mesure');
//s.SQL.Add('where com=:v3 and');
s.SQL.Add('where date between v1 and v2 ');
//s.Parameters.ParamByName('v3').value:=strtoint(edit3.Text);
s.Parameters.ParamByName('v1').Value:= maskedit1.Text;
s.Parameters.ParamByName('v3').value:=maskedit2.Text;
s.open;
end;

mais quand j'ajoute le troisieme parametre v3 dans le code comme suite:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm20.BitBtn2Click(Sender: TObject);
begin
s.close;
s.SQL.Clear;
s.SQL.add('select com ,post ,date ,tn ,tm,tecl,taux,desq from mesure');
s.SQL.Add('where com=:v3 and');
s.SQL.Add(' date between w and x  ');
s.Parameters.ParamByName('v3').value:=strtoint(edit3.Text);
s.Parameters.ParamByName('v1').Value:= maskedit1.Text;
s.Parameters.ParamByName('v2).value:=maskedit2.Text;
s.open;
end;

un messsage d'erreur s'affiche et me dit:
project alpha.exe raised exception class edatabaseerror with message 's :parameter 'v1' not found ' process stoped use step or run to continue.
quelle l'origine de se probleme
cordialement rec 82.

[rec82]

pardant
dans la deuxieme requette:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm20.BitBtn2Click(Sender: TObject);
begin
s.close;
s.SQL.Clear;
s.SQL.add('select com ,post ,date ,tn ,tm,tecl,taux,desq from mesure');
s.SQL.Add('where com=:v3 and');
s.SQL.Add(' date between w and x  ');
s.Parameters.ParamByName('v3').value:=strtoint(edit3.Text);
s.Parameters.ParamByName('v1').Value:= maskedit1.Text;
s.Parameters.ParamByName('v2).value:=maskedit2.Text;
s.open;
end;

c'est pas w et x c'est v1 et v2:

procedure TForm20.BitBtn2Click(Sender: TObject);
begin
s.close;
s.SQL.Clear;
s.SQL.add('select com ,post ,date ,tn ,tm,tecl,taux,desq from mesure');
s.SQL.Add('where com=:v3 and');
s.SQL.Add(' date between v1 and v2 ');
s.Parameters.ParamByName('v3').value:=strtoint(edit3.Text);
s.Parameters.ParamByName('v1').Value:= maskedit1.Text;
s.Parameters.ParamByName('v2).value:=maskedit2.Text;
s.open;
end;
merci

[SergioMaster]

Manque toujours les ':'

Code :

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

s.SQL.Add(' date between :v1 and :v2 ');

[rec82]

salut
merci beacoup Sergio master,j'ai pas fait attention au 02 point malgrés j'ai travaillé déja avec une requette similaire.
cordialement rec82