Datenbank zurücksetzen..

[napstar]

hey.. hab da mal ein kleines problemchen ^^..
unzwar wollte ich meine datenbank per mausklick zurücksetzen.. nur leider will es nicht so richtig funktionieren..

Code:

  try
  for i := 1 to ADOTable1.RecordCount do begin
    ADOTable1.Edit;
    ADOTable1.FieldByName('Anzahl').AsInteger := 0;
    ADOTable1.FieldByName('Falsch').AsBoolean := False;
    ADOTable1.Post;
  end;
  finally
    ShowMessage('Ihre Datenbank wurde zurückgesetzt.');
  end;

was mache ich denn nur falsch?.. übrigens "ihre datenbank wurde zurückgesetzt" wird mir angezeigt obwohl es keine veränderungen in der datenbank gibt..

[DeddyH]

Du navigierst ja auch nicht durch die Datenmenge, sondern machst nur X mal dasselbe. Versuch mal:

Delphi-Quellcode:

ADOTable1.First;
while not ADOTable1.EOF do
  begin
    (* Aktuellen Datensatz bearbeiten *)
    ADOTable1.Next;
  end;

[edit] Per SQL geht das übrigens kürzer und wahrscheinlich auch schneller. [/edit]

[Der schöne Günther]

Delphi-Quellcode:

try X1, X2, ... Xn finally Y

bedeutet: "Mache X1, Mache X2, ... , Mache Xn. Ach ja, und egal ob es irgendwo mit Fehler rausfliegt oder nicht, mache auf jeden Fall Y"

Und den Cursor musst du natürlich auch weiterwandern lassen wie schon gesagt ;-)

[napstar]

hmmm dankeschön..^^ war ja leichter als gedacht

[Medium]

Als SQL ergibt sich das schlanke und flotte Statement:

SQL-Code:

UPDATE myTable SET Anzahl=0, Falsch=false

Da nicht mit WHERE eingeschränkt wird, werden alle Datensätze behandelt.

[mkinzler]

U.U. wäre es aber sinnvoller die DS zu löschen

[napstar]

leider kenne ich mich nicht mit sql befehlen aus..
weiß auch nicht wie man bei ner adotable mit sql befehlen arbeitet..

[mkinzler]

Wenn man mit SQL arbeitet, verwendet man keine Table-Komponenten.