home > OLE オートメーション > ADO >

ForNext

Only Do What Only You Can Do

06. テーブル一覧を取得する

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

更新日 : 2005.12.13
void __fastcall TForm1::Button1Click(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 + ";");

    Variant tbls = cat.Exec(PropertyGet("Tables"));
    for (int i=0;i<tbls.Exec(PropertyGet("Count"));i++)
    {
        Variant    td = cat.Exec(PropertyGet("Tables")<<i);
        AnsiString s  = td.Exec(PropertyGet("Type"));
        if (s == "TABLE")
            ListBox1->Items->Add(td.Exec(PropertyGet("Name")));
    }
}

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

更新日 : 2005.12.13
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;

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system