Discussion :

[rommel7]

slt

je voudrais afficher le résultats d'une requete sql Grace au composant Query, la proprièté active du Query elle é 'true', l'application s'éxecute normalement mais le DBGrid affiche tout les enregistrements!!!!!


voici le code source:

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.sql.Text := 'SELECT * FROM Produit where Poids=300';
Query1.Open;
end;

donc je cherche à afficher que les enregistrement qui ont un Poids = 300.??? comment faire???

merci j'attends Vos message.

[aityahia]

Romel

Rommel c'est pluto ça:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
 Query1.Close;
Query1.sql.Clear;
 Query1.sql.Add('SELECT * FROM Produit Where Poids=300'); 
 Query1.Open;
end;

[aityahia]

rommel. je te rajoute quelque chose a ta requetes.
Vours rajouter rajoter un Edit a votres fiche.
et vous avez a chaque fois un nouveau résultat relatif a la valeur de l'Edit.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
 Query1.Close;
 Query1.sql.Clear;
 Query1.sql.Add('SELECT * FROM Produit Where Poids= :PPoid'); 
 Query1.ParamByName('PPoid').Value := StrToInt(Edit1.Text)
 Query1.Open;
end;

en appel ça une requete paramétrer.

[franck SEFIC]

N'oublie pas d'associer ton query a un data source qui sera utilisée par ton DBgrid.

[aityahia]

Essai sa.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
 Query1.Close;
 Query1.sql.Clear;
 Query1.sql.Add('SELECT * FROM Produit Where Poids LIKE :PChamp'); 
if Trim(Edit1.Text) <> '' Query1.ParamByName('PChamp').Value := Edit1.Text+'%' 
else Query1.ParamByName('PChamp').Value := '';
 Query1.Open;
end;

[aliwassem]

[quote=rommel7]mais le DBGrid affiche tout les enregistrements!!!!!
quote]

Salut
alors votre probleme qu'est ce que je pense que vous reliez votre DBGrid a une Ttable mais normalement il faut

TQuery, TDataSource , DBGrid et relie le DBGrid avec le TDataSource et le TQuery avec TDataSource.....

et quand vous Ouvrire votre Query ( Query1.open) Vous allez avoir le resultat dans le DBGrid.... A vous

[paulfr]

Bonjour,

Je pense , sous Delphi, qu'il manque l'instruction "prepare", exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  with QrAff do  //Tqeury
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM "Wprog$$$.dbf" ');  //Ttable
    SQL.Add('WHERE VOLUME = :volume');
    ParamByName('VOLUME').AsString := Ch;
    Prepare;
    Open;
  end;