Discussion :

[kurkaine]

Bonjour, je n'arrive pas à faire une mise à jour de mon TAdoQuery après avoir vider l'ensemble des lignes de ma table (toutes les lignes sont supprimés par des DELETE FROM client where id = ...).

Concrètement j'ai un composant TAdoQuery qui est positioné sur la table Client. Lorsque j'efface une ligne j'utilise le composant TAdoCommand. Lorsque j'ai encore des lignes dans Client, TQuery pointe sur l'avant dernier enregistrement après la suppression d'une ligne. Mais s'il me reste une seule ligne dans ma table, TQuery ne se met pas à jour.

La solution que j'ai trouvé est de faire :

Code :

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

1
2
3
 
Query->Active = false;
Query->Active = true;

De cette façon les données sont mises à jour. Mais ma méthode est un peu violente. Si je fais

Code :

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

1
2
 
Query->Refresh();

J'ai un message d'erreur s'il n'y a plus de lignes dans la table.

Si quelqu'un voit une solution

Merci d'avance

[Patrick Seuret]

Tu as essayé avec un Requery() plutôt ? Le problème est que tu perds l'enregistrement en cours si tu as encore des lignes.

Voici ce que j'utilise:

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);
  }