DataSet et paramètre dans InsertSQL

Bonjour,

j'ai ma requête InsertSQL définie par :

Citation:

---

INSERT INTO RDB$GENERATORS (
RDB$GENERATOR_NAME)
VALUES (:ParamNomGenerateur);

---

Lorsque dans mon programme je veux remplacer mon paramètre ParamNomGenerateur par sa valeur il me dit qu'il ne trouve pas ce paramètre. J'ai essayé avec Params [0] mais c'est identique.
Je suis à court d'idée, les paramètres marchent avec les TIBDataSet ?

Si oui comment ? y a t'il un exemple utilisant les dataset disponible sur le web ?

Merci d'avance

Salut,

Peux-tu nous mettre un bout de code, que l'on puisse t'aider... :wink:
Par ailleurs, tu peux aussi préciser tes version d'InterBase/Firebird, de Delphi et les composants utilisés.

merci.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8

With FGenerateur.IBDSeGenerateur do begin Append; ParamByName('ParamNomGenerateur').AsString := CtrlNomGenerateur.Text; Post; MGeneral.IBTransaction.CommitRetaining; end; //With FGenerateur.IBDSeGenerateur

---

avec Delphi 7 et Interbase 6.

Merci :)

En y repensant, j'ai un petit de soucis de logique avec les datasets.

Quand je veux ajouter une ligne, je fais bien Append, je renseigne bien les paramètres et je finis bien par post ?

Je peux remplacer le Append par InsertSQL ?

Merci de ton aide

Bonjour,

En principe, tout ce que tu as à faire avec un TIBDataSet c'est de définir ta requête InsertSQL comme ceci :

Citation:

---

INSERT INTO RDB$GENERATORS (
RDB$GENERATOR_NAME)
VALUES (:RDB$GENERATOR_NAME);

---

Et ensuite, si tu veux insérer un enregistrement dans la base de données, tu procèdes comme suit :

Code:

---

1 2 3 4 5

DataSet.Insert; DataSet.FieldByName('RDB$GENERATOR_NAME').AsString := 'BLABLABLA'; DataSet.ApplyUpdates; DataSet.Transaction.CommitRetaining;

---

et ça se fait tout seul.

Comme indiqué plus haut, il faut que le nom du paramètre soit le même que le nom du champ. De cette manière, le TIBDataSet peut se débrouiller tout seul.
Pour les paramètres qui font appel aux valeurs d'origine des champs (pour les clauses WHERE des requêtes DeleteSQL et ModifySQL), les noms des paramètres sont les noms des champs précédés de OLD_ (pour le champ RDB$GENERATOR_NAME, ce serait OLD_RDB$GENERATOR_NAME).

Si tu donnes d'autres noms aux paramètres, tu dois alors utiliser un gestionnaire d'évènement OnUpdateRecord dans lequel tu exécutes l'insertion comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.DataSetUpdateRecord(DataSet: TDataSet; UpdateKind: TUpdateKind; var UpdateAction: TIBUpdateAction); if UpdateKind = ukInsert then begin DataSet.QInsert.Params.ByName('ParamNomGenerateur').AsString := DataSet.FieldByName('RDB$GENERATOR_NAME').AsString; DataSetOrder.QInsert.ExecQuery; end; UpdateAction := uaApplied; end;

---

Ce gestionnaire permet d'avoir plus de contrôle sur le processus de mise à jour de la base de données.

Merci à vous deux pour votre aide, ça marche parfaitement.

PS: Où trouver des infos complète sur TIBDataSet ? Mis à part par F1 ;)

:arrow: http://hcesbronlavau.developpez.com/IB6Delphi6/ :wink: