Как узнать перечень таблиц базы и количество записей в них (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.OLEDB.JET - Access Violation при передаче неполного параметра
• Быстрый доступ к ADO
• Запись картинки в ADO таблицу