Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как узнать перечень таблиц базы и количество записей в них (ADO)


 procedure TForm1.Button1Click(Sender: TObject);
 var
   SL: TStrings;
   index: Integer;
 begin
   SL := TStringList.Create;
   try
     ADOConnection1.GetTableNames(SL, False);
     for index := 0 to (SL.Count - 1) do begin
       Table1.Insert;
       Table1.FieldByName('Name').AsString := SL[index];
       ADOTable1.TableName := SL[index];
       ADOTable1.Open;
       Table1.FieldByName('Records').AsInteger :=
         ADOTable1.RecordCount;
       Table1.Post;
     end;
   finally
     SL.Free;
     ADOTable1.Close;
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS