IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Bases de données Delphi Discussion :

probleme d'insertion dans une transaction


Sujet :

Bases de données Delphi

  1. #1
    iam
    iam est déconnecté
    Membre régulier
    Profil pro
    Inscrit en
    Novembre 2005
    Messages
    197
    Détails du profil
    Informations personnelles :
    Localisation : Algérie

    Informations forums :
    Inscription : Novembre 2005
    Messages : 197
    Points : 72
    Points
    72
    Par défaut probleme d'insertion dans une transaction
    voila j'ai fais la transaction ci-dessous, (insertion dans une table maitre et ensuite une table detail)le probleme c'est que je peux inserer le maitre sans le detail et moi je veux pas ça pour garder la cohérence de ma base de données, voilà ma transaction :

    with dm.ADOConnection1 do
    begin
    begintrans;
    with dm.InsertMouvementBI do {requete d'insertion table maitre}
    begin
    Parameters.ParamByName('c1').Value:=strtoint(mvtnum.Text);
    Parameters.ParamByName('c2').Value:=strtodate(rzmaskedit1.Text);
    Parameters.ParamByName('c3').Value:=strtofloat(rzedit3.text);
    Parameters.ParamByName('c4').Value:=strtoint(rzedit4.Text);
    Parameters.ParamByName('c5').Value:=strtoint(mvtsor.Text);
    Parameters.ParamByName('c6').Value:=rzmemo1.Text;
    Parameters.ParamByName('c7').Value:=edit2.Text;
    try
    ExecProc;
    except on E:Exception do
    begin
    RollbackTrans;
    Showmessage(E.Message);
    exit;
    end;
    end;
    end;
    with dm.InsertDetail_MouvementBI do {requete d'insertion table detail}
    begin
    for i:=1 to DetailBon.RowCount-1 do
    begin
    Parameters.ParamByName('c1').Value:=stringgrid1.Cells[1,i];
    Parameters.ParamByName('c2').Value:=strtoint(mvtnum.Text);
    Parameters.ParamByName('c3').Value:=strtoint(stringgrid1.Cells[4,i]);
    Parameters.ParamByName('c4').Value:=strtofloat(stringgrid1.Cells[5,i]);
    Parameters.ParamByName('c5').Value:=strtofloat(stringgrid1.Cells[6,i]);
    maxdmv.Open;
    Parameters.ParamByName('c6').Value:=MAXDMVmaxdmv.Value;
    maxdmv.Close;
    Parameters.ParamByName('c7').Value:=stringgrid1.Cells[7,i];
    try
    ExecProc;
    except on E:Exception do
    begin
    RollbackTrans;
    Showmessage(E.Message);
    exit;
    end;
    end;
    end;
    end;

    CommitTrans;
    end;

    merci pour tout vos eclaircissements

  2. #2
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 235
    Points : 8 504
    Points
    8 504
    Par défaut
    Normalement un Rollback annule toute action fait au niveau de la base de données depuis le BeginTrans.

    Chose moi que je remarque au niveau de ton code, c'est que le détail peut être mis dans la base de données même si l'insertion du maitre échoue.
    Faudrait eut être mettre un Exit juste après le premier Rollback afin d'éviter de faire la suite du programme inutilement vu que le plus important à echouer.

    Quel base de données utilises tu ?

    PS: Balise de Code et indentation du code ca aide pour la lecture
    Modérateur Delphi

    Le guide du bon forumeur :
    __________
    Rayek World : Youtube Facebook

Discussions similaires

  1. Probleme d'insertion dans une base oracle
    Par FstDsi dans le forum JDBC
    Réponses: 7
    Dernier message: 26/05/2008, 12h01
  2. probleme d'insertion dans une table
    Par metwa dans le forum JBuilder
    Réponses: 1
    Dernier message: 02/05/2008, 21h21
  3. probleme d'insertion dans une table
    Par metwa dans le forum JDBC
    Réponses: 3
    Dernier message: 30/04/2008, 10h38
  4. [interbase6]probleme d'insertion dans une table
    Par macadam314 dans le forum Bases de données
    Réponses: 10
    Dernier message: 22/02/2005, 14h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo