Как получить список таблиц?

VahaC · 04.09.2007

Есть MySQL сервер и ADOConnection1 (соединение настроеное и подключёноё) .
Скажите плиз как получить список таблиц имеющихся в базе данных к которой подключён ADOConnection1?

Gilen · 04.09.2007

Код:

var StrList: TStrings;
begin
StrList := TStringList.Create;
ADOConnection1.GetTableNames(StrList, False);
end;

Далее выводишь в таблице или где угодно через цикл:

Код:

for i := 0 to (StrList.Count - 1) что-то там := StrList[i];