| Статистика |
|
Онлайн всего: 3 Гостей: 3 Пользователей: 0 |
|
Как узнать перечень таблиц базы и количество записей в них (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;
|
| Категория: ADO | Добавил: Skinner (03.07.2008)
|
| Просмотров: 677
| Рейтинг: 0.0/0 |
|
|
