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

[LandGreen]

@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

Vous pouvez m'expliquer ou mettre la procédure et ou l'appeler à travers un TEdit?

[SergioMaster]

Bonjour

où mettre la procédure

Question absurde qui mérite le moinsser, il suffit de lire correctement, il s'agit d'un évènement, valable sur toute source de données (TTable, TAdoTable etc. )

où l'appeler à travers un TEdit?

A priori quelque chose dans le onChange, comme l'avait initié ferhat80, sauf qu'il siffit d'y mettre un Adotable1.Refresh;

[LandGreen]

Bonjour

Question absurde qui mérite le moinsser, il suffit de lire correctement, il s'agit d'un évènement, valable sur toute source de données (TTable, TAdoTable etc. )

A priori quelque chose dans le onChange, comme l'avait initié ferhat80, sauf qu'il siffit d'y mettre un Adotable1.Refresh;

avec ce code j'ai une erreur

[SergioMaster]

En gros vous avez reproduit l'erreur de Ferhat au lieu de lire toute la discussion !
Cela prouve que vous n'avez absolument pas compris ce que j'avais indiqué, à savoir utiliser l'événement OnFilterRecord au lieu de la propriété Filter.

[LandGreen]

En gros vous avez reproduit l'erreur de Ferhat au lieu de lire toute la discussion !
Cela prouve que vous n'avez absolument pas compris ce que j'avais indiqué, à savoir utiliser l'événement OnFilterRecord au lieu de la propriété Filter.

Je vous remercie et je vous assure que, malgré la lecture de toutes les discussions, je n'ai rien compris car tout est très ambigu. D'habitude, je n'aime pas poser de questions directement, je le fais uniquement en cas de blocage extrême.

D'après les réponses précédentes, il semble que la discussion ait commencé avec un grand code qui a été systématiquement réduit à une seule ligne !! c'est ce que m'a rendre la compréhension complexe

En utilisant l'événement OnFilterRecord, j'obtiens cette erreur :


même avec ce code j'ai également la même erreur !

Code :

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

1
2
3
4
5
6
7

procedure TFMAJ_Sit_Cl5.AT_PrvFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept:=DataSet.FieldByName('Produit').AsString.asString.startsWith(edit9.text,true); // true - case insensitive
end;

[SergioMaster]

Si je regarde l'image, Il faut utiliser le terme Dataset, paramètre de la procédure et non le nom du composant.

Votre code a un asstring de trop !
on peut aussi l'exprimer ainsi

Code :

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

Accept := DataSet['Produit'].AsString.StartsWith(edit9.text,true);

[sergio_is_back]

De mémoire Landgreen est sous Delphi 7 et StartWith n'existe pas !!! Les helpers n'étaient pas encore apparus à cette époque.

A mon la syntaxe pour Delphi 7 serait plutôt du style :

Code :

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

1
2
 
Accept := Copy(LowerCase(DataSet['Produit'].AsString),1,Length(edit9.text))=LowerCase(edit9.text)

[SergioMaster]

De mémoire Landgreen est sous Delphi 7

tu n'as peut-être pas tort mais moi, quand on ne me le spécifie pas, je perds le fil. (Déjà qu'ADO n'a jamais été ma tasse de thé )
Comme la discussion a été lancée sans indication je pars toujours sur la version community (donc 11)
Toutefois si le helper n'existe pas, la fonction existe si j'en crois ceci http://www.delphibasics.co.uk/Method...hod=StartsWith

[LandGreen]

De mémoire Landgreen est sous Delphi 7 et StartWith n'existe pas !!! Les helpers n'étaient pas encore apparus à cette époque.

A mon la syntaxe pour Delphi 7 serait plutôt du style :

Code :

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

1
2
 
Accept := Copy(LowerCase(DataSet['Produit'].AsString),1,Length(edit9.text))=LowerCase(edit9.text)

Je vous remercie infiniement pour vos aides mais le code fourni a été compilé correction mais le filtre ne fonctionne pas

Code :

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

1
2
3
4
5
procedure TFMAJ_Sit_Cl5.AT_PrvFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept := Copy(LowerCase(DataSet['Produit'].AsString),1,Length(edit9.text))=LowerCase(edit9.text);
end;

[SergioMaster]

Avez-vous mis la propriété Filtered à True ?
Ce code ne fonctionnera pas tout seul quel code avez vous mis pour l'évènement du TEdit ?

Code :

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

Accept := LowerCase(DataSet['Produit'].AsString).StartsWith(edit9.text)

[ShaiLeTroll]

En D7

Code :

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

Accept := StrUtils.StartText(edit9.text, DataSet['Produit'].AsString);

StrUtils étant une unité à inclure dans uses.


Ne pas oublier de faire un Refresh du DataSet lors du changement du filtre, peut-être qu'un bouton pour appliquer le filtre sera moins intrusif qu'un filtre sur un OnChange du TEdit, cela pourrait être lent