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 :

Insertion dans une table avec IBDataSet


Sujet :

Bases de données Delphi

  1. #1
    Membre averti
    Inscrit en
    Mai 2006
    Messages
    423
    Détails du profil
    Informations forums :
    Inscription : Mai 2006
    Messages : 423
    Points : 303
    Points
    303
    Par défaut Insertion dans une table avec IBDataSet
    Bonjour,
    J'utilise ce bout de code pour insérer des données dans une table (base de données interbase)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
     
    with DataModuleFrame1.IBDataSet1 do
       begin
          if not Locate('Libelle', self.libelle,[]) then
          begin
             try
               if not Transaction.InTransaction then
               begin
                  Transaction.StartTransaction;
               end;
               Append;
               FieldByName('Libelle').AsString :=  self.libelle;
               FieldByName('Description').AsString :=  self.description;
               FieldByName('Date_Debut').AsString :=  self.date_creation;
               Post;
               Transaction.CommitRetaining;
               Close;
               open;
               result := Lookup('Libelle', self.libelle, 'Id_Projet');
             except on e:Exception do
               Transaction.RollbackRetaining;
             end;
          end
    L'insertion avec des valeurs de champs vide. je n'ai pas pu trouver la cause de cela. J'ai affiché les valeurs de :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     FieldByName('Libelle').AsString;
               FieldByName('Description').AsString;
               FieldByName('Date_Debut').AsString;
    j'ai remarqué qu'il se mette à vide après l'instruction :
    Merci d'avance.

  2. #2
    Membre averti
    Inscrit en
    Mai 2006
    Messages
    423
    Détails du profil
    Informations forums :
    Inscription : Mai 2006
    Messages : 423
    Points : 303
    Points
    303
    Par défaut
    Bonjour,
    Le problème venait en fait du SQLDialect utilisé (version 3). J'ai utilisé la version 1 du SQLDialect et le problème est corrigé.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 20/07/2011, 02h15
  2. Réponses: 6
    Dernier message: 14/05/2009, 12h01
  3. Erreur lors d'insertion dans une table avec Indentity
    Par rad_hass dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 20/03/2008, 16h22
  4. Réponses: 3
    Dernier message: 24/04/2006, 22h03
  5. Réponses: 3
    Dernier message: 10/02/2006, 16h48

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