検索する void __fastcall TForm1::Button10Click(TObject *Sender) { //表示用コントロールをクリア Edit2->Text = ""; Variant de = Variant::CreateObject("DAO.DBEngine.36"); //Edit3 に mdbファイル名を入力 Variant db = de.Exec(Function("OpenDatab…