Discussion :

[djouahra.karim1]

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]

[yoyo44]

Pourquoi tu ferais pas ???

C'est peut-etre pas ce que tu veux

Code :

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

1
2
retd := strtointDef(Edit15.Text,0); 
retf := strtointDef(Edit16.Text,0);

[djouahra.karim1]

le problème est que EXRET et de type Alphanumerique, et moi je veux faire une comparaison avec des chiffres ce qui génére l'erreur, "type incompatible entre String et Integer pendant l'exécution de la requête SQL

[baba]

c'est normal cette erreur.

il suffit donc de changer EXRET en numérique est le problème est résolu.
A mon avis, c'est la seule solution pour faire comparaison à ce champ.

[Zatoobux]

Salut

Tu transtypes ton champ EXRET en entier.

Code :

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

1
2
3
4
 
...
               query1.sql.add('and CAST(EXRET AS INTEGER)>=(:rd) ');
...

@+

[djouahra.karim1]

ca marche a merveille avec ta solution zatoubux, merci infiniment

PS : j'ai du travaillé en gardant que le type String (pour EXRET et les variables retd et retf) et ca marché aussi, mais la solution de zatoubux et plus pratique et merci aussi pour les autres.

bonne astuces

retd := strtointDef(Edit15.Text,0);
retf := strtointDef(Edit16.Text,0);