| Вопрос: Таблицы в БД | Добавлено: 02.08.06 18:21 |
Автор вопроса:  Aydos | ICQ: 212149446 |
| Как посчитать количество таблиц в БД? Если не трудно .... |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа: mynog Вопросов: 3 Ответов: 42 |
Профиль | | #1 | Добавлено: 02.08.06 19:44 |
|
DAO или ADO?
Для DAO: Option Explicit
Private Sub Form_Load() Dim db As DAO.Database Set db = OpenDatabase(App.Path & "\myBase.mdb" 
' Число таблиц (насколько я помню, вместе с системными)... Debug.Print db.TableDefs.Count ' Число запросов... Debug.Print db.QueryDefs.Count ' Число свойств... Debug.Print db.Properties.Count '? Что еще интересует ? ' Например, имена всех таблиц и полей в них... Dim tbl As DAO.TableDef Dim fld As DAO.Field For Each tbl In db.TableDefs Debug.Print tbl.Name & "--->" For Each fld In tbl.Fields Debug.Print fld.Name Next fld Next tbl End Sub |
||
|
Номер ответа: 2 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 03.08.06 12:19 |
Хех.. От базы зависит наверное 
К примеру, SQL-DMO. Если сервак даст доступ. |
||
|
Номер ответа: 3 Автор ответа: Aydos ICQ: 212149446 Вопросов: 3 Ответов: 4 |
Профиль | | #3 | Добавлено: 03.08.06 17:48 |
|
' Число таблиц (насколько я помню, вместе с системными)...
А че за системные таблицы. Пробовал, получалось так: если база пустая показывает - 4 если есть одна таблица - 6 . Почему? |
||
|
Номер ответа: 4 Автор ответа: mynogВопросов: 3 Ответов: 42 |
Профиль | | #4 | Добавлено: 03.08.06 19:45 |
|
А че за системные таблицы.
Открой в акцессе базу и включи режим отображения скрытых и системных объектов (в меню "Сервис" -> "Параметры", вкладка "Вид" .
И будет тебе счастье! если база пустая показывает - 4 если есть одна таблица - 6 . Почему? А где, ты думаешь будут храниться связи между таблицами и кой-какая другая информация? По-моему какое-то свойство таблицы отвечает на ее принадлежность к системным, так что отфильтровать при большом желании можно (сделай перебор имен свойств таблиц и узнаешь, какое свойство - TableDef.Properties.Name) |
||
|
Номер ответа: 5 Автор ответа: AydosICQ: 212149446 Вопросов: 3 Ответов: 4 |
Профиль | | #5 | Добавлено: 04.08.06 07:15 |
| Спасибо | ||
Страница: 1 |