ник: ShadowOfSun
попробуй этот код (подключи библиотеку ADO)
Dim cnn As ADODB.Connection
Dim rstDictionary As ADODB.Recordset
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As ADOX.Column
Set cnn = New ADODB.Connection
Set cnn = CurrentProject.Connection
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
For Each tbl In cat.Tables
For Each col In tbl.Columns
Debug.Print "++++++++++++++++++++++"
Debug.Print tbl.Name
Debug.Print "----------------------"
Debug.Print col.Name
Debug.Print col.Type
Next col
Next tbl
|
