Delphi Personal で ADO

テーブル一覧を取得する

procedure TForm1.Button1Click(Sender: TObject);

var

    cat: Variant;//Catalog

    i:   Integer;

begin

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

    ListBox1.Items.Clear;

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

    cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';
    for i := 0 to cat.Tables.Count - 1 do

    begin

        if cat.Tables[i].type = 'TABLE' then

            ListBox1.Items.Add(cat.Tables[i].Name);

    end;

end;