Discussion :

[youcef_b_dz]

bonjour tous le monde

J'ai deux fiches
La première liste le contenu d'une table. Sur cette fiche j'ai mis le bouton ajouter afin d'ajouter d'autre enregistrement à ma table.
Cette fiche (la première) appel une deuxième qui contient le masque de saisi pour ajouter les enregistrements
A la fermeture de la fiche le dbgrid de la fiche une est vide.
Je ne sais pas d’où vient ce pb est ce que c'est normale ce qui arrive ou bien il faut que j'ajoute quelque chose a mon code dans l'une des fiche.
Pour information j'utilise delphi 7 avec interbase 7.1
Pour chaque fiche a sa propre transaction.
Dans l'action FormActivate, la transaction est ouverte et le dbgrid chargé.
Dans la fiche 2 a chaque ajoute la transaction est fermer après le commit
merci a tous

[hocine]

Salut,
quel est le code que vous avez utiliser pour l'ajout?
Bonne chance.
Merci.

[youcef_b_dz]

pour la première fiche j'utilise ce code pour ouvrire la requette et charge les donnée dans le dbgrid

procedure TF_LISTBANK.FormActivate(Sender: TObject);
begin

Data.IBTbank.Active:=true;
Data.IBQbank1.Close;
Data.IBQbank1.SQL.Clear;
Data.IBQbank1.SQL.Add('select * from bank');
Data.IBQbank1.Open;
end;

en ce qui concerne la deuxieme fiche, dans laquel j'ajoute les enregistrement est le suivant :

procedure TF_bank.ajoutClick(Sender: TObject);
begin
{ouverture de la transaction}
Data.IBTbank.Active:=true;

{Ajout d'une banque}
With data.IBQBank Do
begin
close;
With SQL Do
begin
Clear;

{création des parametres de la requet}
Params.CreateParam(ftString,'P_idbank',ptInputOutput);
Params.CreateParam(ftString,'P_nombankfr',ptInputOutput);
Params.CreateParam(ftString,'P_nombankar',ptInputOutput);

{ecriture du code de la requete}
Add('INSERT INTO bank');
Add('(cd_bank, nom_bank_fr, nom_bank_ar)');
Add('VALUES');
Add('(: P_idbank,: P_nombankfr,: P_nombankar)');

{affectation du contenu des champs d'edtion dans les parametres}
ParamByName('P_nombankfr').AsString:=e_libbank.text;
ParamByName('P_nombankar').AsString:=e_libbankar.text;
ParamByName('P_idbank').AsString:=E_cdbank.Text;
end ;

{Exécution de la requet}
try
begin
ExecSQL;

{confirmation de l'ajout d'une banque}
if MessageDlg('Voullez vous vrainement ajouter la banque'+#13+
'code : '+e_cdbank.text+#13+'nom banque : '+e_libbank.Text+#13+
' ÅÓã ÇáÈäß :'+e_libbankar.Text, mtConfirmation,
[mbYes,MbNo],0)=mrYes
then
{validation de la transaction}
data.IBTbank.Commit
else
{Annulation de la transaction}
data.IBTbank.Rollback;
end;
Except
On e:Exception Do
begin
Data.IBTbank.Rollback;
showMessage('PROBLEME D''INSERTION'+e.Message);
end;
End;
{fermeture de la transaction}
if not F_listbank.Visible
then
data.IBTbank.Active:=false;

{réinitialisation des champs de saisi}
E_cdbank.Clear;
E_libbank.Clear;
E_libbankar.Clear;

end;

end;

[edam]

pourqoi pas laissé IBTbank pour consultation et ajouté un autre composant (ex:IBSql) pour modification

[youcef_b_dz]

monsieur edam,
j'ai deux requete une pour consultation dans la fiche une et l'autre pour l'ajout dans la fiche deux
mais j'aimerai avoir plus de detail sur ta reponse merci

[cadetill]

Salut

Bon, si j'ai bien compris....

IBTbank est un TIBTransaction
IBQbank1 est un TIBQuery

correct?

Bon, si ça c'est correct... quelques observations

N'utiliser pas l'evenement OnActivate pour fermer/ouvrir la Query.

Sur cette fiche j'ai mis le bouton ajouter afin d'ajouter d'autre enregistrement à ma table

Tu peux utiliser cet bouton pour fermer/ouvrir la Query. Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TF_LISTBANK.ButtonXClick(Sender: TObject);
begin
  ....
  F_bank.ShowModal;
 
  if not Data.IBTbank.InTransaction then
    Data.IBTbank.StartTransaction;
 
  Data.IBQbank1.Close;
  Data.IBQbank1.SQL.Clear;
  Data.IBQbank1.SQL.Add('select * from bank');
  Data.IBQbank1.Open;
end;

Une autre chose. Je croix que c'est mieux (plus facile) utiliser des compo DataAware (TDBEdit,...) et un TIBQuery + TIBUpdateSQL ou encore mieux, un TIBDataSet

A+