[Lazarus] Tri en fonction d'une requête avec base DB4

Bonjour,
Pourriez vous m'indiquer comment faire des requêtes SQL dans le code sur une base Db (utilisant le composant Tdbf), en cliquant sur un bouton nommé "Requête1", "Requête2", etc....
Ex: je voudrais que dans ma DbGrid vienne s'afficher que les données de mes contacts habitant dans une certaine ville.

Merci d'avance à ceux qui pourront m'aider à trouver une solution.
A bientôt

Il faut essayer ce type de code :

avec
dba un tdbf
btfilter un bouton

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TMainForm.BtFiltrerClick(Sender: TObject); begin Dba.Filtered := true; end;     procedure TMainForm.DBAFilterRecord(DataSet: TDataSet; var Accept: Boolean); begin Accept:= dba.FieldByName('NomDeVille').AsString ='Monaco'; // ville commençant par F //Accept:= dba.FieldByName('NomDeVille').AsString[1] ='F'; // Ne pas etre sensible à la casse //Accept:= UPPERCASE(dba.FieldByName('FirstName').AsString) ='PARIS'; //etc... end;

---

Modification après divers tests sur mon code précédent