Получение списка таблиц другой Базы данных (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 Просмотров: 8087
Ваш коментарий будет первым | | |