VB 怎么解决数据库为空,出现的错误.

在读取数据库表的时候，先判断表是否为空就行了：

......

if data1.recordset.bof and data1.recordset.eof then

msgbox "当前数据表为空！"

exit sub

end if

......

......

有问题，缺数据源，

Constr = "Provider=Microsoft.Jet.OLEDB.4.0Persist.Security Info=FalseData Source=" &Server.MapPath（"数据库名称"）

rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic

if rs.eof then

'记录为空处理

msgbox "记录为空"

else

'有记录

end if

---