如何从一个SQL库中查找出不为空的表，请高手指导！
在一个SQL数据库中，包含有几千个表，但有的表为空，怎么把不为空的表取出来？怎么把空表删除?

[解决办法]
1.从sysobjects中读出所有的表.ADO也可以直接取得数据库表信息
2.用游标遍历所有的表(或用While循环或直接在VB中用For n=1 to 记录集.RecordSet)
3.用Select @RecordCont=count(*) from [表名]
4.if @RecordCont = 0
begin
drop table [表名]
end