Discussion :

[kurkaine]

Bonjour,

J'insère en SQL des donnéees dans ma bdd ACCESS via un composant TADOCommand. Mais je ne trouve pas dans la doc comment récupérer l'identifiant unique (numéro auto) de mon nouvel enregistrement. Quelqu'un sait comment faire pour connaitre l'id généré automatiquement et forcer la mise à jour de mon GRID qui n'affiche pas les nouveaux enregistrements ?

J'espère avoir été clair

[kurkaine]

J'ai trouvé une solution qui répond à mes problèmes:

- J'utilise un composant TADOQuery, le TADOCommand est utile mais pour exécuter une requête simple sans avoir besoin de traiter les informations. Du coup, le composant Query offre un ensemble de méthodes et attributs utile.

- Après un insert mon datasource se positionne directement sur le dernier enregistrement, toujours en utilisant le TQuery.

- Maintenant pour récupérer l'ID voilà comment j'ai procédé :

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 = 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"];   
        return asID;
}

[/b]

[Patrick Seuret]

Je me permets de prolonger un peu ce post car j'avais utilisé la même méthode (aussi avec TADOQuery et MS Access) et rencontré qq problèmes.

Parfois la valeur retournée de l'ID était NULL alors même que l'enregistrement était correctement effectué. J'ai donc dû forcer le rafraichissement de la requête avec le code suivant (pour ne pas perdre l'enregristement courant):

Code :

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

1
2
3
4
5
6
7
8
9
 dbRecords->Post();                    // Save changes
 
  // Update changes
  TBookmark oldRec=dbRecords->GetBookmark();
  dbRecords->Requery(TExecuteOptions());
  if (dbRecords->BookmarkValid(oldRec)) {
    dbRecords->GotoBookmark(oldRec);
    dbRecords->FreeBookmark(oldRec);
  }

[kurkaine]

Merci pour l'exemple, je n'avais jamais utilisé les TBookmark, je vois mieux à quoi ils servent.

++