[Gogolinsky]

Скажем при нажатии на кнопку происходит добавление новой строки в БД

Код:

procedure TForm5.Button11Click(Sender: TObject);
begin
 with DM.ADOQuery1 do
  begin
   Active:=False;
   SQL.Clear;
   SQL.Add('INSERT INTO books');
   SQL.Add('VALUES ("Все о перцах", "Семенов", 190)');
   ExecSQL;
  end;
end;

Админ: Пользуемся тегами для оформления кода!

Каким образом можно организовать транзакцию? (Delphi 7 + MS Access, ADOConnection)

[Gogolinsky]

Разобрался

Код:

procedure TForm5.Button11Click(Sender: TObject);
begin
 DM.ADOConnection1.BeginTrans;
  try
   with DM.ADOQuery1 do
    begin
     Active:=False;
     SQL.Clear;
     SQL.Add('INSERT INTO books');
     SQL.Add('VALUES ("Все о перцах", "Красный", 190)');
     ExecSQL;
    end;
   DM.ADOConnection1.CommitTrans;
  except
   ShowMessage('Сбой');
   DM.ADOConnection1.RollbackTrans;
  end;
end;

[g101k]

Ну да. только зачем тут транзакция, по сути ты делаешь только одно действие