Discussion :

[Lung]

Mon problème :
- 1ère requête avec un paramètre exécutée avec un TSimpleDataSet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SimpleDataSetLangueColis.DataSet.Close;
SimpleDataSetLangueColis.DataSet.CommandText := 'select * from UneTable ';
SimpleDataSetLangueColis.DataSet.CommandText := SimpleDataSetLangueColis.DataSet.CommandText + 'where UnChamp = :Param1 ';
try
   SimpleDataSetLangueColis.DataSet.ParamByName('Param1').AsInteger := StrToInt(LabeledEditNumCC.Text);
   SimpleDataSetLangueColis.Open;
except
   on E: Exception do
   begin
      ShowMessage(E.Message);
   end;
end;

- 2ème requête avec un paramètre (ou sans) exécutée avec le même TSimpleDataSet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
SimpleDataSetLangueColis.DataSet.Close;
SimpleDataSetLangueColis.DataSet.CommandText := 'select * from UneTable ';
SimpleDataSetLangueColis.DataSet.CommandText := SimpleDataSetLangueColis.DataSet.CommandText + 'where UnChamp = :Param1 ';
try
   SimpleDataSetLangueColis.DataSet.ParamByName('Param1').AsInteger := StrToInt(LabeledEditNumCC.Text);    // <-- ici la valeur du paramètre a changée.
   SimpleDataSetLangueColis.Open;
except
   on E: Exception do
   begin
      ShowMessage(E.Message);
   end;
end;

Après avoir exécuté la requête (la deuxième), la DBGrid affiche toujours le résultat de la première requête. Quoi qu'on fasse, le Open n'a aucun effet.

Ca ressemble beaucoup au problème que j'avais rencontré lors de mes tests de Delphi 2009 (http://www.developpez.net/forums/d65...cle-dbexpress/).

Une idée ?

[Lung]

Question subsidiaire :
Quelle est la différence entre SimpleDataSet.Open et SimpleDataSet.DataSet.Open ?
Quelle est la différence entre SimpleDataSet.Close et SimpleDataSet.DataSet.Close ?

(Dommage qu'il n'y ait d'aide dans Delphi 2010).

[Rayek]

Si je me souviens bien les composants DbExpress sont unidirectionnels (et le SimpleDataSet aussi non ?) si oui, alors il te faut aussi rafraichir le DatasetProvider ou le ClientDataset qui fait tampon avec ta grille et le SimpleDataSet.

[Lung]

Si je me souviens bien les composants DbExpress sont unidirectionnels (et le SimpleDataSet aussi non ?)

Justement. Le SimpleDataSet est le seul a être bi-directionnel.
C'est pour ça qu'on cherche à l'utiliser.

[Rayek]

Ok, alors essai comme çà

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
 
With SimpleDataSetLangueColis do
begin
  DataSet.Close;
  DataSet.Params.clear;// suppression des paramètres déjà créés
  DataSet.CommandText := 'select * from UneTable ';
  DataSet.CommandText := DataSet.CommandText + 'where UnChamp = :Param1 ';
  DataSet.ParamCheck := True; // On force la recréation de nouveaux paramètres
  try
     DataSet.ParamByName('Param1').AsInteger := StrToInt(LabeledEditNumCC.Text);    // <-- ici la valeur du paramètre a changée.
     Open;
  except
     on E: Exception do
     begin
        ShowMessage(E.Message);
     end;
  end;
End;

[Lung]

Ok, alors essai comme çà

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
 
With SimpleDataSetLangueColis do
begin
  DataSet.Close;
  DataSet.Params.clear;// suppression des paramètres déjà créés
  DataSet.CommandText := 'select * from UneTable ';
  DataSet.CommandText := DataSet.CommandText + 'where UnChamp = :Param1 ';
  DataSet.ParamCheck := True; // On force la recréation de nouveaux paramètres
  try
     DataSet.ParamByName('Param1').AsInteger := StrToInt(LabeledEditNumCC.Text);    // <-- ici la valeur du paramètre a changée.
     Open;
  except
     on E: Exception do
     begin
        ShowMessage(E.Message);
     end;
  end;
End;

Ca ne change rien.

J'ai un collègue qui a trouvé quelque chose d'intéressant :
Il faut mettre PacketRecords à sa valeur par défaut (-1) pour obtenir un fonctionnement normal.
Mais, c'est pas une solution, parce que pour des grosses tables, ca ne va pas être possible.

Je creuse ...