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) 展开
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) 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询