Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c