Discussion :

[ferhat80]

Base De Donnée SQL & DELPHI
je veux filtrer la Table (ADOTable) rien Que avec un TEdit avec la première lettre ou caractère le filtrage commence De FILTRER

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
procedure TF_RechPremLettre.Edit1Change(Sender: TObject);
Var
  CountR : Integer;
Begin
  if Edit1.Text = '' then
      ADOTable1.Filtered := False
    Else
      Begin
        ADOTable1.Filter := 'Nom_Ache' + 'LIKE' + QuotedStr (Edit1.Text + '*');
        ADOTable1.Filtered := True;
        CountR := ADOTable1.RecordCount;
        Label1.Caption := IntToStr(CountR);
        if CountR = 0 then
          Begin
            Label1.Visible := True;
            Label1.Caption := 'Enregistrement " ' + Edit1.Text + ' " Non Existe';
          End
        Else
          Label1.Visible := False;
      End;
end;

[tourlourou]

Bonjour,
L'erreur n'est pas précisée, mais le code montre au moins l'oubli d'une espace entre le nom de la colonne et le LIKE du filtre.

[ShaiLeTroll]

On le voit souvent plus facilement avec un Format qu'avec les concaténations ce genre d'erreur.

Code :

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

 ADOTable1.Filter := Format('Nom_Ache %s %s', [QuotedStr ('LIKE', Edit1.Text + '*')];

Evidemment, on ne parlera pas des TADOQuery pour éviter de récupérer une table entière puis de la filtrer, sans oublier les Parameters (quoi que le like est retord)

[ferhat80]

On le voit souvent plus facilement avec un Format qu'avec les concaténations ce genre d'erreur.

Code :

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

 ADOTable1.Filter := Format('Nom_Ache %s %s', [QuotedStr ('LIKE', Edit1.Text + '*')];

Evidemment, on ne parlera pas des TADOQuery pour éviter de récupérer une table entière puis de la filtrer, sans oublier les Parameters (quoi que le like est retord)

[ferhat80]

Bonjour,
L'erreur n'est pas précisée, mais le code montre au moins l'oubli d'une espace entre le nom de la colonne et le LIKE du filtre.

je veux filtrer la Table (ADOTable) rien Que avec un TEdit

[tourlourou]

Je viens de lire que le caractère jocker en SQL était % or tu sembles utiliser le * : y a-t-il une spécificité de ton SGBD ou est-ce la source de l'erreur ?

[ShaiLeTroll]

On le voit souvent plus facilement avec un Format qu'avec les concaténations ce genre d'erreur.

Code :

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

 ADOTable1.Filter := Format('Nom_Ache %s %s', [QuotedStr ('LIKE', Edit1.Text + '*')];

Cette méthode n'a pas fonctionné

Vous avez corrigé évidemment les erreurs issus de la frappes direct sur le forum, cela ne devait même pas compiler

Code :

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

 ADOTable1.Filter := Format('Nom_Ache %s %s', ['LIKE', QuotedStr(Edit1.Text + '%')];

Et effectivement, LIKE fonctionne avec ? et % comme caractère de masque
* est souvent utilisé dans l'ihm utilisateur car plus connu dans Windows mais à remplacer en % dans un SQL

[SergioMaster]

@ferhat Quand apprendrez-vous à partir des questions que vous avez déjà posées ? dans votre discussion onDev vous avait suggéré l'utilisation de OnFilterRecord, même si je n'aime pas trop l'utilisation de Table et préfère l'utilisation de Query clause LIKE, comme indiquée par ShaiLeTroll, est "retorse" car certains SGBD n'accepte pas de paramètre en son sein.

Code :

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

1
2
3
4
procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept:=DataSet.FieldByName('Nom_Ache').asString.StartsWith(edit1.text,true); // true - case insensitive 
end;

ainsi pas besoin de se "casser la tête" avec des * ou des % de la clause Like

[ferhat80]

Vous avez corrigé évidemment les erreurs issus de la frappes direct sur le forum, cela ne devait même pas compiler

Code :

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

 ADOTable1.Filter := Format('Nom_Ache %s %s', ['LIKE', QuotedStr(Edit1.Text + '%')];

Et effectivement, LIKE fonctionne avec ? et % comme caractère de masque
* est souvent utilisé dans l'ihm utilisateur car plus connu dans Windows mais à remplacer en % dans un SQL