Hallo,
Zitat:
procedure TForm1.Button5Click(Sender: TObject);
begin
DataModule2.ADOConnection1.BeginTrans;
with DataModule2.ADOQuery1 do
try
Active:=false;
SQL.Clear;
Append;
SQL.Add('INSERT INTO Fehlerbericht (Feld1, Feld2, Feld3) VALUES ("Wert1", "Wert2", "Wert3")');
ExecSQL;
DataModule2.ADOConnection1.CommitTrans;
except
on E:
Exception do DataModule2.ADOConnection1.RollbackTrans;
end;
end;
Ich glaube du musst nur active auf true setzten.
M.f.G.
Kunsch Alain