ADO langsam :-(

[haentschman]

Hallöle...

Ich bin am Verzweifeln...

Ich muß 50000 Datensätze in eine generische Liste laden. Soweit so gut... Das SQL holt die Daten über eine Query ab. Das dauert max. eine Sekunde.
Und jetzt kommts... Die Schleife bis EOF dauert 25 Sekunden. ...auch wenn ich die Schleife nackig ohne Inhalt laufen lasse.

Delphi-Quellcode:

while not Query.Eof do
begin
  Blubb := TBlubb.Create;
  Blubb.Caption := DataSet.FieldByName('Bla').AsString;
  List.Add(Blubb);
end; // ca. 25 Sekunden

Die Query wird immer neu erzeugt. Es sind keine Events eingehängt. An welcher Schraube muß ich drehen das der Durchlauf besser wird?
Als Vergleich: Mit NEXUS passiert das nicht. Da ist die Schleife in ca. 2 Sekunden durch.

Das hat nichts mit der DB als solches zu tun... sondern mit ADO. Ich weiß schon warum ich die hasse...

Danke.

[p80286]

Vor langer,langer Zeit hat Gerhard etwas dazu geschrieben, ich hab die Details leider nich mehr im Kopf, unter der Delphi Schicht gibt es so etwas ähnliches wie resultrecords, die sind sauschnell.

Gruß
K-H

[haentschman]

Danke...

Die Query stammt aber aus einer Abstraktionsschicht für verschiedene DBMS. Da komme ich nicht dran... Ich habe nur die TDataSet Methoden verfügbar.

LÖSUNG:
TDataSet.DisableControls Obwohl keine Controls oder Events dranhängen ist es nun mit einer Sekunde deutlich schneller. Ohne Worte...

Again what learned...

[mensch72]

noch schneller wird es, wenn du nicht bei jedem Schleifendurchlauf fas Feld über den Feldnamen "suchst"..

also besser vor der Schleife
field : TField;
field := DataSet.FieldByName('Bla');

in der Schleife:
Blubb.Caption := field.AsString;

[p80286]

Zitat von haentschman:

LÖSUNG:
TDataSet.DisableControls Obwohl keine Controls oder Events dranhängen ist es nun mit einer Sekunde deutlich schneller. Ohne Worte...

Again what learned...

Kein DBGrid oder ähnliches??
Gruß
K-H

[haentschman]

Zitat:

Kein DBGrid oder ähnliches??

...nö. Nackige Datenbankabfrage und packen in eine Liste. Da müssen trotzdem irgendwelche Eventorgien ablaufen.

[Uwe Raabe]

Zitat von mensch72:

noch schneller wird es, wenn du nicht bei jedem Schleifendurchlauf fas Feld über den Feldnamen "suchst"..

Seitdem TDataSet die Zuordnung Feldname/Feld in einem TDirctionary vorhält, ist der dadurch erreichte Vorteil nicht mehr so groß wie er früher mal war.

[p80286]

Zitat von haentschman:

Zitat:

Kein DBGrid oder ähnliches??

...nö. Nackige Datenbankabfrage und packen in eine Liste. Da müssen trotzdem irgendwelche Eventorgien ablaufen.

Mal sehen ob ich nächste Woche etwas Zeit finde.
Ein gewisser Vista-Fan wird zwar sagen, das ist ein toter Gaul, aber vielleicht macht es den einen oder anderen glücklich.

Welche DB und welcher Provider? Vielleicht sitzt da der Schmutzfink.

Gruß
K-H

[haentschman]

Zitat:

Welche DB und welcher Provider? Vielleicht sitzt da der Schmutzfink.

...falsch. (MSSQL 2012, ADO)
siehe:

Zitat:

Das SQL holt die Daten über eine Query ab. Das dauert max. eine Sekunde.

... das ist in Ordnung.

Zitat:

Die Schleife bis EOF dauert 25 Sekunden. ...auch wenn ich die Schleife nackig ohne Inhalt laufen lasse

... das nicht.

Zitat:

das ist ein toter Gaul

...ich habe mir die ADO nicht ausgesucht.

Zitat:

Mal sehen ob ich nächste Woche etwas Zeit finde.

...für mich brauchtst du keine Zeit mehr investieren. Ich habe fertig...

[Aviator]

Zitat von haentschman:

Zitat:

das ist ein toter Gaul

...ich habe mir die ADO nicht ausgesucht.

Was würdet ihr denn in Verbindung mit MSSQL empfehlen? Also was die Standardkomponenten angeht die bei Delphi 10.1 Berlin dabei sind?!