Datenbank

[tomes-one]

und da bin ich schon wieder.

normaler weise mach ich nen COMIT wnn ich was in eine DB eintrage. deshalb mach ich das hier mit dem Befehl COMMITUPDATES.
aber irgendwie funzt das nicht.

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  ID,AKT_SES : integer;
begin
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM DEPOT_C');
  Query1.Open;
  ZQuery1.Connection := ZConnection1;
   while not Query1.Eof do
   begin
     ZQuery1.Open;
     ZQuery1.Last;
      if ZQuery1.FieldByName('ID').IsNull then
      begin
        ID := 0;
        AKT_SES := 0;
      end else
      begin
        ID := ZQuery1['ID'];
        AKT_SES := ZQuery1['AKTSESSION'];
      end;
      ZQuery1.Append;
      ZQuery1['ID']          := ID + 1;
      ZQuery1['AKTSESSION']  := AKT_SES + 1;
      ZQuery1['BEDIENER']    := Query1['BEDIENER'];
      ZQuery1.Post;
      Query1.Next;
    end;
  ZQuery1.CommitUpdates;
end;

[edit=mkinzler]Delphi-Tag eingefügt. Das nächste Mal bitte selber machen! Mfg, mkinzler[/edit]