Comment rafraîchir dbgrid sans fermer et ouvrir le jeu de données dans Delphi?

Question

J'ai besoin de rafraîchir constamment dbgrid, en temps réel. Fermer et ouvrir le jeu de données fonctionne bien, mais clignote le dbgrid. Que puis-je faire pour éviter cela?

Je voudrais une solution comme Ajax, cette mise à jour seulement le nécessaire.

Merci

Answer 1

Avez-vous essayé d'utiliser Disable- & EnableControls?

DataSet.DisableControls; 
try 
    DataSet.Close; 
    DataSet.Open; 
finally 
    DataSet.EnableControls; 
end; 

En outre, il devrait être possible d'appeler simplement DataSet.Refresh au lieu de fermeture et d'ouverture pour obtenir le même résultat.

Answer 2

J'utilise dans mon application

DataSet.MergeChangeLog; 
DataSet.ApplyUpdates(-1); 
DataSet.Refresh; 

Le code ci-dessus est dans un action nommé actRefreshData, dans le ActionManager

Quand je dois-je utiliser appelle simplement comme

actRefreshData.Execute; 

Espérons que cela aide.

Astuce: vous pouvez ajouter un Timer et automatiser ce

Answer 3

Regardez ici:

type THackDataSet=class(TDataSet); // a nice "hack" so we can access 
//protected members 
THackDBGrid=class(TDBGrid); 

procedure {tdmdb.}refreshgrid(grid : tdbgrid); 

var row, recno : integer; 
    ds : tdataset; 
    b : tbookmark; 
begin 
    Row := THackDBGrid(grid).Row;// or THackDataSet(ds).ActiveRecord 

    ds := grid.datasource.dataset; 

    RecNo := ds.RecNo; 

    b := ds.GetBookmark; 

    try 
    ds.close; 
    ds.Open; 
    finally 
    if (b<>nil) and ds.BookMarkValid(b) then 
    try 
    //  ds.GotoBookMark(b); 
     ds.CheckBrowseMode; 
     THackDataSet(ds).DoBeforeScroll; 
     THackDataSet(ds).InternalGotoBookmark(b); 
     if THackDataSet(ds).ActiveRecord <> Row - 1 then 
     THackDataSet(ds).MoveBy(Row - THackDataSet(ds).ActiveRecord - 1); 
     ds.Resync([rmExact{, rmCenter}]); 
     THackDataSet(ds).DoAfterScroll; 
    finally 
     ds.FreeBookMark(b); 
    end 
    else if (recno<ds.RecordCount) and (recno<>ds.RecNo) then 
    begin 
     ds.First; 
     ds.MoveBy(Max(0, recno-1)); 
    end; 
    end; 
end;