ник: Lukas
Public Sub PrintDescriptionWithADOX()
Dim adoxCat As ADOX.Catalog
Dim adoxTbl As ADOX.Table
Dim adoxCol As ADOX.Column
Set adoxCat = New ADOX.Catalog
adoxCat.ActiveConnection = CurrentProject.Connection 'Здесь твой коннекшн нужен будет
For Each adoxTbl In adoxCat.Tables
If adoxTbl.Type = "TABLE" Then
With adoxTbl
For Each adoxCol In .Columns
Debug.Print .Name, adoxCol.Name, adoxCol.Properties("Description")
Next adoxCol
End With
End If
Next adoxTbl
Set adoxCat = Nothing
Set adoxTbl = Nothing
End Sub
|
Вырезано отсюда:
http://hiprog.com/index.php?option=com_content&task=view&id=251661555
Как всегда спасибо Олегу.
