Discussion :

[AgroSoft]

La bonne façon de filtrer un champ de chaîne avec plus d'un mot dans certains programmes : Si vous souhaitez rechercher un champ, vous écrivez le premier mot, puis / et utilisez un autre mot afin de rapprocher votre recherche de vous et de la rendre plus proche de vous. facile et dynamique. Merci d'avance.

Code :

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

1
2
3
4
5
6
7
 
if Edit1.Text='' then
begin
FDM.ADOT1.Filter := 'colum like '+ QuotedStr ('%'+ Edit1.Text +'%');
FDM.ADOT1.Filtered := True;
end else
FDM.ADOT1.Filtered := False;

[Andnotor]

Split et Join

Code :

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

1
2
3
4
5
6
7
8
9
function CreateFilter(const aSearch :string) :string;
begin
  var Texts := aSearch.Split(['/']);
 
  for var i := 0 to High(Texts) do
    Texts[i] := 'colum like ' +QuotedStr('%' +Texts[i] +'%');
 
  Result := string.Join(' and ', Texts);
end;

[ShaiLeTroll]

Plusieurs LIKE dans le WHERE


EDIT : Grillé
PS : Faudrait la version de Delphi car le code ci-dessus est dans une syntaxe très moderne

[AgroSoft]

Plusieurs LIKE dans le WHERE


EDIT : Grillé
PS : Faudrait la version de Delphi car le code ci-dessus est dans une syntaxe très moderne

XE8

[AgroSoft]

Y a-t-il quelqu'un qui puisse répondre ?

[tourlourou]

Bonjour,
Je pensais que la réponse avait été donnée : ce n'est pas le cas ?
S'il suffit d'adapter le code proposé vers une version de Delphi ne disposant pas des String.helpers utilisés, regarder du côté des TStringList devrait permettre de reproduire aisément leurs fonctionnalités.

[SergioMaster]

Moi, quand je lis filtre, j'ai toujours des difficultés et réponds le plus souvent par SQL.

Sans le SGBD, sans un exemple précis, sans la structure de la table, et sans la version de Delphi (déjà demandée) on n'avancera pas à grand-chose.
Tout ce qui peut être déduit pour l'instant est qu'il s'agit de l'utilisation d'une table ADO. ADO que je n'installe jamais avec mes versions de Delphi tant j'en ai une allergie !

Néanmoins, il y a l'événement OnFilterRecord qui pourrait aussi répondre à cette problématique sans trop se casser la tête avec des ANDs ou des ORs (on ne sait toujours pas s'il s'agit de l'un ou de l'autre ).

Reste à comprendre ce qui est réellement demandé (le colum dans la clause me fait douter, pendant un moment, j'ai pensé que Edit1.Text contiendrait nomcolonne/valeur)

Enfin, avec la version 12, Firedac réactualise le QBE qui pourrait rendre obsolete la demande