Discussion :

[rec82]

salut.
mon code est le suivant:

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
procedure TForm12.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key =#13 then
begin
a.Close;
a.SQL.Clear;
a.SQL.Add('select sum(longueur)as l  from arc');
a.SQL.Add('where agence=:e  and troncon=:r');
a.Parameters.ParamByName('e').Value:=strtoint(edit1.Text);
a.Parameters.ParamByName('r').value:=strtoint(edit2.Text);
a.open;
 
edit3.Text:=a.FieldValues['l'];
//edit1.Text:= a.FieldByName('longueur').AsString;
end;
end;

sachant que je travail avec d6 et access 2003,et agence et troncon sont 02 champs de type numerique, a c'est ma adoquery, e et r sont 02 parametre de a de type ftinteger,
et j'ai le message suivant:

Code :

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

invalid variant type convertion

le probleme est dans les lignes

Code :

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

1
2
3
 
a.Parameters.ParamByName('e').Value:=strtoint(edit1.Text);
a.Parameters.ParamByName('r').value:=strtoint(edit2.Text)

comment resoudre probléme.
cordialement.

[droggo]

Jai,

Sans le contenu de edit1 et edit2, difficile de te répondre.

[rec82]

salut.
merci pour la réponse ,
edit1 :contien le numero d'agence, edit2.: contien numero tronçon,
agence et tronçcon sont 02 champs de type numérique.
cordialement rec82.

[rec82]

salut.
le probléme est réglé, en met la propriete datatype de e et r à ftwidestring ,

un petit question comment affecté le resulta de la requete sum(longueur) dans un edit, j'ai essayé :

Code :

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

edit3.Text:=b.IndexFields[0].AsString;

,
mais une erreur de produise.
merci d'avance cordialement.

[Linkin]

Seulement Fields au lieu de IndexFields (en considérant que la requête b était la a précédemment )

[Just-Soft]

Salut;

dans des conditions pareilles il faut toujours songer à protéger son code par
try except end.

Bon courage.

[rec82]

salut:
c'est resolut,merci beacoup, just remplacé indexfield par fields.
rec82 cordialement