フィールド一覧を取得する void __fastcall TForm1::Button2Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant cat = Variant::CreateObject("ADOX.Catalog"); //Edit3 に mdbファイル名…