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

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

Нужно вывести список существующих таблиц в базе. [D6, MSSQL]


Reals ©   (2002-04-01 17:46:00) 

Здравствуйте!
Первый вопрос:
Нужно узнать какие существуют таблицы в базе (вывести список).

Второй вопрос:
Какие существуют поля в указанной таблице (вывести список).

Помогите пожалуйста!
Заранее премного благодарен!


Sam3D   (2002-04-02 11:46:00) [1]

Если BDE, то попробуй посмотреть справку к BDE Administrator - там все неплохо расписано с примерами на Delphi.
1) см. функцию dbiOpenTableList;
2) dbiOpenFieldListи dbiGetFieldDescs.


Reals   (2002-04-02 11:30:00) [2]

Спасибо большое за ответы. С вашей помощью все получилось.
Удачи!
Вопрос закрыт.


nicolaus   (2002-04-02 10:33:00) [3]

А если BDE то:
кладешь TDataBase и TSession, коннектишься.
Потом методом TSession

GetTableNames(const DatabaseName, Pattern: String; Extensions, SystemTables: Boolean; List: TStrings);

загружаешь из в "List1".


SergSuper   (2002-04-02 09:53:00) [4]

... а колонки храняться в таблице syscolumns


deleon   (2002-04-02 08:30:00) [5]

Поищи ответы на свои вопросы на http://www.dbwork.kuban.ru
в разделе технологии


sniknik   (2002-04-01 17:54:00) [6]

Подключение через ADO?
тогда
ADOConnection.GetTableNames(TablesList,false);
и в MS SQL можно select из системной таблици сделать
вот проверка на одну таблицу
IF EXISTS (SELECT * FROM sysobjects WHERE (name = N"CashSail"))
как все выбрать несложно догадатся


Наверх

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