Private Sub command2_click()
Adodc1.RecordSource = "select*form tushu where (用户名='高级管理员'and 密码 ='"&text2.text&"')"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "用户或密码错误,请核对"
Else
Frame1.Visible = True
End If
End Sub 就是提示缺少语句结束
就是一个 找了 两天都没找到错误 网上查到的解决办法也解决不了 求求各位帮帮我这个菜鸟 select * from tushu where "用户名"='高级管理员' and 密码 ='"& text2.text &"'
这个查询语句已经通过查询分析器的调试了 但是 不知道其他地方错在哪
Adodc1.RecordSource = "select*form tushu where (用户名='高级管理员'and 密码 ='"&text2.text&"')"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "用户或密码错误,请核对"
Else
Frame1.Visible = True
End If
End Sub 就是提示缺少语句结束
就是一个 找了 两天都没找到错误 网上查到的解决办法也解决不了 求求各位帮帮我这个菜鸟 select * from tushu where "用户名"='高级管理员' and 密码 ='"& text2.text &"'
这个查询语句已经通过查询分析器的调试了 但是 不知道其他地方错在哪
Adodc1.RecordSource = "select*form tushu where ‘用户名’='高级管理员'and 密码 ='" & text2.text & "'"
End Sub
你只用这么多看还报错不,注意那些 & 旁边要有空格哈