Delphi Personal で ADO

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

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;