Delphi Personal で DAO

Delphi DAO COM

インデックスを作成する



procedure TForm1.Button8Click(Sender: TObject);

var

    de :Variant;//DBEngine

    db :Variant;//Database

    td :Variant;//TableDef

    idx:Variant;

begin

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

    db  :=  de.OpenDatabase(Edit3.Text,false, false);
    //Edit4 に テーブル名を入力

    td  :=  db.TableDefs[Edit4.Text];
    //Edit7 に インデックス名を入力

    idx :=  td.CreateIndex(Edit7.Text);
    //Edit5 に フィールド名を入力

    idx.Fields.Append(idx.CreateField(Edit5.Text));

    td.Indexes.Append(idx);
    db.Close;

end;