Table Query synchronisieren

[ATS3788]

Hallo

Delphi-Quellcode:

            DataModule1.ZReadOnlyQuery2.First;
            DataModule1.ZReadOnlyQuery2.DisableControls;
            repeat
            if DataModule1.ZTable1.fieldByName('Counter').AsInteger =
            DataModule1.ZReadOnlyQuery2.fieldByName('Counter').AsInteger then
            break
            else
            DataModule1.ZReadOnlyQuery2.Next;
            until DataModule1.ZReadOnlyQuery2.EOF;
            DataModule1.ZReadOnlyQuery2.EnableControls;
            end; end;

Ich habe den Code im Internet gefunden um Tables/Querys zu synchronisieren. Wird ja jedesmal die Datenbank durchlaufen
bis der Datensatz gefunden. Kann man das besser lösen.

Ich freue mich auf Antworten

[himitsu]

TDataSet.Locate
Durchläuft zwar auch das DataSet, aber erstmal mußt du das nicht jedesmal durchlaufen und eventuell auch noch etwas Flotter.

Delphi-Quellcode:

DataModule1.ZTable1.fieldByName('Counter').AsInteger

hätte man am Anfang in eine Variable speichern können, anstatt es jedesmal erneut auszulesen.
Und deine Schleife ist falschrum ... WHILE, denn was wird wohl passieren, wenn es in ZReadOnlyQuery2 mal keinen Record gibt und worauf würde dann verglichen.

Und Locate würde intern auch nicht jedesmal das Feld neu suchen

Delphi-Quellcode:

DataModule1.ZReadOnlyQuery2.fieldByName('Counter').

, sondern sich ebenfalls, vor dem Durchlauf, nur einmal das Feld besorgen.

Delphi-Quellcode:

i := DataModule1.ZTable1.FieldByName('Counter').AsInteger;
DS := DataModule1.ZReadOnlyQuery2;
DS.DisableControls;
DS.First;
F := DS.FieldByName('Counter');
while not DS.EOF and (F.AsInteger <> i) do
  DS.Next;
DS.EnableControls;

[ATS3788]

danke himitsu

mhh hatte ich ja ganz vergessen den befehl.

martin michael