vb 中的 实时错误'3021',BOF或EOF中有一个是"真",或者当前的记录以被删除

这是一个查询代码DimrsAsADODB.RecordsetSetrs=conn.Execute("select*from学生信息where学号='"&Trim(Text... 这是一个查询代码
Dim rs As ADODB.Recordset
Set rs = conn.Execute("select * from 学生信息 where 学号='" & Trim(Text3.Text) & "'")
If rs.RecordCount > 0 And rs.BOF = True And rs.EOF = True Then
rs.MoveFirst
MsgBox "学号不存在"

End If
Combo1.Text = rs.Fields(0)
Text1.Text = rs.Fields(1)
Text2.Text = rs.Fields(3)
Combo2.Text = rs.Fields(4)
Text4.Text = rs.Fields(5)
Text5.Text = rs.Fields(6)
运行程序,输入查询的学号,数据库没有的时候就出现“3021”
调试时,光标在Combo1.Text = rs.Fields(0)
展开
 我来答
wqiuyun
2010-08-06 · TA获得超过818个赞
知道小有建树答主
回答量:310
采纳率:0%
帮助的人:473万
展开全部
我倒,你看看你的逻辑对不对,你明知道输入查询的学号,数据库没有,rs不就是null了吗?你虽然判断了是学号存不存在,可是不论存不存在你接着还是执行了Combo1.Text = rs.Fields(0)啊,当rs是null这肯定要错啦!
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式