トランザクションを取り消す procedure TForm1.Button19Click(Sender: TObject); var cnn :Variant;//Connection sql: string; begin cnn := CreateOleObject('ADODB.Connection'); //Edit3 に mdbファイル名を入力 cnn.ConnectionString := 'Provider=Micro…