txtSQL = "select * from 学生信息表 where 学号 = (select 学号 from 选课信息表 where 课程='" & Trim(ComboKC.Text) & "' and 老师='" & Trim(ComboT.Text) & "')"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "选课信息表没有此学生的选课信息,请添加!", vbOKOnly + vbExclamation, "警告"
Else
first.Enabled = True
last.Enabled = True
preview.Enabled = True
nextcmd.Enabled = True
modify.Enabled = True
delete.Enabled = True
mrc.MoveFirst
Call viewData1
End If
运行时显示“实时错误91”,主要是出在mrc.EOF上,请问这样的sql语句如何进行判断?
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "选课信息表没有此学生的选课信息,请添加!", vbOKOnly + vbExclamation, "警告"
Else
first.Enabled = True
last.Enabled = True
preview.Enabled = True
nextcmd.Enabled = True
modify.Enabled = True
delete.Enabled = True
mrc.MoveFirst
Call viewData1
End If
运行时显示“实时错误91”,主要是出在mrc.EOF上,请问这样的sql语句如何进行判断?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货