ForNext

04. インデックスを作成する

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

void __fastcall TForm1::Button8Click(TObject *Sender)
{
    Variant cat = Variant::CreateObject("ADOX.Catalog");

    //Edit3 に mdbファイル名を入力
    cat.Exec(PropertySet("ActiveConnection")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Edit3->Text + ";");

    //Edit4 に テーブル名を入力
    Variant tbl = cat.Exec(PropertyGet("Tables")<<Edit4->Text);

    //Edit7 に インデックス名を入力
    Variant idx = Variant::CreateObject("ADOX.Index");
    idx.Exec(PropertySet("Name")<<Edit7->Text);

    //Edit5 に フィールド名を入力
    Variant clms = idx.Exec(PropertyGet("Columns"));
    clms.Exec(Procedure("Append")<<Edit5->Text);

    Variant idxs = tbl.Exec(PropertyGet("Indexes"));
    idxs.Exec(Procedure("Append")<<idx);
}

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

procedure TForm1.Button8Click(Sender: TObject);
var
    cat: Variant;//Catalog
    tbl: Variant;//Table
    idx: Variant;//Index
begin
    cat := CreateOleObject('ADOX.Catalog');

    //Edit3 に mdbファイル名を入力
    cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';

    //Edit4 に テーブル名を入力
    tbl := cat.Tables[Edit4.Text];

    //Edit7 に インデックス名を入力
    idx := CreateOleObject('ADOX.Index');
    idx.Name := Edit7.Text;

    //Edit5 に フィールド名を入力
    idx.Columns.Append(Edit5.Text);
    tbl.Indexes.Append(idx);
end;

Ada

PL/SQL

T-SQL