Discussion :

[AlexB59]

Bonjour,

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

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

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

[Benjamin GAGNEUX]

Salut,

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

merci.

[AlexB59]

Bonjour,

Code :

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

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

[AlexB59]

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

[Moz1978]

Bonjour,

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

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 :

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

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 :

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

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.

[AlexB59]

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

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

[Benjamin GAGNEUX]

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