我们这时要做的就是在使用Recordset对象的moveNext 等方法之前先利用RecordsetCount属性判断一下数据库中的数据是否为空方法: 
 复制代码 代码如下:   dim objRs as New Recordset  dim objCn as New connection  dim strSql as string  objCn.ConnectionString="fileDsn=student.dsn;User_Id=sa;PassWord=123"  objcn.open  strSql="SELECT * FROM Student_info"  objRs.Open strSql ,objCn,adOpenKeyset, adLockOptimistic  '在这判断,若为空则告知用户并退出该模块操作就行了  if objRS.RecordsetCount=0 then  msgbox "学籍信息不存在,请补充后在操作!"  objRs.Close  Set objRs=Nothing  exit sub '这一步可别忘了,要不然还得报错,原因是依旧执行了以后的操作  end if (){  } 
    这样就可以解决了这个问题,然后继续以后的操作即可,如果我们事先编写了链接数据库并将记录返回给Recordset的函数,则步骤可以省略点了!                        (编辑:我爱故事小小网_铜陵站长网) 
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! 
                     |