Dim adoxCat As ADOX.Catalog
Dim col As ADOX.Column
Dim adoxTbl As ADOX.Table
Dim strDBPath As String
Set adoxCat = New ADOX.Catalog
adoxCat.ActiveConnection = GLB_con
For Each adoxTbl In adoxCat.Tables
If adoxTbl.Name = "USER_ACCESS" Then
For Each col In adoxCat(adoxTbl.Name).Columns
MsgBox col.Name
MsgBox col.Properties("Type")
MsgBox col.Properties("Description")
Next col
End If
Next adoxTbl
|