Discussion :

[ouldfella]

bjr,
j'ai fais ce code mais aucun résultat ?
il me signal aucune erreur
-----
query1.sql.Clear;
query1.sql.Add('select *');
query1.sql.Add('from tablefacture');
query1.sql.Add('where tablefacture.client=''c1''');
query1.ExecSQL;
query1.open;
--------
ou est le problème ?

[SegmentationFault]

je crois que le forum qui correspond le mieu à ce genre de question est "delphi et les bases de données".

Mais bon, pour cette fois essaye plutot de mettre 'c1' et non "c1" ou utilise QuotedStr

[ouldfella]

si je fais ce que vous ditez, il me signal cet erreur
[Erreur] Unitfrmetatfacture.pas(85): ')' attendu(e) mais identificateur 'c1' trouvé(e)
------
le problème n'est pas dans la syntax, tout est juste
mais je ne sais pas pour quoi aucun résultat
-----------
j'ai modifié mon programme avec un champ entier :

query1.sql.Clear;
query1.sql.Add('SELECT *');
query1.sql.Add('FROM tablefacture');
query1.sql.Add('WHERE tablefacture.v1=10');
query1.ExecSQL;
query1.open;
query1.Active:=true;
dbgrid1.Refresh;
dbgrid1.Update;
-----
mais toujours rien
pourquoi il n'exécute pas la requete ?

[skywaukers]

bonjour,

ExecSQL : permet d'executer une requete ne retournant pas de curseur : update, delete, insert, enfin tout sauf un select.
Open : permet l'execution d'une requete qui retourne un curseur (select).
Il faut en choisir une
Dans ton cas, enlève le ExecSQL qui doit générer une erreur ce qui fait qu'il ne va pas plus loin.

@++
Dany

[ouldfella]

merci pour vos réponse,
toujours aucun résultat si j'enlève ExecSQL
---------
query1.sql.Clear;
query1.sql.Add('SELECT *');
query1.sql.Add('FROM tablefacture');
query1.sql.Add('WHERE tablefacture.v1=10');
query1.open;
query1.Active:=true;
dbgrid1.Refresh;
dbgrid1.Update;
-------

[skywaukers]

re,

le Query1.active n'est pas necessaire non plus, par contre as-tu bien associé un datasource pour lier ton query à ton dbgrid ?

@++
Dany

[ouldfella]

oui j'ai associé un datasource et tous les champs s'affiches avec leurs valeur
il m'affiche tous les enregistrements
et je veux selectionner quelque uns selon la requete SQL
j'enleve Query1.active
toujour le contenu de dbgrid1 ne bouge pas

je tiens a vous dire que query1 est de type adoquery
--
query1.sql.Clear;
query1.sql.Add('SELECT *');
query1.sql.Add('FROM tablefacture');
query1.sql.Add('WHERE tablefacture.v1=10');
query1.open;
dbgrid1.Refresh;
dbgrid1.Update;
---------

[skywaukers]

que veux-tu dire par : 'ne bouge pas ?' : il n'affiche rien ou il affiche toujours tous les enregistrements ?

@++
Dany

[ouldfella]

je veux dire qu'il affiche tous les enregistrements de la table,
et quand je clique sur le botton ou j'ai fait la requete SQl,
il ne l'exécute pas, c'est toujours les mêmes enregistrements..

[Bloon]

Ajoute query1.Close; avant le query1.SQL.Clear; ça devrait aller mieux.

Bloon

[ouldfella]

voilà mon nouveau code :
--------
query1.close;
query1.sql.Clear;
query1.sql.Add('SELECT *');
query1.sql.Add('FROM tablefacture');
query1.sql.Add('WHERE tablefacture.v1=10');
query1.open;
dbgrid1.Refresh;
dbgrid1.Update;
------------
c'est toujours rien
je ne crois pas que le problème est dans le code

[Bloon]

Alors ton DBGrid ne doit pas être relié au Query.

Essaye d'ajouter en première ligne :

Code :

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

DBGrid1.DataSource.DataSet := query1;

Bloon

[Yurck]

Bonjour,

Je te propose une variante pour t'assurer de ta liaison Query-DBGrid :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dbgrid1.disablecontrols;
try
<div style="margin-left:40px">with tquery(dbgrid1.datasource.dataset) do
begin
close;
  sql.Clear;
  sql.Add('SELECT *');
  sql.Add('FROM tablefacture');
  sql.Add('WHERE tablefacture.v1=10');
  open;
end;</div>finally
  dbgrid1.enablecontrols;
end

a+

[ouldfella]

dans l'inspecteur d'objet :
DBGrid1.DataSource.DataSet := tablefacture;
et quand j'ajoute cette ligne:
DBGrid1.DataSource.DataSet := query1;

a l'exécution il me signale une erreur :
datasource1 : liaison de donnée circulaire nojn autorisée

[ouldfella]

merci pour tout le monde ,
je crois que le problème est dans la liaison
j'ai enlevé dans l'inspecteur d'objet cette valeur
DBGrid1.DataSource.DataSet := tablefacture;
et ça marche
encore merci pour tout le monde