ForNext

03. フィールドの説明を設定する

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

void __fastcall TForm1::Button9Click(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);

    //Edit5, Edit6 に フィールド名を入力
    Variant col  = tbl.Exec(PropertyGet("Columns")<<Edit5->Text);
    Variant prps = col.Exec(Function("Properties"));
    Variant prp  = prps.Exec(PropertyGet("Item")<<"Description");
    prp.Exec(PropertySet("Value")<<"Key項目");

    col  = tbl.Exec(PropertyGet("Columns")<<Edit6->Text);
    prps = col.Exec(Function("Properties"));
    prp  = prps.Exec(PropertyGet("Item")<<"Description");
    prp.Exec(PropertySet("Value")<<"Data項目");
}

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

procedure TForm1.Button9Click(Sender: TObject);
var
    cat: Variant;//Catalog
    tbl: Variant;//Table
    col: Variant;//Column
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];

    //Edit5, Edit6 に フィールド名を入力
    col := tbl.Columns[Edit5.Text];
    col.Properties('Description') := 'Key項目';

    col := tbl.Columns[Edit6.Text];
    col.Properties('Description') := 'Data項目';
end;

Ada

PL/SQL

T-SQL