[D7] Ajout enregistrement avec composant Interbase

Bonjour,

J'utilise une base de donnée firebird 1.5 et je cherche sous delphi 7 avec un tibquery d'ajouter un enregistrement dans ma table sachant que mes enregistrements s'affichent dans des dbedit.

Merci d'avance.

Jer

[Titre corrigé par Pedro. Merci de ne pas l'écrire en majuscules à l'avenir]

Salut Jer,

Moi je mettrais simplement un composant TDBNavigator en bas de ma fiche.
Il possède toutes les fonctionnalités de déplacement, d'insertion, de modification, de suppression et de rafraîchissement des enregistrements.

C'est certainement la méthode la plus simple et la plus rapide.

@+ Claudius.

Re-salut Jer,

Oups ! J'ai lu ta question trop vite.
Le composant TIBQuery ne permet pas de modifier directement le contenu de ta requête (et donc celui de la table sous-jacente).

Pour cela il faut que tu utilises le composant TIBDataSet, en lui précisant les chaînes SQL pour les instructions SELECT, UPDATE, INSERT, DELETE et REFRESH.

@+ Claudius.

Je te remercie pour ton indication, mais je sais pas me servir du composant pour ajouter un enregistrement.

Je ne trouve pas de tutoriel ou de source delphi qui pourraient m'aider à comprendre.

Merci d'avance pour un petit exemple de code.

Jer

Salut Jer,

Voici un exemple illustrant la façon de définir un composant TIBDataSet.
Supposons une table PAYS, contenant 3 champs: CODE_PAYS, LIB_PAYS et CODE_DEVISE.

Tu dois définir pour le composant TIBDataSet 5 instructions SQL, qui sont les propriétés:
SelectSQL, DeleteSQL, InsertSQL, ModifySQL et RefreshSQL.

Ton problème d'insertion d'enregistrement sera résolu par l'instruction InsertSQL.

L'instruction SelectSQL:

Code:

---

1 2 3

select CODE_PAYS, LIB_PAYS, CODE_DEVISE from PAYS;

---

L'instruction DeleteSQL:

Code:

---

1 2 3

delete from PAYS where CODE_PAYS = :OLD_CODE_PAYS;

---

L'instruction InsertSQL:

Code:

---

1 2 3

insert into PAYS (CODE_PAYS, LIB_PAYS, CODE_DEVISE) values (:CODE_PAYS, :LIB_PAYS, :CODE_DEVISE);

---

L'instruction ModifySQL:

Code:

---

1 2 3 4 5 6 7

update PAYS set CODE_PAYS = :CODE_PAYS, LIB_PAYS = :LIB_PAYS, CODE_DEVISE = :CODE_DEVISE where CODE_PAYS = :OLD_CODE_PAYS;

---

et enfin, l'instruction RefreshSQL:

Code:

---

1 2 3 4

Select CODE_PAYS, LIB_PAYS, CODE_DEVISE from PAYS where CODE_PAYS = :CODE_PAYS;

---

Ensuite Delphi transmettra automatiquement à la requête correspondant à ton type d'action (Insert, Delete, ...), les valeurs de tes contrôles orientés données, dans ton cas les valeurs des TDBEdit.

Bien sûr si tu as des traitements particuliers à effectuer, tu peux utiliser tous les évènements habituelles: AfterInsert, AfterScroll, BeforeInsert, .....

Voilà. J'espère avoir été assez précis.
@+ Claudius.

Merci beaucoup, grace à ton code j'ai réussi à mettre en oeuvre une partie de ce que je veux faire, mais je n'arrive pas à enregistrer, une fois mes dbedit remplis, mon enregistrement dans la base.

J'ai une erreur sur le code:

Code:

---

1 2 3 4 5 6 7 8 9

datamodule1.IBDataSet1.Close;   datamodule1.IBDataSet1.InsertSQL;   datamodule1.IBDataSet1.post;   datamodule1.IBDataSet1.Open;

---

Vraiment j'ai du mal à comprendre comment cela marche.

JER

Salut,

Citation:

---

Envoyé par jer64

Code:

---

1 2 3 4 5 6 7 8 9

datamodule1.IBDataSet1.Close;   datamodule1.IBDataSet1.InsertSQL;   datamodule1.IBDataSet1.post;   datamodule1.IBDataSet1.Open;

---

---

Ce code ne risque pas de fonctionner, puisque tu fermes l'IBDataSet juste avant d'effectuer ton Post.

Je suppose que code est lié à un bouton. Si c'est le cas il te suffit juste dans l'évènement OnClick de ce bouton d'écrire:

Code:

---

1 2	IBDataSet1.Post;

---

Et c'est tout !

Une fois que tu as défini les différentes chaîne SQL du composant TIBDataSet (InsertSQL, DeleteSQL, ...), ensuite son utilisation est parfaitement 'transparente', et tu peux l'utiliser comme un TQuery classique.

Voilà !

Bonjour,

Après quelques déboires avec ma connexion internet, me revoilà avec mon problème.

J'ai bien un bouton sur lequels je valide mon ajout d'enregistrement, et un autre qui vide mes dbedit au préalable:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.Nouveau1Click(Sender: TObject); begin     datamodule1.ibdataset1.Append;       end;     procedure TForm1.Valider1Click(Sender: TObject);   begin     datamodule1.IBDataSet1.post;   end;

---

Mais avec ce code j'ai un message d'erreur 'Instruction SQL vide'.

Il doit manquer quelque chose.

?????

Jer.

Salut Jer,

Tu dois avoir une erreur d'exec lorsque tu appuies sur le bouton 'Valider'.

Le message 'Instruction SQL vide' veut dire simplement que l'action que tu entreprend sur l'IBDataSet ne comporte pas d'instruction équivalente.

Pour un post, deux cas de figure:
1/ Si c'est un nouvel enregistrement, alors c'est l'instruction InsertSQL qui sera exécutée.

2/ Si c'est un enregistrement existant que tu modifies, alors c'est l'instruction ModifySQL qui sera exécutée.

Vérifie que tu as bien renseigné chacune des tes chaînes SQL.

Autre exemple: si tu ne renseignes pas la chaîne DeleteSQL, tu seras alors dans l'incapacité de supprimer un enregistrement de ta table. En admettant que tu as également un bouton 'Supprimer' sur ta forme.

@+ Claudius

Bonjour,

Je te remercie Claudius pour ton aide précieuse.

Ce n'est pas mes instructions qui posaient problèmes mais un composant interbase qui devait bloquer mon tibdataset.

Merci encore.

A+

JER