Discussion :

[colfire_dev]

je veux faire une recherche par date dans une BD Interbase2009 en utilisant TIBDataset mais j'y arrive pas; j'ai un messsage d'erreur : conversion error from string "19/02/2009"
voici le 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
procedure TfProvisoire.dtpChange(Sender: TObject);
var sDate, sSql : string;
begin
  sDate := FormatDatetime('dd/mm/yyyy',dtp.Date);
  sSql :='SELECT * FROM POST WHERE DATEIMP = '
          +QuotedStr(sDate)+ ' and TYPEPOST = '
          +QuotedStr('Provisoire')+ ' ORDER BY DATEIMP';
  if rgRech.ItemIndex = 3 then
   begin
     qPost.Active := false;
     qPost.SelectSQL.Clear;
     qPost.SelectSQL.Add(sSql);
      qPost.Active := true;
   end;
end;

[SergioMaster]

salut ,

Ton erreur est d'utiliser le format français de date, si tu doit utiliser celui-ci c'est sous la forme jj.mm.aaaa qu'il te faut le faire.

je conseille généralement d'utiliser les pamètres pour ce genre de requête ou au minimum un "transtypage" (CAST)

première résolution

Code :

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

1
2
3
 
sDate := FormatDatetime('mm/dd/yyyy',dtp.Date); // solution 1
sDate := FormatDatetime('dd.mm.yyyy',dtp.Date); // solution 2

un petit plus

Code :

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

1
2
3
 
sSql :='SELECT * FROM POST WHERE DATEIMP = CAST('+sdate+' AS DATE) 
 and TYPEPOST = '+QuotedStr('Provisoire')+ ' ORDER BY DATEIMP';

le must à mon avis

Code :

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

1
2
3
4
5
6
7
sSQL:='SELECT * FROM POST WHERE DATEINP=:D AND TYPEPOST=:P ORDER BY DATEINP'
qPost.Active := false;
qPost.SelectSQL.Clear;
qPost.SelectSQL.Add(sSql);
qPost.SelectSQL.ParamByName('D').asDate:=dtp.Date;
qPost.SelectSQL.ParamByName('P').asString:='Provisoire';
qPost.Active := true;

bien sur cela du type de composants utilisé mais la philosophie est là

PS. Utilises des balises (bouton #) pour entourer ton code sur le forum

[colfire_dev]

Merci pour le tuyau, grâce a toi j'ai plus d'erreur mais la requête ne donne rien mon DBGrid est vide voila code :

Code :

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

1
2
3
4
5
6
7
8
sDate := FormatDatetime('dd.mm.yyyy',dtp.Date);
sSQL:='SELECT * FROM POST WHERE DATEIMP=:D AND TYPEPOST=:P ORDER BY DATEIMP' ;
     qPost.Active := false;
     qPost.SelectSQL.Clear;
     qPost.SelectSQL.Add(sSql);
     qPost.ParamByName('D').asDate:=dtp.Date;
     qPost.ParamByName('P').asString:='Provisoire';
     qPost.Active := true;

[Just-Soft]

Salut;

je crois qu'il te manque les ":" dans ton code :

Code :

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

sSQL:='SELECT * FROM POST WHERE DATEIMP=:var1 AND TYPEPOST=:var2 ORDER BY DATEIMP'

[SergioMaster]

Salut;

je crois qu'il te manque les ":" dans ton code :

non c'est que le petit vilain n'utilise pas les balises

mais la requête ne donne rien mon DBGrid est vide

mais est-ce que des données correspondent , là est la question . Essayes directement avec un outil quelconque (IBexpert) la même (paramètres mis à part) requête

[colfire_dev]

toujours rien même sur ibconsole, j'ai exécute la requête la grille est vide et pourtant la valeur recherchée y est :

Code :

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

SELECT identite,DATEIMP FROM POST WHERE DATEIMP='20.02.2009'

mais si je mets ce code ca marche:

Code :

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

SELECT identite,DATEIMP FROM POST

et je vois la date recherchée dans la grille