C++Builder Personal で ADO

インデックス一覧を取得する

void __fastcall TForm1::Button3Click(TObject *Sender)

{

    //表示用コントロールをクリア

    ListBox1->Items->Clear();

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

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

    Variant td   = cat.Exec(PropertyGet("Tables")<<Edit4->Text);

    Variant idxs = td.Exec(Function("Indexes"));
    for (int i=0;i<idxs.Exec(PropertyGet("Count"));i++)

    {

        Variant idx = td.Exec(PropertyGet("Indexes")<<i);
        //インデックス名を ListBox1 に表示

        ListBox1->Items->Add(idx.Exec(PropertyGet("Name")));

    }

}