Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ZeosLib и GetTableNames [D5, D7, MSSQL]


Sergant ©   (2003-05-27 14:41:00) 

Помогите, плиз.
Для доступа к MS Sql 6.5 использую ZeosLib.
Пытаюсь получить список таблиц базы данных, используя GetTableNames - ничего не получается:
У компонента ZMsSqlCononnection в свойстве AfterConnect пишу:
ZMsSqlCononnection.GetTableNames("тия_базы",false,ListBox1.Items)- пусто.
В чем косяк?


гончий   (2003-05-27 14:59:00) [1]

Вот еще вариант через System View:
----------------------------------
SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES


гончий   (2003-05-27 14:57:00) [2]

Вот тебе для затравки кусок моей функции для получения имен таблиц:
--------------------------------------
if( SysTables )then
dbw_sqlgetlist(IDb, "SELECT o.name FROM sysobjects o, sysindexes i"
+ " WHERE o.sysstat & 0xf 3 AND i.id = o.id AND i.indid < 2"
+ " AND o.name NOT LIKE ""#%"" ORDER BY o.name", "", List, False)
else
dbw_sqlgetlist(IDb, "SELECT o.name FROM sysobjects o, sysindexes i"
+ " WHERE o.sysstat & 0xf = 3 AND i.id = o.id AND i.indid < 2"
+ " AND o.name NOT LIKE ""#%"" ORDER BY o.name", "", List, False);
-----------------------------------


Наверх

Титульная страница Поиск, карта сайта Написать письмо