C++Builder Personal で ADO

インデックスを作成する

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

    Variant idx = Variant::CreateObject("ADOX.Index");

    idx.Exec(PropertySet("Name")<<Edit7->Text);
    //Edit5 に フィールド名を入力

    Variant clms = idx.Exec(PropertyGet("Columns"));

    clms.Exec(Procedure("Append")<<Edit5->Text);
    Variant idxs = tbl.Exec(PropertyGet("Indexes"));

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

}