ForNext
Only Do What Only You Can Do
09. インデックス一覧を取得する
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2006.07.15
void __fastcall TForm1::Button9Click(TObject *Sender) { //表示用コントロールをクリア ListBox1->Items->Clear(); //データベースを開く (排他モード = false, 読み込み専用 = true) Variant de = Variant::CreateObject("DAO.DBEngine.36"); Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << false << true); //テーブル定義を取得 Variant td = db.Exec(PropertyGet("TableDefs") << "M_商品"); //インデックス定義コレクションを取得 Variant idxs = td.Exec(Function("Indexes")); for (int i=0;i<idxs.Exec(PropertyGet("Count"));i++) { Variant idx = td.Exec(PropertyGet("Indexes") << i); //インデックス名を ListBox1 に表示 ListBox1->Items->Add(idx.Exec(PropertyGet("Name"))); } //データベースを閉じる db.Exec(Procedure("Close")); }
VC++
C#
Java
Objective-C
D
VB
更新日 : 2006.07.15
Private Sub Command9_Click() '表示用コントロールをクリア List1.Clear 'データベースを開く (排他モード = False, 読み込み専用 = True) Dim db As Database Set db = DBEngine.OpenDatabase("e:\test.mdb", False, True) 'テーブル定義を取得 Dim td As TableDef Set td = db.TableDefs("M_商品") Dim idx As Index For Each idx In td.Indexes 'インデックス名を ListBox1 に表示 List1.AddItem idx.Name Next 'データベースを閉じる db.Close End Sub
VB.NET
Delphi
更新日 : 2006.07.15
procedure TForm1.Button9Click(Sender: TObject); var de: Variant;//DBEngine db: Variant;//Database td: Variant;//TableDef idx:Variant;//Index i: Integer; begin //表示用コントロールをクリア ListBox1.Items.Clear; //データベースを開く (排他モード = false, 読み込み専用 = true) de := CreateOleObject('DAO.DBEngine.36'); db := de.OpenDatabase('e:\test.mdb', false, true); //テーブル定義を取得 td := db.TableDefs['M_商品']; for i := 0 to td.Indexes.Count - 1 do begin idx := td.Indexes[i]; //インデックス名を ListBox1 に表示 ListBox1.Items.Add(idx.Name); end; //データベースを閉じる db.Close; end;