ForNext
Only Do What Only You Can Do
05. インデックスを作成する
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2006.07.15
void __fastcall TForm1::Button5Click(TObject *Sender) { //データベースを開く (排他モード = true, 読み込み専用 = false) Variant de = Variant::CreateObject("DAO.DBEngine.36"); Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << true << false); //テーブル定義を取得 Variant td = db.Exec(PropertyGet("TableDefs") << "M_商品"); //インデックス定義を作成 Variant idx = td.Exec(Function("CreateIndex") << "PK_商品"); //インデックスにフィールドを追加 Variant fd = idx.Exec(Function("CreateField") << "商品CD"); Variant fds = idx.Exec(PropertyGet("Fields")); fds.Exec(Procedure("Append") << fd); //プライマリーキーとして作成 idx.Exec(PropertySet("Primary") << true); //テーブルにインデックスを追加 Variant idxs = td.Exec(Function("Indexes")); idxs.Exec(Procedure("Append") << idx); //データベースを閉じる db.Exec(Procedure("Close")); }
VC++
C#
Java
Objective-C
D
VB
更新日 : 2006.07.15
Private Sub Command5_Click() 'データベースを開く (排他モード = True, 読み込み専用 = False) Dim db As Database Set db = DBEngine.OpenDatabase("e:\test.mdb", True, False) 'テーブル定義を取得 Dim td As TableDef Set td = db.TableDefs("M_商品") 'インデックス定義を作成 Dim idx As Index Set idx = td.CreateIndex("PK_商品") 'インデックスにフィールドを追加 idx.Fields.Append idx.CreateField("商品CD") 'プライマリーキーとして作成 idx.Primary = True 'テーブルにインデックスを追加 td.Indexes.Append idx 'データベースを閉じる db.Close End Sub
VB.NET
Delphi
更新日 : 2006.07.15
procedure TForm1.Button5Click(Sender: TObject); var de :Variant;//DBEngine db :Variant;//Database td :Variant;//TableDef idx:Variant;//Index begin //データベースを開く (排他モード = true, 読み込み専用 = false) de := CreateOleObject('DAO.DBEngine.36'); db := de.OpenDatabase('e:\test.mdb', true, false); //テーブル定義を取得 td := db.TableDefs['M_商品']; //インデックス定義を作成 idx := td.CreateIndex('PK_商品'); //インデックスにフィールドを追加 idx.Fields.Append(idx.CreateField('商品CD')); //プライマリーキーとして作成 idx.Primary := true; //テーブルにインデックスを追加 td.Indexes.Append(idx); //データベースを閉じる db.Close; end;