Thanks MGFoster! I appologies for not getting back sooner as I never did
recieve notice of a posting an just happend to come back an look.
My issues was with an .mdb DB an the TableDef object pointed me in the right
direction. I was using a query on the MSysObjects table within Access and
from all mention on the web there is also a MSysColumns table and I couldn't
find it. By reviewing your message and looking into the TableDefs I came
across the help I needed.
I've included the sample help code I found for anyone else who may come
across this discussion.
Thanks again for all your help, very much appreciated!!!!
Sample VB.Net catelog code.
Dim cn As New OleDb.OleDbConnection
Dim schemaTable As DataTable
Dim i As Integer
'Connect to the Northwind MSAccess Database on local drive
cn.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source='c:\Northwind.mdb'"
cn.Open()
'Retrieve schema information about tables.
'Because tables include tables, views, and other objects,
'restrict to just TABLE in the Object array of restrictions.
schemaTable = cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLE"})
'List the table name from each row in the schema table.
For i = 0 To schemaTable.Rows.Count - 1
Debug.WriteLine(schemaTable.Rows(i)!TABLE_NAME.ToString)
Next i
'Retrieve schema information about columns.
'Restrict to just the Employees TABLE.
schemaTable = cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Columns, _
New Object() {Nothing, Nothing, "Employees", Nothing})
'List the column name from each row in the schema table.
For i = 0 To schemaTable.Rows.Count - 1
Debug.WriteLine(schemaTable.Rows(i)!COLUMN_NAME.ToString)
Next i
'Explicitly close - don't wait on garbage collection.
cn.Close()
cn = nothing
schemaTable = nothing