胖妹面庄:对象'Refresh'的方法'IAdodc'失败“是怎么一回事情啊?

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 04:26:08
对象'Refresh'的方法'IAdodc'失败"是怎么一回事情啊,我写的代码运行错误总有这个提示.错在哪?如何写正确?
代码为:Dim mzy As String
Select Case Combo1.ListIndex
Case 0
mzy = InputBox$("请输入学号", "查找窗")
Adodc1.RecordSource = "select * from 学生成绩表 where 学号 like'" & mzy & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "无此学号", , "提示"
Adodc1.RecordSource = "select * from学生成绩表"
Adodc1.Refresh
End If
Case 1
mzy = InputBox$("请输入姓名", "查找窗")
Adodc1.RecordSource = "select * from 学生成绩表 where 姓名 like'" & mzy & " '"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "无此姓名", , "提示"
Adodc1.RecordSource = "select * from学生成绩表"
Adodc1.Refresh
End If

End Select
我用的是VB6.0

SELECT语句有错误。