VB Net Ms Access list column names (how to sample)

jhkraft · March 13th, 2008, 12:49 AM

VB Net 2005 how to list all MSAccess Table Column Names in the database MS.MDB

BrianWren · March 13th, 2008, 03:05 PM

Databases don't have column names, tables do. There is a tables collection that you can iterate through to find the tables in the DB. (You should probably skip the ones that start with "MSys".)

You can find the column names in a tabledef of each of the table you find in the tables collection.

BrianWren · March 13th, 2008, 03:27 PM

Code:

Public Sub FieldLister()

    Dim tdf As Variant
    Dim fld As Variant

    For Each tdf In CurrentDb.TableDefs

        If Left(tdf.Name, 4) <> "MSys" Then
            Debug.Print tdf.Name

            For Each fld In tdf.Fields
                Debug.Print fld.Name
            Next fld

        End If

        Debug.Print

    Next tdf

End Sub