Delphi Personal で DAO

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

procedure TForm1.Button9Click(Sender: TObject);

var

    de:Variant;//DBEngine

    db:Variant;//Database

    td:Variant;//TableDef

begin

    de  :=  CreateOleObject('DAO.DBEngine.36');
    //Edit3 に mdbファイル名を入力

    db  :=  de.OpenDatabase(Edit3.Text,false, false);
    //Edit4 に テーブル名を入力

    td  :=  db.TableDefs[Edit4.Text];
    //Edit5, Edit6 に フィールド名を入力

    td.Fields[Edit5.Text].Properties['Description'] := 'Key項目';

    td.Fields[Edit6.Text].Properties['Description'] := 'Data項目';
    db.Close;

end;