Discussion :

[colfire_dev]

je voudrais un conseil voilà mon 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
21
22
23
24
25
26
27
28
29
30
31
32
lst := TStringList.Create;
 
   if eIdentite.Text <> '' then
    lst.Add('p.identite =' + eIdentite.Text);
 
  if eRefSib.Text <> '' then
    lst.add('c.refsib=' + eRefSib.Text);
 
  if (eIdentite.Text = '') and (eRefsib.Text = '') then
    lst.Add('c.d_refsib between '+quotedstr(sDate)+' and '+quotedstr(sDate1));
 
  with qAud do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT c.idcorresp,c.refsib,c.d_refsib,p.idpostulant,p.idcorresp, '
        +'p.identite,p.typebadge,CONCAT(p.nom,'+quotedstr( ', ')+', p.prenom) AS NomComplet '
        +' FROM corresp c INNER JOIN postulant p ON (c.idcorresp = p.idcorresp) ');
    if lst.Count > 0 then
      SQL.Add(' where');
    for i := 0 to lst.Count -1 do
    begin
      sChamp := lst.Names[i];
      sValue := lst.Values[sChamp];
      SQL.Add(sChamp+  ' LIKE ' + QuotedStr('%' + sValue + '%'));
      if i <> lst.count -1 then
        SQL.Add('And');
    end;
    SQL.Add(' order BY c.d_refsce, p.identite');
    SQL.SaveToFile('Marequetetest.txt');
    Open;
  end;

j'arrive pas à injecter la condiction sur les dates dans la requête
Pour commenter ce code je dirais que c'est une procédure de reherche multicritère

[Montor]

Essaie ce code je ne sais pas la version de SQL mais tu doit penser pour convertir le texte vers utf8
Ajouter cette fonction

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
 
function MySqlDate(const DateStr:String;StrFmt:string='DD/MM/YYYY'):String;
var
  LDate : TDateTime;
  sortie : string;
  f:TFormatSettings ;
begin
 //MySql datetime{YYYY-MM-DD hh:mm:ss}
 //date   'yyyy-mm-dd '
 //datetime 'yyyy-mm-dd hh:nn:ss'
 f.TwoDigitYearCenturyWindow:=TwoDigitYearCenturyWindow;
 f.ShortDateFormat:= StrFmt ;
 f.DateSeparator:='/';
 DateTimeToString(Result, 'YYYY-MM-DD',StrToDate(DateStr,f));
 
end;

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
21
22
23
24
25
 
lst := TStringList.Create;
  with qAud do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT c.idcorresp,c.refsib,c.d_refsib,p.idpostulant,p.idcorresp, '
        +'p.identite,p.typebadge,CONCAT(p.nom,'+quotedstr( ', ')+', p.prenom) AS NomComplet '
        +' FROM corresp c INNER JOIN postulant p ON (c.idcorresp = p.idcorresp) ');
 
    SQL.Add(' WHERE ');
  if eIdentite.Text <> '' then
    SQL.Add(' p.identite LIKE '+QuotedStr('%'+eIdentite.Text+'%'));
 
  if eRefSib.Text <> '' then
    SQL.Add(' AND c.refsib  LIKE '+QuotedStr('%'+ eIdentite.Text+'%'));
 
  if (eIdentite.Text = '') and (eRefsib.Text = '') then
    SQL.Add('c.d_refsib BETWEEN '+QuotedStr(MySqlDate(sDate))+' AND '+
         QuotedStr(MySqlDate(sDate1)));
 
   SQL.Add(' ORDER BY c.d_refsce, p.identite');
  SQL.SaveToFile('Marequetetest.txt');
    Open;
  end;

[colfire_dev]

je n'ai pas de problème de conversion de date mais seulement lors de la construction de la requête la condition qui ne se fait pas correctement

Code :

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

1
2
if (eIdentite.Text = '') and (eRefsib.Text = '') then
    lst.Add('c.d_refsib between '+quotedstr(sDate)+' and '+quotedstr(sDate1));

[Montor]

Le champs c.d_refsib doit avoir le format correcte de date de MySql

[Le Lézard]

Ce que je fais dans un cas comme ça :

Je lance l'appli en mode debug avec un point d'arrêt juste avant d'exécuter la requête. Je récupère (par un copier/coller) la string de ma requête (dans ton cas SQL.text), puis je la teste en direct avec un client MySql.

Je la corrige dans le client jusqu'à ce qu'elle fonctionne, et ensuite je la compare à ce que j'avais dans le SQL.text et je n'ai plus qu'à corriger mon code en fonction des différences...

Voili voilou !

[Le Lézard]

En regardant de plus près ton code, je pense que le problème vient de ta façon d'accéder à ta StringList LST par les propriété NAMES et VALUES.
L'utilisation de ces propriétés est liée à la propriété NameValueSeparator qui définit le caractère qui va séparer le nom de la valeur. Par défaut, ce caractère est le "=".
Mais dans ton code, au moment ou tu ajoute les dates dans ta stringlist, tu fais :

Code :

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

lst.Add('c.d_refsib between '+quotedstr(sDate)+' and '+quotedstr(sDate1));

Et là, si tu accèdes à cette ligne avec les propriétés NAMES et VALUES, je ne sais pas ce que Delphi peut te retourner, mais c'est très ambigu...

[Montor]

Je la corrige dans le client jusqu'à ce qu'elle fonctionne, et ensuite je la compare à ce que j'avais dans le SQL.text et je n'ai plus qu'à corriger mon code en fonction des différences

C’est ma démarche aussi
Bonjour je ne sais pas si le problème est réglé mais mon code fonctionne j'avais testé avant de le poster peu être que colfire_dev n'a pas aperçu les modifications que j'ai apporté sur son code c'est utilisation du TStringlist qui complique les chose et d'ailleurs il n'est pas bon pour insérer directement le texte des edits sans aucune validation dans le SQL c'est trop risqué pour la sécurité et l'intégrité de base le QuotedStr ne protège pas contre les antislashs.

[colfire_dev]

c'est pas encore réglé, je cherche une meilleure façon d'avoir une fenêtre de recherche multicritére intégrant date, texte, chiffres sous delphi/mysql