如何用sql语句查得数据库中多表的总记录条数！？？

Question

假设我的数据库中有10张表，我如何知道这10张表中总的记录条数，如何用sql语句实现？

Answer 1

dim strsql as string
dim intnum 
for a = 0 to 9
strsql= "select count(*) as 条数 form table(a)"
set rs =conn.execute (strsql)
intnum=intnum + rs.recordset.value
next aprint intnum

Answer 2

dim sql as string
dim conn as adodb.connection
dim rs as adodb.recordset
dim rsRcount as integer      '''定义表的记录总数conn.open 打开数据库for i=0 to 9
sql="select * from table(i)"
rs.open sql,conn,1,1
i=i+1
rsRcount=rsRcount +rs.recordcount 
rs.close
next