这是我查询的语句,执行是提示 “对象变量或with 块变量为设置”。帮忙找一下问题在那,怎么改?
Private Sub Command1_Click()
Dim conn As Object, rs As Object, m As String, t As String
t = InputBox$("请输入学号", "查找窗")
rs.Open "select * from 学生信息表", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请输入学号", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
MsgBox "无此学号!", vbOKOnly, "提示"
End Ifrs.CloseEnd Sub
Private Sub Command1_Click()
Dim conn As Object, rs As Object, m As String, t As String
t = InputBox$("请输入学号", "查找窗")
rs.Open "select * from 学生信息表", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请输入学号", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
MsgBox "无此学号!", vbOKOnly, "提示"
End Ifrs.CloseEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货