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

VahaC

Well-known member
10.01.2007
116
0
#1
Есть MySQL сервер и ADOConnection1 (соединение настроеное и подключёноё) .
Скажите плиз как получить список таблиц имеющихся в базе данных к которой подключён ADOConnection1?
 
G

Gilen

#2
Код:
var StrList: TStrings;
begin
StrList := TStringList.Create;
ADOConnection1.GetTableNames(StrList, False);
end;
Далее выводишь в таблице или где угодно через цикл:
Код:
for i := 0 to (StrList.Count - 1) что-то там := StrList[i];