(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Как получить список таблиц в базе.

 
'1 вариант основан на использовании данных из системной таблицы MSysObjects

'(Не рекомендуется к применению, но работает)
Private Sub LoadTableList1()
Dim i As Long
Dim r As DAO.Recordset
i = 0
'Выводим список всех объектов текущей базы
Set r = CurrentDb.OpenRecordset("SELECT * from MSysObjects order by Flags,name")
While Not r.EOF And i < 200
    Debug.Print r("Name"), r("Type"), r("DateUpdate")
    r.MoveNext
    i = i + 1
Wend
r.Close
End Sub

'2 вариант основан на использовании коллекции TableDefs

Private Sub LoadTableList2()
Dim t As TableDef
'Выводим список таблиц текущей базы
For Each t In CurrentDb.TableDefs
    Debug.Print t.Name, t.LastUpdated
Next t
End Sub

Ссылки по теме

Файлы для загрузки


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 13.02.2008 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft 365 Apps for business (corporate)
Microsoft 365 Business Basic (corporate)
Microsoft Office 365 Персональный 32-bit/x64. 1 ПК/MAC + 1 Планшет + 1 Телефон. Все языки. Подписка на 1 год.
Microsoft Office для дома и учебы 2019 (лицензия ESD)
Microsoft Office 365 Профессиональный Плюс. Подписка на 1 рабочее место на 1 год
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Каждый день новые драйверы для вашего компьютера!
Компьютерная библиотека: книги, статьи, полезные ссылки
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100