Delphi-PRAXiS - Delphi IBCScript Fortschritt

Hallöle... :P

Ich belästige euch mal wieder zum Samstag.

Man nehme ein SQL Script, lade es in ein IBCSript und führe es aus. :thumb: Soweit so gut. Das Script braucht lokal ca. 6 Sekunden. Das ist für keine Benutzerrückmeldung schon grenzwertig. Ich muß aber auch davon ausgehen, das das Script auch via Internet laufen könnte. Das dürfte die Ausführungszeit ein wenig :stupid: erhöhen.

Frage:
Via Google habe ich nichts finden können ob man mit dem IBCScript irgendwie einen Fortschritt hinbekommt. Es würde auch reichen... "Ich tu noch was". Klar könnte man das SQL in Querys aufteilen. Das finde ich aber nicht im Sinne des Erfinders.
Eine Rückmeldung in Form eines Fortschrittes der läuft und nach dem Ende wieder von vorn anfängt wäre leicht machbar.

Was denkt ihr? 8-)

Crosspost DT:

http://forum.delphi-treff.de/index.p...pt-Fortschritt

Nachtrag: Bei Firebird könnte man das über Events lösen. Wie sieht es aber mit anderen DBMS aus? (logischerweise wären dann die IBDAC durch die entsprechenden zu ersetzen)

Nachtrag2: Das Event AfterExecute des IBCScript wird nicht nach dem ganzen Script gefeuert sondern nach jedem SQL Statement. :thumb: Jetzt gilt es nur irgendwie zu ermitteln wieviele insgesamt vorhanden sind (Zeilen ohne Kommentarzeilen und Zeilenumbrüche)

Nachtrag3: Auch auf die Gefahr hin für die Selbstgespräche in Behandlung gehen zu müssen...:stupid: IBCScript hat eine Property Statements. Das hat auch einen Count. :oops:

Schön das wir darüber geredet haben... :thumb: