Delphi Personal で ADO

インデックスを作成する

procedure TForm1.Button8Click(Sender: TObject);

var

    cat: Variant;//Catalog

    tbl: Variant;//Table

    idx: Variant;//Index

begin

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

    cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';
    //Edit4 に テーブル名を入力

    tbl := cat.Tables[Edit4.Text];
    //Edit7 に インデックス名を入力

    idx := CreateOleObject('ADOX.Index');

    idx.Name := Edit7.Text;
    //Edit5 に フィールド名を入力

    idx.Columns.Append(Edit5.Text);

    tbl.Indexes.Append(idx);

end;