Very Computer

When designing a table in Access 2000 you define the Field Name, Data Type and a
space is provided to provide a Description of the field.

I'm needing the be able to view this field description field using VB6.  Any help
would be appreciated.

Thanks,
Phil

The string you're looking for is a property available in the DAO object library.  
However, the property is only available if it has been used, so trying to read it
in those cases will generate an error.  If you set your VB options to "Break on
Unhandled Errors", then the following snippet should print all of the
descriptions in a particular database to the immediate window.
(replace "C:\Data\Access\contacts.mdb" with the name and path of the database
you're trying to use)

Sub PrintDescription()
   Dim wrkDefault As DAO.Workspace, dbTest As DAO.Database, _
    tblCurrent As DAO.TableDef, fldCurrent As DAO.Field
    Set wrkDefault = DBEngine.Workspaces(0)
    Set dbTest = wrkDefault.OpenDatabase("C:\Data\Access\contacts.mdb")
    For Each tblCurrent In dbTest.TableDefs
        For Each fldCurrent In tblCurrent.Fields
            On Error Resume Next
            Debug.Print fldCurrent.Properties("Description")
        Next fldCurrent
    Next tblCurrent
End Sub

Quote:-----Original Message-----

When designing a table in Access 2000 you define the Field Name, Data Type and a
space is provided to provide a Description of the field.

I'm needing the be able to view this field description field using VB6.  Any help
would be appreciated.

Thanks,
Phil

You can use:

Dim sMsg As String
Dim objField As Field
...
Set objRecordset = objADOConnection.OpenSchema(adSchemaColumns, Array(Empty,
Empty, "MyTable"))
Do While Not objRecordset.EOF
   sMsg = ""
   For Each objField In objRecordset.Fields
      sMsg = sMsg & objField.Name & " = " & CStr("" & objField.Value) &
vbCrLf
   Next
   MsgBox sMsg
   objRecordset.MoveNext
Loop
objRecordset.Close

There is a Field in the recordset ("DESCRIPTION") that gives you that info.

Another approach is to use ADOX.

--
Best regards,

Carlos J. Quintero

MZ-Tools 2.0 (New version) freeware 'all-in-one' Add-In for VB6: Task List,
Line Numbering, TabIndex Assistant, Procedure Callers, Find and Replace in
All Projects, Close Windows, Review TabIndex and Collections, Add Procedure,
Add Error Handler, Add Procedure or Module Header, Clear Immediate Window,
Statistics, Copy/Paste/Rename/Remove controls with code, Default Controls
Properties and more:
www.mztools.com

When designing a table in Access 2000 you define the Field Name, Data Type
and a
space is provided to provide a Description of the field.

I'm needing the be able to view this field description field using VB6.  Any
help
would be appreciated.

Thanks,
Phil