Delphi Personal で DAO
インデックス一覧を取得する
procedure TForm1.Button3Click(Sender: TObject);
var
de:Variant;//DBEngine
db:Variant;//Database
td:Variant;//TableDef
fd:Variant;//Field
i :Integer;
begin
//表示用コントロールをクリア
ListBox1.Items.Clear;
ListBox2.Items.Clear;de := CreateOleObject('DAO.DBEngine.36');
//Edit3 に mdbファイル名を入力
db := de.OpenDatabase(Edit3.Text,false, false);//Edit4 に テーブル名を入力
td := db.TableDefs[Edit4.Text];for i := 0 to td.Indexes.Count - 1 do
begin
fd := td.Indexes[i];//インデックス名を ListBox1 に表示
ListBox1.Items.Add(fd.Name);
end;db.Close;
end;