vb数据库为空怎么表示

rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic

if rs.eof then

'记录为空处理

msgbox "记录为空"

else

'有记录

end if

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

......

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

msgbox "当前数据表为空！"

exit sub

end if

......

......

Set rst = cnn.Execute("SELECT 四级分组名 FROM " &str2) '这句到是底三级分组名还是四级分组名

此外Select串中加个条件，排除空字段记录：

"SELECT 四级分组名 FROM " &str2 &“ WHERE 四级分组名 is not NULL"

从字段中获取的值如果有Null 不能运算的，先用isNull函数判断一下再处理。

---