ZSQLProcessor und ProgressBar

[Gambit]

Hallo,
ich erstelle eine Datenbank mittels SQL-Skript, welches ich mit dem ZSQLProzessor ausführe. Die zu erstellende DB hat ca 20.000 Datensätze. Die DB wird wöchentlich neu erstellt, da immer neue Datensätze hinzukommen. Da das Erstellen nun eine ganze Weile dauert, möchte ich den Fortschritt der Erstellung über eine ProgressBar anzeigen lassen.
Wie könnte ich das am besten bewerkstelligen? Als Maximalwert müsste ich ja die Anzahl der zu erstellenden Datensätze haben? Müsste ich die aus dem Script herausparsen? Und wie bekomme ich heraus, wieviele DS schon erstellt wurden für die Position der Progressbar?

Gruß

Gambit

[Stevie]

Hi Gambit,

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ZSQLProcessor.Parse; // damit StatementCount das richtige Ergebnis liefert
  ProgressBar.Step := 1; // kann auch im OI eingestellt werden, da es sich ja nicht ändert
  ProgressBar.Position := 0; // Progressbar zurücksetzen
  ProgressBar.Max := ZSQLProcessor.StatementCount; // Anzahl der Statements
  ZSQLProcessor.Execute; // ausführen
end;

procedure TForm1.ZSQLProcessorAfterExecute(Processor: TZSQLProcessor;
  StatementIndex: Integer);
begin
  ProgressBar.StepIt; // wird bei jedem Statement aufgerufen...
end;

Die Hinweise beziehen sich auf die Version 6.5.1 ...

MfG
Stevie

[Gambit]

ja super, vielen Dank. Steht das in der Doku? In meinem MySQL Buch hatte ich nichts gefunden...

[Stevie]

Zitat von Gambit:

Steht das in der Doku? In meinem MySQL Buch hatte ich nichts gefunden...

Welche Doku meinst du? Die Zeos-Doku ist noch in der Mache.
Gibt's in deinem MySQL-Buch was über Zeos?

[Gambit]

stimmt, Freudsche Fehlleistung. Und woher weißt du das?

[Stevie]

Zitat von Gambit:

Und woher weißt du das?

Guck mal unten rechts in meiner Signatur...