トランザクションを取り消す void __fastcall TForm1::Button19Click(TObject *Sender) { Variant de = Variant::CreateObject("DAO.DBEngine.36"); //トランザクションを開始 de.Exec(Procedure("BeginTrans")); //Edit3 に mdbファイル名を入力 Variant db…