Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.09;
Скачать: CL | DM;

Вниз

Как программно получить список таблиц в BD   Найти похожие ветки 

 
Kolyan ©   (2002-11-20 14:02) [0]

Как программно получить список таблиц в BD? Можно ли для этого использовать какой-нить запрос? (у меня используются ADOQuery)


 
3JIA9I CyKA ©   (2002-11-20 14:22) [1]

А движок какой?


 
asafr ©   (2002-11-20 14:25) [2]

Обращайся к системной таблице, где прописаны названия таблиц БД.


 
3JIA9I CyKA ©   (2002-11-20 14:33) [3]

2asafr
А Вам не слабо проделать такое с Paradox?


 
asafr ©   (2002-11-20 14:39) [4]

слабо


 
Kuusiniemi ©   (2002-11-20 15:23) [5]

TSession.GetTableNames


 
3JIA9I CyKA ©   (2002-11-20 15:26) [6]

2Kuusiniemi
>>TSession.GetTableNames
А где это в ADO?


 
Kuusiniemi ©   (2002-11-20 16:27) [7]

Эээ... я имел в виду BDE, виноват, ADOQuery увидел поздно. :)


 
Kuusiniemi ©   (2002-11-20 16:35) [8]

Ну и либо использовать TADOConnection, либо по образцу действовать, ежели Connection неохота использовать.

procedure TADOConnection.GetTableNames(List: TStrings;
SystemTables: Boolean);
var
TypeField,
NameField: TField;
TableType: string;
DataSet: TADODataSet;
begin
CheckActive;
DataSet := TADODataSet.Create(nil);
try
OpenSchema(siTables, EmptyParam, EmptyParam, DataSet);
TypeField := DataSet.FieldByName("TABLE_TYPE"); { do not localize }
NameField := DataSet.FieldByName("TABLE_NAME"); { do not localize }
List.BeginUpdate;
try
List.Clear;
while not DataSet.EOF do
begin
TableType := TypeField.AsString;
if (TableType = "TABLE") or (TableType = "VIEW") or { do not localize }
(SystemTables and (TableType = "SYSTEM TABLE")) then { do not localize }
List.Add(NameField.AsString);
DataSet.Next;
end;
finally
List.EndUpdate;
end;
finally
DataSet.Free;
end;
end;


 
Kolyan ©   (2002-11-22 11:09) [9]

Всем большое спасибо за помощь! Порпобую - расскажу :))



Страницы: 1 вся ветка

Текущий архив: 2002.12.09;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
3-27848
Dimedrol
2002-11-20 15:47
2002.12.09
FormatDateTime в DBGrid-е ?


8-28145
Flying Bird
2002-08-18 01:34
2002.12.09
Проблемы с mediaplayer


1-28129
FROM_X
2002-11-28 17:43
2002.12.09
Ну будте человеками Innerfuse Pascal Script кто знает ?


6-28183
jel
2002-10-15 17:15
2002.12.09
Окошко, не желающее становиться активным


14-28252
Dbrf
2002-11-18 13:46
2002.12.09
Документация по RXLibrary