VB:编译错误：else没有if，求解决~
PrivateSubCommand1_Click()strsql="select*from登录表where用户名='"&Text1.Text&"'"&"and密码='"&...
Private Sub Command1_Click()
strsql = "select * from 登录表 where 用户名='" & Text1.Text & "'" & "and 密码='" & Text2.Text & "'"
If rs.State = 1 Then rs.Close
rs.Open strsql, cn, 1, 3
If rs.EOF Then rs.Open
MsgBox "用户名或密码有误！", 32, "警告"
Else
Form3.Show
End If
Unload Me
End Sub 展开
strsql = "select * from 登录表 where 用户名='" & Text1.Text & "'" & "and 密码='" & Text2.Text & "'"
If rs.State = 1 Then rs.Close
rs.Open strsql, cn, 1, 3
If rs.EOF Then rs.Open
MsgBox "用户名或密码有误！", 32, "警告"
Else
Form3.Show
End If
Unload Me
End Sub 展开
1个回答
展开全部
Then rs.Open
把这两句话改为
Then
rs.Open
第一个后面还要加End if
把这两句话改为
Then
rs.Open
第一个后面还要加End if
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
