Как программно получить список таблиц в 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?

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

Ну и либо использовать 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;

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

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