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;