[FILTER TABLE] Equivalent de like '%A%'

Version imprimable

06/04/2006, 11h49
valoji

[FILTER TABLE] Equivalent de like '%A%'

Bonjour,

voila je fais un filtre de ma table :

Citation:

Table.filter := 'Monchamp = ''A*"'

Ca fonctionne

Mais si je fais cela :

Citation:

Table.filter := 'Monchamp = ''*A"ou
Table.filter := 'Monchamp like "%A%"'

Cela ne fonctionne pas
Qu'est ce que je dois faire pour avoir l'équivalent de like '%A%'
VALOJI 8)

J'ai fais différemment, il n'est pas possible de faire un équivalent de like '%a%'.
J'ai donc fait un requete avec mes LIKE et ensuite j'ai filtré avec l'operateur monchamp = querychamp or etc...

Voici un exemple de mon code :

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
procedure TFic_RechOrga.BitBtn_RechOrgClick(Sender: TObject);
var
Chaine : String;
begin
try
  Chaine := '';
  Query_Commun.sql.clear;
  Query_Commun.Close;
  Query_Commun.UnPrepare;
  Query_Commun.SQL.Clear;
  Query_Commun.SQL.Add('SELECT orgnumser                       ');
  Query_Commun.SQL.Add('  FROM Noorg                               ');
  //Le champ sigle est différent de vide et le champ raison sociale est vide
  if (Trim(Edit_RechSigle.Text) <> '')and (Trim(Edit_RaisSoc.Text) = '') then
  begin
        Query_Commun.SQL.Add('  Where orgsig like "%'  + Edit_RechSigle.Text +'%"');
  end;
  //Le champ raison sociale est différent de vide et le champ sigle est vide
  if (Trim(Edit_RaisSoc.Text) <> '') and (Trim(Edit_RechSigle.Text) = '') then
    begin
        Query_Commun.SQL.Add('  Where orgraisoc like "%'  + Edit_RaisSoc.Text +'%"');
    end;
  // Les deux champs sont différents de vide
  if (Trim(Edit_RaisSoc.Text) <> '') and (Trim(Edit_RechSigle.Text) <> '') then
  begin
        Query_Commun.SQL.Add('  Where orgsig like "%'  + Edit_RechSigle.Text +'%"');
        Query_Commun.SQL.Add('  and orgraisoc like "%'  + Edit_RaisSoc.Text +'%"');
  end;
        Query_Commun.Prepare;
        Query_Commun.Open;
  if (Query_Commun.RecordCount > 0) then
  begin
        Chaine := 'Orgnumser =';
        While not Query_Commun.Eof do
        begin
           Chaine := Chaine + Query_Commun.fieldbyname('orgnumser').asstring + ' or orgnumser =';
           Query_Commun.Next;
        end;
           Chaine := chaine + '0';
           Fiche_Organisme.Table.Filter := Chaine;
           Fiche_Organisme.Table.Filtered := True;
  end;
except
  on E:Exception do
     begin
          AfficheSedIncident('RORG01 -> ', E.Message, Left+(width div 2), top+(height div 2));
     end;
  end;
  Close;
end;

Valoji

16/05/2006, 22h20
Ben_Le_Cool

J'ai le meme probleme que toi, mais moi j'ai pas d'autres alternatives que d'utiliser les filtres.
Suis-je dans une impasse??

::arf::
16/05/2006, 23h26
TicTacToe
Citation:

Envoyé par valoji

Bonjour,

voila je fais un filtre de ma table :
Ca fonctionne

Mais si je fais cela :
Cela ne fonctionne pas
Qu'est ce que je dois faire pour avoir l'équivalent de like '%A%'
VALOJI 8)

Tu peux aussi utiliser TTAble.OnFilterRecord pour filtrer
et dedans tu mets le code que tu souhaites
Dans l'exemple ce serait
Code:

1 2 3 4 procedure MaForm.TableFilterRecord( Dataset:TDataSet); begin Accept := Pos( 'A', Monchamp ) > 0; end
bon courage !
17/05/2006, 14h17
Ben_Le_Cool

Certes c'est une bonne solution, mais elle ne m'arrange pas vraiment.
Voici mon probleme en detail:
Je cree une forme ou l'utlisateur peut construire des filtres et les utiliser soit seuls, soit en les combinant. Donc pour chaque filtre construit, je dois sauvegarder entre-autres sa chaine de caracteres. Dans une autre forme, l'utilisateur peut selectionner les filtres a appliquer. D'ou mon impossibilite a appliquer des requetes et la complexite d'utiliser l'evenement OnFilterRecord.

