ГлавнаяMS ACCESS Получение списка таблиц другой Базы данных (MSA 2000)
Получение списка таблиц другой Базы данных (MSA 2000)
Автор Прус Юрий
27.07.2001 г.
Получение списка таблиц другой Базы данных (MSA 2000)
Получение списка таблиц другой Базы данных (MSA 2000)
Метод ADOX
Sub ListAccessTables() Dim catDB As ADOX.Catalog Dim tblList As ADOX.Table strDBPath = "c:MdbSourse.mdb" 'Путь к исследуемой БД . Можно изменить Dim str As String
Set catDB = New ADOX.Catalog ' Открытие объекта Catalog catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strDBPath
'Просмотр таблиц и печать их имен и типов For Each tblList In catDB.Tables If tblList.Type <> "VIEW" Then Debug.Print tblList.Name & vbTab & tblList.Type 'Присвоение переменной str именн таблиц и их типов str = str & tblList.Name & " - " & tblList.Type & Chr(13) & Chr(10) End If Next [Text4] = str 'Присвоение полю [Text4] результата str Set catDB = Nothing End Sub
!!! В форме надо создать текстовое поле [Text4]. И не забудьте добавить в References Microsoft ADO Ext. 2.5 for DDL and Security