Question

vb SQL 对象Refresh的方法IAdodc失败

Else
Adodc1.RecordSource = "select * from table1 where Username='" & txtuser.Text & "' and UserPwd='" & txtpwd.Text & "' and 类型='学生'"
End If
form1.Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "你输入的用户名不存在或密码错误!", vbOKOnly, "警告"
txtuser.Text = ""
txtpwd.Text = ""
count = count + 1
txtuser.SetFocus
Else
Unload Me
form1.Show
End If
If count >= 3 Then
MsgBox "你没有权限登陆该系统!", vbOKOnly + vbInformation, "警告"
End
End If

运行之后，就提示“对象Refresh的方法IAdodc失败”
那位大虾能提示怎么回事？

Answer 1

tabstring2和tabstring3之间少了个空格
tabstring2
=
"from
专业,系,学生基本信息"
tabstring3
=
"where
专业.系编号=系.系编号
and
专业.专业编号=学生基本信息.专业编号"
这里tabstring2的最后面应该有个空格：
tabstring2
=
"from
专业,系,学生基本信息
"

Answer 2

tabstring2和tabstring3之间少了个空格
tabstring2
=
"from
专业,系,学生基本信息"
tabstring3
=
"where
专业.系编号=系.系编号
and
专业.专业编号=学生基本信息.专业编号"
这里tabstring2的最后面应该有个空格：
tabstring2
=
"from
专业,系,学生基本信息
"

Answer 3

你情况说得不详细，我看了一下，推测是：
form1并不存在或者其名称不正确，请确认adodc控件所在的窗体名称是否的确是form1。

Answer 4

bAdodc1.RecordSource = "select * from table1 where Username='" & txtuser.Text & "' and UserPwd='" & txtpwd.Text & "' and 类型='学生'"
End If
form1.Adodc1.Refresh
If Adodc1.Recordset.EOF Then
bvcbvcbcvbvvvvv
txtuser.Text = ""
txtpwd.Text = ""
count = count + 1
txtuser.SetFocus
Else
Unload Me
form1.Show
End If
If count >= 3 Then
bgfcgfsfnmbnmm nmj141141222vbbgdf
hghgf42g
hgfhfg25rtewdf3223

Answer 5

建议： 表中数据如何智能更新