alle AdoDatasets aktualisieren

hoho haha · Hält's aus hier Beiträge: 1

Hallo zusammen,

ich habe eine größere Applikation, mit mehreren Datasets. Momentan rufen ich für jedes Dataset die Requery Prozedur separat auf. Da sich Namen und Anzahl der Datasets immer wieder ändert, wäre es praktisch, wenn man alle TBetterADODataset Objekte, die den Status Open haben, in einer Prozedur automatisch aktualisieren könnte.
Gibt es hier eine Möglichkeit?

Danke

alzaimar · Verfasst: Di 14.10.08 22:37

Deklariere alle Datenmengen (TDataSet-Abkömmlinge) in einem oder mehreren Datenmodulen. Jedes Datenmodul sollte einen logisch abgeschlossenen Bereich deiner Datenbank beinhalten. Dann kannst Du durch alle Komponenten deines Datenmoduls iterieren und die Komponenten, die TBetterADODatasets sind, entsprechend behandeln:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

Procedure TDatamodule.RefreshAllDatasets;
Var
  i : Integer;

Begin
  For i:=0 To Components.Count - 1 do
    If Components[i] is TBetterADODataset Then
      TBetterADODataset(Components[i]).Refresh;
End;

So oder ähnlich sollte es funktionieren.

_________________
Na denn, dann. Bis dann, denn.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme