C++Builder Personal で ADO

フィールドの説明を設定する

void __fastcall TForm1::Button9Click(TObject *Sender)

{

    Variant cat = Variant::CreateObject("ADOX.Catalog");
    //Edit3 に mdbファイル名を入力

    cat.Exec(PropertySet("ActiveConnection")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Edit3->Text + ";");
    //Edit4 に テーブル名を入力

    Variant tbl = cat.Exec(PropertyGet("Tables")<<Edit4->Text);
    //Edit5, Edit6 に フィールド名を入力

    Variant col  = tbl.Exec(PropertyGet("Columns")<<Edit5->Text);

    Variant prps = col.Exec(Function("Properties"));

    Variant prp  = prps.Exec(PropertyGet("Item")<<"Description");

    prp.Exec(PropertySet("Value")<<"Key項目");
    col  = tbl.Exec(PropertyGet("Columns")<<Edit6->Text);

    prps = col.Exec(Function("Properties"));

    prp  = prps.Exec(PropertyGet("Item")<<"Description");

    prp.Exec(PropertySet("Value")<<"Data項目");

}