Нужно загрузить в TComboBox.Items все имеющиеся таблицы

← →
michael_B (2002-01-11 12:43) [0]

Проблема такая:
Нужно загрузить в TComboBox.Items все имеющиеся таблицы
в базе данных. С базой данных соединяюсь через ADO.

Заранее благодарен.

← →
aus (2002-01-12 01:06) [1]

Items - это же TStringList, можно загрузить последовательно считывая записи и добавляя в список.
Но вот не понятно, что значит ВСЕ таблицы. Т.е. в один ComboBox?
Тогда зачем? Что это будет?
А через что ты с базой соединяешься - никакой разницы.

← →
AlexSV (2002-01-14 12:36) [2]

Попробуй TADOConnection.GetTableNames(...).
Если не получиться, то пиши на Mail, попробую помочь.

← →
amamed_3071 (2002-01-14 13:48) [3]

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND ((MSysObjects.Flags)=0));
order by MSysObjects.Name

← →
dim- (2002-01-14 14:34) [4]

Делай как AlexSV
TADOConnection.GetTableNames(TComboBox.Items )

Нужно загрузить в TComboBox.Items все имеющиеся таблицы Найти похожие ветки