[D2010] Utilisation de paramètres dans une requête SQL Oracle avec DBExpress

Version imprimable

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

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:

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

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 ?
:hola:

31/03/2010, 11h04
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).
31/03/2010, 11h11
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.
31/03/2010, 11h12
Lung

Citation:

Envoyé par Rayek

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.

Ok, alors essai comme çà

Code:

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;

Citation:
Envoyé par Rayek
Ok, alors essai comme çà
Code:

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

21/04/2010, 15h13
Lung

Toujours pas trouvé de solution. :bug:

Personne n'aurait d'idées ? :calim2:
25/04/2010, 04h30
kanzarih
Essaye avec ca :
Code:

1 2 SimpleDataSetLangueColis.DataSet.CommandText.clear;
avant la deuxième requête.
Bon courage ;)
26/04/2010, 16h48
Lung
Citation:
Envoyé par kanzarih

Essaye avec ca :

Code:

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.

:koi:
26/04/2010, 17h00
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
27/04/2010, 08h51
Lung

Ca ne change rien. :cry:

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

:mur: :massacre:
17/05/2010, 17h18
Lung

CA Y EST !! :yaisse2: :yaisse1:

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

Code:

SimpleDataSet.Params.Clear;

Attention : ne pas confondre avec :

Code:

SimpleDataSet.Dataset.Params.Clear;

Des semaines de perdues pour ça ! :evilred: :massacre:

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 ?
20/05/2010, 07h19
Franck SORIANO
Citation:

Envoyé par Lung

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 :vomi:), 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:

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:

1 2 3 4 SimpleDataSet1.Close; SimpleDataSet1.Params.ParamByName('Param1').AsInteger := 0; SimpleDataSet1.Open;
Idem pour la requête 2 :
Code:

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.
21/05/2010, 16h54
Lung
Citation:

Envoyé par Franck SORIANO

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

Tout à fait d'accord.

Citation:

Envoyé par Franck SORIANO

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

C'est bien pour ça que je compte l'utiliser. ;)
Citation:
Envoyé par Franck SORIANO

A l'initialisation de la fiche :

Code:

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:

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

Idem pour la requête 2 :

Code:

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.