ADO Code To Change A Table FieldName's Description

[jstevens]

Is it possible to change a table field name's description using ADO code?

Example: Table name = myTable
FieldName=Apple, DataType=Text and Description=None

I would like the Description associated with the FieldName Apple to change from None to Green.

Thanks for taking a look,
John

[HansV]

You need to set a reference to the "Microsoft ADO Ext. 2.8 for DDL and Security" library (for .mdb) or to the "Microsoft ADO Ext. 6.0 for DDL and Security" library (for .accdb).
I assume that you already have an ADODB connection to the database, say in a variable conn.
You can then use code like this:

Code: Select all

    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim col As ADOX.Column

    ' code to set/open conn
    ...

    ' Make a catalog for the database.
    Set cat = New ADOX.Catalog
    Set cat.ActiveConnection = conn

    ' Get the table.
    Set tbl = cat.Tables("myTable")

    ' Get the column.
    Set col = tbl.Columns("Apple")

    ' Set the Description property.
    col.Properties("Description") = "Green"

[jstevens]

Hans,

I was able to change the description.

I learned something new today about ADOX.

Thank you,
John