Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Show tables; [D7, MySQL]


Skif ©   (2004-03-12 21:34:00) 

Подскажите как обрабоать запрос вида:
mysql> show tables;
+-----------------+
| Tables_in_squid |
+-----------------+
| pass_rule       |
| squid_log       |
| squid_log_1     |
| squid_log_2     |
| squid_log_3     |
| squid_log_4     |
| test_squid_log  |
+-----------------+
7 rows in set (0.02 sec)

mysql>

Собсно не могу получить список или вообще любой результат обработки запроса.
Как сие сделать?
Пробовал:

zapros_table:='show tables';
MyQuery1.SQL.Clear;
MyQuery1.SQL.Add(zapros_table);
MyConnection1.Connected:=true;

MyQuery1.SQL[0];
MyQuery1.Open;     {

//zapros_tabl_res.Caption:=MyQuery1.Fields[0].AsString;

//ListBox1.Items.Add(MyQuery1.Fields[0].AsString);
ShowMessage(MyQuery1.Fields[0].AsString);
MyConnection1.Connected:=false;


Skif   (2004-03-15 11:17:00) [1]

Меняю код:


zapros_table:='show tables';
MyQuery1.SQL.Clear;
MyQuery1.SQL.Add(zapros_table);
MyConnection1.Connected:=true;

MyQuery1.SQL[0];
MyQuery1.Open;    

Memo1.Lines.AddStrings(MyQuery1.FieldDefList);
MyConnection1.Connected:=false;


В результате получаю только шапку

Tables_in_squid

Я конечно могу погонять циклы, но может быть есть более простой способ - ведь количество таблиц  [b][i]squid_log_*[/b][/i] постоянно растет. Мне то всего навсего нужно отследить самую последнюю, что бы по ней делать необходимую мне выборку


Наверх

Титульная страница Поиск, карта сайта Написать письмо