时间:2021-07-01 10:21:17 帮助过:7人阅读
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的函数,则步骤可以省略点了!