Discussion :

[sverdo]

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

[Clandestino]

Il faut essayer ce type de code :

avec
dba un tdbf
btfilter un bouton

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
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