Dim objConn,objRs,strSql
Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=F:/www.mzwu.com/database/db1.mdb"
objConn.open
Set objRs = CreateObject("ADODB.RecordSet")
strSql = "Select count(*) from table1"
objRs.open strSql,objConn,1,2
msgbox "table1表中共有" & objRs(0) & "条记录",48,"记录统计:"
objRs.close
Set objRs = nothing
objConn.close
Set objConn = nothing将上边代码保存成vbs文件就能直接统计出db1.db库的table1表中有多条记录，这是昨晚在网吧看到很多的vbs文件来做一些操作时想到的，这边只提供一个思路，我们还可以用他来做一些其他的东西。
评论（0）
暂无评论。