C++Builder Personal で DAO

インデックスを作成する

void __fastcall TForm1::Button8Click(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);
    //Edit7 に インデックス名を入力

    Variant idx  = td.Exec(Function("CreateIndex")<<Edit7->Text);
    //Edit5 に フィールド名を入力

    Variant fd   = idx.Exec(Function("CreateField")<<Edit5->Text);

    Variant fds  = idx.Exec(PropertyGet("Fields"));

    fds.Exec(Procedure("Append")<<fd);
    Variant idxs = td.Exec(Function("Indexes"));

    idxs.Exec(Procedure("Append")<<idx);
    db.Exec(Procedure("Close"));

}