Daten Schleife schneller machen

[robby3]

Hei ich brauche eure Hilfe
kann mir jemand einen Tipp geben wie ich meine Routine schneller machen kann.
Ich möchte in einer Datenbank den Inhalt Lagerb von Stueck abziehen.
Hier mein Code :?: :wink:

Delphi-Quellcode:

procedure TWAusgang.Button6Click(Sender: TObject);
begin
if  Data.TableStueckliste.active= false then exit;
try
i2:= StrToInt(edit1.text);
except
Showmessage('Keine gültige Zahl im Textfeld!');
exit;
end;
for i1:= 1 to i2 do
begin

Data.tableLager.indexname:='pos';
 data.tableCopy.active:=true;    
Data.TableStueckliste.first;
Data.TableCopy.first; 
 
while not Data.tableCopy.Eof do begin
Data.TableCopy.edit;
 Data.TableCopy.fieldByName('lagerb').AsInteger :=
  Data.TableCopy.fieldByName('lagerb').AsInteger-
  Data.TableCopy.fieldByName('stueck').AsInteger;
  Data.TableCopy.post;

  Data.TableCopy.next;

   end; 
end;

[supermuckl]

eventuell kann das ja die datenbank schon?
mit einem tollen query kannste das dann superschnell machen LASSEN

[Jelly]

Zitat:

Zitat von supermuckl

eventuell kann das ja die datenbank schon?
mit einem tollen query kannste das dann superschnell machen LASSEN

Also so toll ist der SQL Befehl nun aber wahrlich nicht, und auch nicht unbedingt Datenbankabhängig.

SQL-Code:

update TabellenName set lagerb=lagerb-stueck

Das Ganze in eine TQuery Komponente in die SQL Eigenschaft gelegt und mit

Delphi-Quellcode:

Query1.ExecSQL ;

ausgeführt.

EDIT:
Noch ein Nachtrag... Habe jetzt ganz übersehen, dass das Ganze i2 mal passieren soll... Dann so

Delphi-Quellcode:

with Query1 do begin
   SQL.text := Format ('update TabellenName set lagerb = lagerb - %d * stueck',[i2]) ;
   ExecSQL ;
end ;

[alzaimar]

Du musst aber supermuckl nicht so herablassend behandeln. Denn ob ein SQL-Befehl 'so toll' ist oder nicht, hängt in erster Linie von der Erfahrung und vom Wissen des Posters oder Lesers ab. Und nur weil Du vielleicht hier etwas mehr Wissen angehäuft hast, sollte kein Grund sein, von Oben herab so eine Äußerung durch den Kakao zu ziehen. In einem Punkt hat das supermuckl aber Recht: Die Fähigkeit, einen SQL-Befehl performant abzuarbeiten, ist in der Tat datenbankabhängig.

Wer wirklich Ahnung hat, hat es auch nicht nötig, das raushängen zu lassen. Denk mal drüber nach.

[Jelly]

Zitat:

Zitat von alzaimar

Wer wirklich Ahnung hat, hat es auch nicht nötig, das raushängen zu lassen. Denk mal drüber nach.

Wie bist Du denn drauf. :gruebel:
Also ich hab doch hier keinen durch den Kakao gezogen. War zumindest nicht meine Absicht.

[alzaimar]

Zitat:

Zitat von Jelly

Zitat:

Zitat von alzaimar

Wer wirklich Ahnung hat, hat es auch nicht nötig, das raushängen zu lassen. Denk mal drüber nach.

Wie bist Du denn drauf. :gruebel:
Also ich hab doch hier keinen durch den Kakao gezogen. War zumindest nicht meine Absicht.

Ist es zu spät für mich? Kann sein. Wenn Du dich nicht angesprochen fühlst, dann bin ich zu alt. Deine Äußerung 'so toll ist ...' lies mich annehmen, Du würdest das nicht Ernst nehmen, aber jetzt seh' ich erst, das Du es bist, Jelly. Stimmt. Ist nicht Deine Art.

Tschuljung.

[Pluto]

Genereller Tipp:
Solche Schleifen können ganz schön Zeit kosten, insbesondere wenn die Datenbank
auf einem Server im (lokalem) Netz steht. (Es lässt sich auch nicht alles mit
SQL machen)

Ich gehe in solchen Fällen so vor:
1. Mit einer Query die Daten in ein Clientdataset laden.
2. Daten dann lokal verarbeiten. Da Alles im Memory abläuft, werden auch lange Schleifen
mit tausenden von Datensätzen blitzschnell verarbeitet.
3. Mit ApplyUpdates Resultate auf einen Rutsch in die Datenbank übertragen.

[robby3]

Hei Danke es funzelt mit dem Code.

Delphi-Quellcode:

with Query1 do begin 
   SQL.text := Format ('update TabellenName set lagerb = lagerb - %d * stueck',[i2]) ; 
   ExecSQL ; 
end ;

Nochmals Danke. :bounce2:

[supermuckl]

das "so toll" hätte ich wohl noch ein wenig ironischer erscheinen lassen sollen ;)
ich bin schon etwas länger mit mysql + php + delphi am querys bauen.
aber kein problem, ich habs nicht persönlich genomen jelly :)
//edit
ich wollte halt nicht gleich die lösung auf dem silbertablett präsentieren.

[Jelly]

Zitat:

Zitat von supermuckl

aber kein problem, ich habs nicht persönlich genomen jelly :)

Passt schon, wollt ja auch keinem was unterstellen. Hauptsache die Frage ist beantwortet.