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

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;

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system