Discussion :

[samidz2014]

Bonjour;
J’ai un petit problème au niveau du filtrage.
J’ai un dbgrid et un edit, et quand j'ecrit le premier caractère dans edit mon dbgrid n'affiche que les enregistrements commençant par ce caractère, alors je veux que mon dbgrid affiche tous les enregistrements qui contient au mois ce caractère, et en tapant le deuxième caractère mon dbgrid affiche tous les enregistrements qui contient au moins ces deux caractère attachés, ect.

mon code actuel est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TFSearchArch.Edit7Change(Sender: TObject);
begin
   IF Edit7.GetTextLen<> 0 then
   BEGIN
   TdbQuery1.Filter:='libelle_arch='''+Edit7.Text+'*''';
   TdbQuery1.Filtered:=true;
   END
   else
   TdbQuery1.Filtered:=false;
end;

[Lung]

Un like (http://www.techonthenet.com/sql/like.php) ?

[FOCUS77]

Bonsoir,

peut être ça?

Code :

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

1
2
3
4
5
6
procedure TFSearchArch.Edit7Change(Sender: TObject);
begin
   TdbQuery1.Filtered:=False;
   TdbQuery1.Filter:='libelle_arch='+quotedstr('*'+Edit7.Text+'*');
   TdbQuery1.Filtered:=True;
end;

[samidz2014]

Salut;

Un like (http://www.techonthenet.com/sql/like.php) ?

j'ai essayé avec ce 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
 
procedure TFSearchArch.W7ToolButton4Click(Sender: TObject);
begin
  TdbQuery1.SQL.Clear;
  TdbQuery1.SQL.Add('SELECT');
  TdbQuery1.SQL.Add(' a.libelle_arch, S.etage_salle, S.num_salle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage,');
  TdbQuery1.SQL.Add(' D.libelle_dir, L.langue_doc, a.duree_vie, a.type_interet, T.des_type_arch, E.etat_arch');
  TdbQuery1.SQL.Add(' FROM archive');
  TdbQuery1.SQL.Add(' LEFT JOIN directions D ON a.id_dir = D.id_dir');
  TdbQuery1.SQL.Add(' LEFT JOIN etat_arch E ON a.id_etat_arch = E.id_etat_arch');
  TdbQuery1.SQL.Add(' LEFT JOIN Langue_docum L ON a.id_langue_arch = L.id_langue_arch');
  TdbQuery1.SQL.Add(' LEFT JOIN salles_archives S ON a.id_salle = S.id_salle');
  TdbQuery1.SQL.Add(' LEFT JOIN types_archives T ON a.id_type_arch = T.id_type_arch');
  TdbQuery1.SQL.Add(' ORDER BY a.libelle_arch ');
  TdbQuery1.SQL.Add(' WHERE libelle_arch like ''%+edit7.Text+%''');
  TdbQuery1.Prepare;
  TdbQuery1.Open;
end;

mais une erreur se déclanche:
The SQL command has an error at row 11, coumn 2:
"<end of statement>" expected

Code :

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

TdbQuery1.Filter:='libelle_arch='+quotedstr('*'+Edit7.Text+'*');

La méthode quotedstr ne marche que avec un enregistrement qui contient un seul mot, par contre mon enregistrement libelle_arch peut contenir plusieurs

[ShaiLeTroll]

n'utilise pas la concaténation de valeur, c'est toujours dangereux
Si ton SGBD le supporte ainsi que la couche d'accès aux données
Exemple ORACLE + ODAC, cela fonctionne

Code :

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

1
2
3
4
5
6
7
  TdbQuery1.SQL.Add(' WHERE libelle_arch like :pfiltreLibelle');
  TdbQuery1.SQL.Add(' ORDER BY a.libelle_arch '); // ORDER BY est toujours après le WHERE !
  TdbQuery1.Prepare;
 
  TdbQuery1.ParamByName('pfiltreLibelle').AsString :='%' + edit7.Text+ '%';
  TdbQuery1.Open;
end;

Attention, quand tu évoques plusieurs mots, il faut voir le contenu de edit7.Text comme un texte continu
Si tu cherches LIKE '%salut bob%', cela va te renvoyer que ce qui contient exactement 'salut bob', par exemple 'salut bobby'
Si tu cherches LIKE '%salut%bob%', cela va te renvoyer que ce qui contient 'salut' puis 'bob', par exemple 'salut bobby' mais aussi 'salutations bobby'
Si tu cherches LIKE '%salut%' AND LIKE '%bob%', cela va te renvoyer que ce qui contient à la fois 'bob' et 'salut' sans importance d'ordre dans les mots par exemple 'salutations bobby' mais aussi 'bobby! mes salutations !'
Si tu cherches LIKE '%salut%' OR LIKE '%bob%', cela va te renvoyer que ce qui contient soit 'bob' soit 'salut' ou même les deux sans importance d'ordre dans les mots

[SergioMaster]

Bonjour,

mais une erreur se déclenche:
The SQL command has an error at row 11, coumn 2:
"<end of statement>" expected

La clause WHERE doit se trouver avant la clause ORDER BY

La méthode quotedstr ne marche que avec un enregistrement qui contient un seul mot

quotedstr n'est pas une méthode, juste un fonction évitant d'avoir à se perdre dans le nombre de quotes

la méthode SQL est de loin bien meilleure que le filtre , quoique cela dépende de la SGBD et du contexte. Il y a aussi l'utilisation de l'évènement Onfilter à envisager.
OnFilter contenant un expression régulière peut être très très efficace. D'ailleurs certains SGBD utilise ces expressions (SIMILAR TO)

[samidz2014]

Code :

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

1
2
3
4
5
6
7
 TdbQuery1.SQL.Add(' WHERE libelle_arch like :pfiltreLibelle');
  TdbQuery1.SQL.Add(' ORDER BY a.libelle_arch '); // ORDER BY est toujours après le WHERE !
  TdbQuery1.Prepare;
 
  TdbQuery1.ParamByName('pfiltreLibelle').AsString :='%' + edit7.Text+ '%';
  TdbQuery1.Open;
end;

Merci Troll
Merci SergioMaster

Mon code final est:

Code :

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

1
2
3
4
5
6
7
TdbQuery1.SQL.Clear;
  TdbQuery1.SQL.Add('SELECT * FROM archive ');
  TdbQuery1.SQL.Add(' WHERE libelle_arch like :pfiltrelibelle_arch');
  TdbQuery1.SQL.Add(' ORDER BY libelle_arch ');
  TdbQuery1.Prepare;
  TdbQuery1.ParamByName('pfiltrelibelle_arch').AsString :='%' + edit7.Text+ '%';
  TdbQuery1.Open;

Il reste autre chose, c'est au niveau de la clause 'SELECT * FROM ARCHIVE', cette commande me selectionne tous les colonnes que contients ma table archive, est ce qu'il ya une commande SQL qui me selectionne tous les colones de ma tabla archives sauf une colone ou quelque colones.
J’ai essayé : ‘SELECT * EXCEPT(Id_arch) FROM ARCHIVE', mais ça n’a pas marché

[SergioMaster]

re

Il reste autre chose, c'est au niveau de la clause 'SELECT * FROM ARCHIVE', cette commande me selectionne tous les colonnes que contient ma table archive

C'est le comportement normal, d'ailleurs il n'est pas recommandé d'utiliser cette forme (*)

est-ce qu'il y a une commande SQL qui me selectionne toute les colonnes de ma tabla archives sauf une colonne ou quelques colonnes.

Non c'est à vous d'indiquer les colonnes que vous voulez obtenir ( moins que un SGBD le permette mais je ne pense pas que ce soit dans la norme SQL

[samidz2014]

RESOLU

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
  TdbQuery1.SQL.Clear;
  TdbQuery1.SQL.Add('SELECT');
  TdbQuery1.SQL.Add(' a.libelle_arch, S.etage_salle, S.num_salle_arch, a.rayonnage, a.etage_ray, a.num_boite_arch, a.date_archivage,');
  TdbQuery1.SQL.Add(' D.libelle_dir, L.langue_doc, a.duree_vie, a.type_interet, T.des_type_arch, E.etat_arch');
  TdbQuery1.SQL.Add(' FROM archive a');
  TdbQuery1.SQL.Add(' LEFT JOIN directions D ON a.id_dir = D.id_dir');
  TdbQuery1.SQL.Add(' LEFT JOIN etat_arch E ON a.id_etat_arch = E.id_etat_arch');
  TdbQuery1.SQL.Add(' LEFT JOIN Langue_docum L ON a.id_langue_arch = L.id_langue_arch');
  TdbQuery1.SQL.Add(' LEFT JOIN salles_archives S ON a.id_salle = S.id_salle');
  TdbQuery1.SQL.Add(' LEFT JOIN types_archives T ON a.id_type_arch = T.id_type_arch');
 
  TdbQuery1.SQL.Add(' WHERE libelle_arch like :pfiltrelibelle_arch');
  TdbQuery1.SQL.Add(' ORDER BY libelle_arch ');
  TdbQuery1.Prepare;
  TdbQuery1.ParamByName('pfiltrelibelle_arch').AsString :='%' + edit7.Text+ '%';
  TdbQuery1.Open;