How to find Column Description

[vivek_29]

Hi Guys,

I have a small problem.I m creating a database in SQL Server.Now because of our naming convention standards me coulnn names are not descriptive in nature.For e.g. 'First Name' will be TSUY65FN.

Now Since it is not possible to remember these name we also store Description of these fields while creating the tables.

Now comes the real problem.I want to access these descriptions through vb.I am using ADO2.5.

Can you help Me?

[Judgey]

You should be able to modify the below to suit your needs ;

Function GetFieldDescription (ByVal MyTableName As String,       ByVal MyFieldName As String)
         Dim DB As Database
         Dim TD As TableDef
         Dim FLD As Field

         Set DB = DBEngine.Workspaces(0).Databases(0)

         On Error GoTo Err_GetFieldDescription

         Set TD = DB.TableDefs(MyTableName)
         Set FLD = TD.Fields(MyFieldName)

         GetFieldDescription = FLD.Properties("Description")

      Bye_GetFieldDescription:
         Exit Function

      Err_GetFieldDescription:
         Beep: MsgBox Error$, 48
         GetFieldDescription = Null
         Resume Bye_GetFieldDescription

End Function

[TimCottee]

vivek_29, as I understand it (I will attempt to find some reference material to back this up soon the "Description" field in the OLEDB provider is marked as optional and to date the SQL server providers do not actually populate this field though it exists.