Bonjour TLM

j'ai un champs de type alphanumerique (EXRET) et je vais faire un condition dans une requête où ce champs et superieur a une valeur (retd et retf entier)

je sais que ce ne vas pas marché car le champs contient des caractère d'où l'erreur d'incompatibilité de type entre entier et String.

y'a t'il une solution ???

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
20
 
[size=9]retd := strtoint(Edit15.Text);
retf := strtoint(Edit16.Text);
 
query1.Close  ;
query1.sql.clear;
query1.Sql.text :=  'Select * from Expl  Where EXDAT>=(:date_d) and EXDAT<=(:date_f) '  ;
 
If (retd >0  ) Then  Begin
                      query1.sql.add('and EXRET>=(:rd) ');
                      query1.ParamByName('rd').AsInteger := retd;
                      End;
If (retf >0  ) Then  Begin
                      query1.sql.add('and EXRET<=(:rf) ');
                      query1.ParamByName('rf').AsInteger := retf;
                      End;
 
query1.ParamByName('date_d').AsDateTime := strtodate(datd);
query1.ParamByName('date_f').AsDateTime := strtodate(datf);
query1.Open;[/size]