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 :

TADOCommand + Pointeur sur l'enregistrement + affichage


Sujet :

Bases de données Delphi

  1. #1
    Membre habitué
    Inscrit en
    Octobre 2002
    Messages
    343
    Points
    152
    Détails du profil
    Informations forums :
    Inscription : Octobre 2002
    Messages : 343
    Points : 152
    Par défaut TADOCommand + Pointeur sur l'enregistrement + affichage
    Bonjour

    J'exécute ma requête SQL dans à partir du composant TADOCommand, une requête d'insertion d'enregistrement d'un client (à partir d'une bdd Access). Comment puis-je récupérer le numéro automatique (IDClient) qui a été généré dans ma table ? Autrement dit, comment récupérer les infos de mon dernier enregistrements ?

    Une question liée à ce problème, lorsque j'ai inséré ma ligne, cette dernière n'apparait pas dans mon DBGrid connecté à cette table, j'imagine que c'est un problème de mise à jour, par conséquent comment mettre à jour mes composants afin d'afficher les enregestrements après un INSERT, DELETE, UPDATE ?

    Merci d'avance

  2. #2
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 236
    Points
    8 513
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    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 236
    Points : 8 513
    Par défaut
    Pour le premier point :

    Il faut que tu englobes ta requete d'insertion par une transaction (AdoConnexion.BeginTrans/Commit/RollBack).
    Puis que soit tu utilises une requete identity ou une requete qui va rechercher le dernier numéro créé.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    AdoConnexion.BeginTrans;
    try
      AdoCommand.Close;
      ...
      //  Ton Traitement
      ...
      AdoCommand.ExecSQL;
     
      // Recherche du dernier numéro ou requete identity sur la table
     
    Except on E:Exception do
      AdoConnexion.RollBack;
    end;
    Requete identity pour ACCESS (a vérifier ^^)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Select @Identity from LaTable
    Pour ton 2em point :

    Les composants de base de données chargent en mémoire l'intégralité de la table/Requete dans le PC, donc après des mises à jour par requete sur ta base, il faut que tu les rafraichisses.

    Vu que tu utilises Ado, je te conseil d'utiliser "Requery"

  3. #3
    Membre habitué
    Inscrit en
    Octobre 2002
    Messages
    343
    Points
    152
    Détails du profil
    Informations forums :
    Inscription : Octobre 2002
    Messages : 343
    Points : 152
    Par défaut Ok
    Bon j'ai trouvé une solution acceptable mais en passant par les TQuery ce qui revient au même et résout les pbs d'affichages. Je pense que le TADOCommand est utile pour exécuter une requête SQL simple sans traitement derrière, car il est simple d'utilisation.

    J'écris toujours mon code mais il est en c++. Assez facile à comprendre cela dit.

    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
     
    // asSQL contient la requête "SELECT * FROM CLIENT"
    AnsiString InterfaceBD::ExecSQLInsertQuery(TADOQuery *query, AnsiString asSQL, struct Client client)
    {
            query->Active = false;
            query->SQL->Clear();
            query->SQL->Add(asSQL);
            query->Active = true;
            query->Insert();
            query->FieldByName("NomClient")->Value=         client.asNom;
            query->FieldByName("PrenomClient")->Value=      client.asPrenom;
            query->Post();
     
            //-- On retourne l'ID ajouté
            AnsiString asID = query->FieldValues["idClient"];   //["idClient"]
            return asID;
    }

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 24/02/2012, 20h35
  2. Placer le pointeur d'un recordset sur un enregistrement
    Par yannick9 dans le forum VBA Access
    Réponses: 4
    Dernier message: 29/08/2007, 17h30
  3. Réponses: 15
    Dernier message: 25/06/2007, 10h35
  4. TADOCommand + Pointeur sur l'enregistrement + affichage
    Par kurkaine dans le forum C++Builder
    Réponses: 3
    Dernier message: 18/11/2005, 17h15
  5. [Syntaxe] Pointeur sur enregistrement : syntaxe exacte
    Par phplive dans le forum Langage
    Réponses: 8
    Dernier message: 18/04/2005, 22h38

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