试一下如下代码:
Private Sub Command1_Click()
Dim ADOrs As New Recordset
Dim ADOcn As New ADODBConnection
Dim Yourt As New ADODBRecordset
Dim Mystr As String
ADOcnOpen "Provider=MicrosoftJetOLEDB40;Persist Security Info=False;Data Source=d:\db1mdb" '修改成自己的文件路径及名称
Print "表名", "记录数"
Set ADOrs = ADOcnOpenSchema(adSchemaTables)
Do Until ADOrsEOF
If ADOrs("Table_type") = "TABLE" And Left(ADOrs("Table_name"), 7) <> "~TMPCLP" Then
Mystr = "select from " & ADOrs!table_name
YourtOpen Mystr, ADOcn, 3, 1
Print ADOrs!table_name, str(YourtRecordCount)
ADOrsMoveNext
YourtClose
Set Yourt = Nothing
Else
ADOrsMoveNext
End If
Loop
End Sub
declare @ssql nvarchar(4000)
declare @name varchar(100)
declare @tReturn table(name varchar(100),num int)
declare @i int,@count int,@num int
declare @t table(i int,name varchar(100))
insert into @t(name) select name from dbosysobjects where type = 'U'
set @i=0
update @t set i=@i,@i=@i+1
select @count=count() from @t
set @i=1
while @i<=@count
begin
select @name=name from @t where i=@i
set @ssql= N'select @num=count() from '+@name
exec sp_executesql @ssql,N'@num int out',@num out
insert into @tReturn values(@name,@num)
select @i=@i+1
end
select from @tReturn order by num
--在sql数据库后台运行
用一个过程
create or replace procedure procedure_name as
begin
insert into 统计表
select 字段名1,count(1) from 表 group by 字段名1
--统计表中的字段。(字段名1,数量)。如果有其它字段,请加入到下面select语句中。如:
/ insert into 统计表
select 字段名1,sysdate,'统计者的姓名', count(1) from 表 group by 字段名1/
end;
以上就是关于sql如何输出一个数据库所有表的数据统计全部的内容,包括:sql如何输出一个数据库所有表的数据统计、我想把数据库中所有的表,每个有多少条数据全部统计出来、Oracle 数据库的统计功能比如需要统计某个字段所对应的数据个数,并写入统计表,该如何 *** 作。等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)