Neuzeichnen von TStatusbar

[Neelix]

Hallo,

in einem Programm werden nacheinander mehrere Query's

Delphi-Quellcode:

      StatusBar1.SimpleText := 'Erstelle tmp_blabla_1';
      StatusBar1.Repaint;
      dmCopyVertrag.qu_CreateDropTable.SQL.Clear;
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('CREATE TEMP TABLE tmp_blabla1 (');
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('bla_1 CHAR(20) NOT NULL,');
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('bla_2 INTEGER NOT NULL)');
      dmCopyVertrag.qu_CreateDropTable.ExecSQL;
      dmCopyVertrag.qu_tmp_blabla_1.ExecSQL;

      StatusBar1.SimpleText := 'Erstelle tmp_blabla_11';
      StatusBar1.Repaint;
      dmCopyVertrag.qu_CreateDropTable.SQL.Clear;
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('CREATE TEMP TABLE tmp_blabla_11 (');
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('bla_11 INTEGER NOT NULL,');
      dmCopyVertrag.qu_CreateDropTable.SQL.Add('bla_12 CHAR(21) NOT NULL)');
      dmCopyVertrag.qu_CreateDropTable.ExecSQL;
      dmCopyVertrag.qu_tmp_blabla_11.ExecSQL;

Der text in der Statusbar ändert sich aber erst, wenn alle Querys abgearbeitet sind und dann sthet dort "Fertig". Es ist aber nicht im Sinne des Erfinders, wenn nur der erste und der letzte Text angezeigt werden. Eigentlich soll man sehen können, an welcher Stelle im Programm man sich gerade befindet.
System: Windows XP, P4 2,4 GHz
Unter NT und einem P3 800 MHz hat's aber schon funktioniert und sogar ohne das Repaint. :wall:

[Luckie]

Delphi-Quellcode:

Statusbar1.Refresh/Repaint;

Sollte dein Problem lösen.

Oh hast du ja schon. Sind die Querys eventuell zu schnell?

[Neelix]

Die dauern eigentlich 'ne ganze Weile. Deswegen will ich das ja anzeigen.

[Luckie]

War nur eine Vermutung, da sie ja auf dem langsamen System angezeigt wurden. Mach doch mal ein Sleep(2000) nach dem Repaint der Statusbar.

[Neelix]

Werde ich vor dem nächsten Programmstart mal einbauen. ;-) Zur Zeit arbeitet das Programm gerade wieder (ca. eine halbe Stunde)

[Igotcha]

Zitat:

Zitat von Neelix

Die dauern eigentlich 'ne ganze Weile. Deswegen will ich das ja anzeigen.

Nur mal so ne Frage... was dauert denn beim Erstellen von 2 Tabellen mit je 2 Feldern "ne ganze Weile"?

[Echtet]

Hallo,

das Problem der mangelnden Aktualisierung hatte ich auch in einem ähnlichen Fall.

Bei mir konnte ich das Neuzeichnen durch den Aufruf von 'application.processmessages' (jeweils vor dem Ändern des Textes der Statusleiste) lösen.

Gruß,
Thimo

[Neelix]

Das:

Delphi-Quellcode:

dmCopyVertrag.qu_tmp_blabla_11.ExecSQL;

Dahinter verbirgt sich u.a. so etwas

SQL-Code:

INSERT INTO tmp_blabla_1
SELECT distinct b2.bla_2, b3.bla_3 
FROM blabla_21 b2, tmp_blabal_31 b3
WHERE b2.bla_22 = b3.bla_32
AND b2.bla_23 = b3.bla_33

Und davon gibt es mehrere. Eingefügt werden 1000 und mehr Datensätze und selectiert wird über Tabellen mit mehreren Tausend Datensätzen.

Und um gleich der Frage vorzubeugen, warum ich nicht erst mal mit wenigen Datensätze teste: Ich nutze das Programm zur Zeit im "scharfen Betrieb" und versuche nur nebenbei die Anzeige in der Statuszeile wieder hinzubekommen.

[Jasocul]

[quote="Igotcha"]

Zitat:

Zitat von Neelix

Nur mal so ne Frage... was dauert denn beim Erstellen von 2 Tabellen mit je 2 Feldern "ne ganze Weile"?

Ich vermute, dass Neelix ein implizites Drop der Tabellen macht. Deutet der Bezeichner der Komponente zumindest an.
Aber dann ist der Server/die Datenbank grottenlangsam oder die Tabellen sind mehrere zig GB groß.

[Neelix]

Zitat:

Zitat von Jasocul

Aber dann ist der Server/die Datenbank grottenlangsam oder die Tabellen sind mehrere zig GB groß.

Letzteres. Und hinzu kommt, das tausende von Datensätzen (meherere voneinander abhängige Tabellen mit RI) von Datenbank A nach Datenbank B kopiert werden, wobei die Datenbanken (zumindest zur Zeit) auf zwei unterschiedlichen Maschinen liegen. Ich habe ja in meinem Beispiel nur einen kleinen Ausschnitt gezeigt.