Delphi Personal で ADO

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

procedure TForm1.Button2Click(Sender: TObject);

var

    cat: Variant;//Catalog

    tbl: Variant;//Table

    col: Variant;//Column

    i:   Integer;

begin

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

    ListBox1.Items.Clear;

    ListBox2.Items.Clear;
    cat := CreateOleObject('ADOX.Catalog');
    //Edit3 に mdbファイル名を入力

    cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';
    //Edit4 に テーブル名を入力

    tbl := cat.Tables[Edit4.Text];
    for i := 0 to tbl.Columns.Count - 1 do

    begin

        col := tbl.Columns[i];
        //フィールド名を ListBox1 に表示

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

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

    end;

end;