tabstring2和tabstring3之间少了个空格
tabstring2
=
"from
专业,系,学生基本信息"
tabstring3
=
"where
专业.系编号=系.系编号
and
专业.专业编号=学生基本信息.专业编号"
这里tabstring2的最后面应该有个空格:
tabstring2
=
"from
专业,系,学生基本信息
"
你情况说得不详细,我看了一下,推测是:
form1并不存在或者其名称不正确,请确认adodc控件所在的窗体名称是否的确是form1。
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
建议: 表中数据如何智能更新