Delphi Personal で DAO

フィールド一覧を取得する

procedure TForm1.Button2Click(Sender: TObject);

var

    de:Variant;//DBEngine

    db:Variant;//Database

    td:Variant;//TableDef

    fd:Variant;//Field

    i :Integer;

begin

    //表示用コントロールをクリア

    ListBox1.Items.Clear;

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

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

    td  :=  db.TableDefs[Edit4.Text];
    for i := 0 to td.Fields.Count - 1 do

    begin

        fd := td.Fields[i];
        //フィールド名を ListBox1 に表示

        ListBox1.Items.Add(fd.Name);
        //フィールドの説明を ListBox2 に表示

        ListBox2.Items.Add(fd.Properties['Description']);

    end;
    db.Close;

end;