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

[Lung]

Toujours pas trouvé de solution.

Personne n'aurait d'idées ?

[kanzarih]

Essaye avec ca :

Code :

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

1
2
 
SimpleDataSetLangueColis.DataSet.CommandText.clear;

avant la deuxième requête.
Bon courage

[Lung]

Essaye avec ca :

Code :

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

1
2
 
SimpleDataSetLangueColis.DataSet.CommandText.clear;

avant la deuxième requête.
Bon courage

Je n'ai pas de fonction Clear derrière le CommandText, étant donné que c'est une String.

[skywaukers]

Bonjour,

Essaye d'utiliser la propriété Active du simpledataset plutôt que Open, je pense que Close et open agissent effectivement sur le dataset local, sans le rafraichir.

@++
Dany

[Lung]

Ca ne change rien.

Tant que le PacketRecords n'est pas à -1, ca ne veut rien savoir.

[Lung]

CA Y EST !!

J'ai l'ombre d'une solution :
Il faut vider la liste des paramètres, si on utilise le PacketRecord.

Code :

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

SimpleDataSet.Params.Clear;

Attention : ne pas confondre avec :

Code :

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

SimpleDataSet.Dataset.Params.Clear;

Des semaines de perdues pour ça !

Par contre, je ne trouve pas que ca soit un comportement normal.
Quel rapport entre le PacketRecords et la liste des paramètres ?
Et pourquoi qnand on ne spécifie pas de valeur dans le PacketRecords, la liste des paramètres se vide toute seule ?

[Franck SORIANO]

Par contre, je ne trouve pas que ca soit un comportement normal.
Quel rapport entre le PacketRecords et la liste des paramètres ?
Et pourquoi qnand on ne spécifie pas de valeur dans le PacketRecords, la liste des paramètres se vide toute seule ?

Avec DbExpress, les datasets sont unidirectionnels. Pour disposer malgré tout de datasets bi-directionnels indispensables aux grilles nottamment, on passe par un clientdataset et la chaîne ClientDataSet + DataSetProvider + DataSet.
Comme c'est lourd à manipuler (devoir utiliser 3 composants juste pour exécuter une requête SQL ), tu as le composant TSimpleDataSet qui regroupe les trois composants en un seul. Le TSimpleDataSet est un ClientDataSet qui crée automatiquement son provider et son dataset.

Donc tu dois manipuler le TSimpleDataSet de la même façon qu'un ClientDataSet.

La propriété PacketRecords permet d'agir sur le nombre d'enregistrements à charger à la fois dans le clientDataSet.
Lorsqu'il vaut -1, le clientdataset est chargé en une seule fois : Le dataset est lu intégralement au moment de l'ouverture du clientdataset. Le clientdataset est alors totalement déconnecté du dataset qui sert à l'alimenter.
Lorsqu'il vaut autre chose que -1, le clientdataset va être chargé de façon incrémentale, ce qui implique de maintenir un état connecté entre le dataset et le clientdataset. Ce qui veut dire que le clientdataset va automatiquement utiliser les infos dont il dispose (sa liste de paramètres) pour faire appel au dataset.

En fait, il ne faut pas manipuler les Params du Dataset directement, il faut uniquement utiliser les Params du ClientDataset :

A l'initialisation de la fiche :

Code :

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

1
2
3
 
  SimpleDataSet1.DataSet.CommandText := 'select * from MaTable where UnChamp = :Param1';
  SimpleDataSet1.Params.CreateParam(ftInteger, 'Param1', ptInput).AsInteger := 0;

On définit la commande qui permettra de lire les données, on crée manuellement le paramètre dans le clientdataset, de façon à ce qu'il soit créé sans exécuter la requête.

Puis pour la requête 1, il suffit de définir la valeur du paramètre du clientdataset :

Code :

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

1
2
3
4
 
  SimpleDataSet1.Close;
  SimpleDataSet1.Params.ParamByName('Param1').AsInteger := 0;
  SimpleDataSet1.Open;

Idem pour la requête 2 :

Code :

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

1
2
3
4
 
  SimpleDataSet1.Close;
  SimpleDataSet1.Params.ParamByName('Param1').AsInteger := 1;
  SimpleDataSet1.Open;

De cette façon, ça fonctionne quel que soit la valeur de PacketRecords et quel que soit l'état précédent du clientdataset.

[Lung]

Comme c'est lourd à manipuler (devoir utiliser 3 composants juste pour exécuter une requête SQL )

Tout à fait d'accord.

tu as le composant TSimpleDataSet qui regroupe les trois composants en un seul.

C'est bien pour ça que je compte l'utiliser.

A l'initialisation de la fiche :

Code :

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

1
2
3
 
  SimpleDataSet1.DataSet.CommandText := 'select * from MaTable where UnChamp = :Param1';
  SimpleDataSet1.Params.CreateParam(ftInteger, 'Param1', ptInput).AsInteger := 0;

On définit la commande qui permettra de lire les données, on crée manuellement le paramètre dans le clientdataset, de façon à ce qu'il soit créé sans exécuter la requête.

Puis pour la requête 1, il suffit de définir la valeur du paramètre du clientdataset :

Code :

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

1
2
3
4
 
  SimpleDataSet1.Close;
  SimpleDataSet1.Params.ParamByName('Param1').AsInteger := 0;
  SimpleDataSet1.Open;

Idem pour la requête 2 :

Code :

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

1
2
3
4
 
  SimpleDataSet1.Close;
  SimpleDataSet1.Params.ParamByName('Param1').AsInteger := 1;
  SimpleDataSet1.Open;

De cette façon, ça fonctionne quel que soit la valeur de PacketRecords et quel que soit l'état précédent du clientdataset.

J'ai testé ton exemple (il marche ).
Mais, je trouve dommage de devoir créer soi-même le ou les paramètres utiles.
Avec le BDE, je n'avais pas ces problèmes, et il se débrouillait tout seul.