C++Builder Personal で DAO

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

void __fastcall TForm1::Button9Click(TObject *Sender)

{

    Variant de = Variant::CreateObject("DAO.DBEngine.36");
    //Edit3 に mdbファイル名を入力

    Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<<false<<false);
    //Edit4 に テーブル名を入力

    Variant td = db.Exec(PropertyGet("TableDefs")<<Edit4->Text);
    const int dbText = 10;
    //Edit5, Edit6 に フィールド名を入力

    Variant fd   = td.Exec(PropertyGet("Fields")<<Edit5->Text);

    Variant prp  = fd.Exec(Function("CreateProperty")<<"Description"<<dbText<<"Key項目");

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

    prps.Exec(Procedure("Append")<<prp);
    fd   = td.Exec(PropertyGet("Fields")<<Edit6->Text);

    prp  = fd.Exec(Function("CreateProperty")<<"Description"<<dbText<<"Data項目");

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

    prps.Exec(Procedure("Append")<<prp);
    db.Exec(Procedure("Close"));

}