::arf::
17/05/2006, 16h26
TicTacToe

Je comprends

J'utilise moi même la propriété filter, en amont de mes grilles, pour proposer à l'utilisateurs de construire lui meme ses filtres sur tout types.
Et il y a qq années, il me semble que je suis tombé sur le même pb que toi, et du coup, dans ce cas précis je ne gere que le 'A*', et pas le '*A'.

J'ai mis d'autres outils de filtrages plus souple, qui par contre passent cette fois ci par le OnFilterRecord.
Rien ne t'empeche, d'implémenter ceci dans un cas général pour le FilterRecord:

1. tu créés tes propre fonctions utilisateur 'Contenant tous les termes', 'contenant un des termes' etc...Chaque mode de recherche en interne doit être identifier (par ex. mrTousTermes, mrUnTerme...)

2. Une fois que tu sais quelles est le mode de filtre du user, tu stockes tous ca qq part (par exe, le couple (mrTousTerme, 'ici labas') )

3. tu traites ta listes des filtres, avec une fonction de ton cru dans tous les OnFilterRecords, en fonction du Couple (Mode de recherche, Chaine).

Avec ceci, tu peux te permettre d'implémenter des fonctions à l'infinis car tout se passe par code, plus de bridage par formatage (filter ou SQL).

Bon courage !
17/05/2006, 16h53
Ben_Le_Cool

Citation:

Envoyé par TicTacToe

Je comprends

J'utilise moi même la propriété filter, en amont de mes grilles, pour proposer à l'utilisateurs de construire lui meme ses filtres sur tout types.
Et il y a qq années, il me semble que je suis tombé sur le même pb que toi, et du coup, dans ce cas précis je ne gere que le 'A*', et pas le '*A'.

J'ai mis d'autres outils de filtrages plus souple, qui par contre passent cette fois ci par le OnFilterRecord.
Rien ne t'empeche, d'implémenter ceci dans un cas général pour le FilterRecord:

1. tu créés tes propre fonctions utilisateur 'Contenant tous les termes', 'contenant un des termes' etc...Chaque mode de recherche en interne doit être identifier (par ex. mrTousTermes, mrUnTerme...)

2. Une fois que tu sais quelles est le mode de filtre du user, tu stockes tous ca qq part (par exe, le couple (mrTousTerme, 'ici labas') )

3. tu traites ta listes des filtres, avec une fonction de ton cru dans tous les OnFilterRecords, en fonction du Couple (Mode de recherche, Chaine).

Avec ceci, tu peux te permettre d'implémenter des fonctions à l'infinis car tout se passe par code, plus de bridage par formatage (filter ou SQL).

Bon courage !

Merci, je crois que c'est la seule option qui me reste.
Neanmoins, je suis entrain de negocier avec l'administrateur de Base de donnees pour changer le structure de quelques tables. Si c'est faisable, ca simplifierai ma tache.

Merci encore.
25/04/2016, 20h31
sisi231

ça m'intéresse

Bonjour,
Je reprend cette discussion car je suis sur le même problème.
Ma question subsidiaire est comment vous traitez une chaîne avec des contient(a,b), des ET, des OU, des NON et des parenthèses imbriquées en Delphi.
J'ai essayé d'écrire une fonction en PascalScript et de la lancer en Delphi dans le OnFilterRecord sans succès mais c'est une usine à gaz mais il doit y avoir plus simple ?
Merci de votre aide.
25/04/2016, 20h51
sisi231

je suis bête ^^

désolé, j'ai trouvé la solution, il suffit de faire une boucle while avec des remplacement successifs
on remplace les :
contient(a,b) par true ou false
les "true or false" etc par leurs valeurs
les (true) et (false) par true et false
etc
et on s'arrête quand on a que true ou false
c'était tout simple et j'étais parti sur des trucs compliqués
26/04/2016, 08h13
SergioMaster

Bonjour, 2 :moinsser: pour sisi231
le premier pour avoir déterrer une discussion résolue de 2006 :calim2:
la seconde pour son explication de solution plus qu'obscure :weird:
j'espère que Sisi231 repassera par là pour en comprendre mes raisons qui mériterais presque un carton AMHA