テーブルを作成する procedure TForm1.Button6Click(Sender: TObject); var cat: Variant;//Catalog tbl: Variant;//Table const //ADODB.DataTypeEnum adArray: Integer = 8192; adBigInt: Integer = 20; adBinary: Integer = 128; adBoolean: Integer = 11…