VB数据库IF判断语句的问题

qq_31501041 2015-09-24 01:44:46

Private Sub cmd_add_Click()
Dim cn As New ADODB.Connection
Dim dr As New ADODB.Recordset
If Len(newuser.Text) = 0 Or Len(pass.Text) = 0 Or Len(pass2.Text) = 0 Then '判断用户名密码是否为空
MsgBox "用户或密码不能为空", vbOKOnly + 32, "注意！" '判断用户名密码是否为空
Else
On Error Resume Next
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" _
& App.Path & "\MISER.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=lsj123000"
dr.Open "select 用户名 from user1 where 用户名='" & newuser.Text & "'", cn, 1, 1 '判断用户名是否存
If dr.EOF Then '判断用户名是否存
cn.Execute "select 用户名 from user1 where 用户名='" & newuser.Text & "'" '判断用户名是否存
Dim B
B = 1
Set Count1 = ExeCutesql("select * from user1 ", Str_text)
Count1.MoveLast
B = Count1.Fields(3) + 1
ExeCutesql "insert into user1 values('" & newuser.Text & "','" & pass.Text & "','" & Format(DTPicker1.Value, "yyyy-mm-dd" & " " & Time) & "'," & B & ") ", Str_text
If pass.Text = pass2.Text Then
Call Db
Mydb.MoveLast
End If
MsgBox "数据已经保存！", vbOKOnly + 64, "成功"
Else
MsgBox "两次密码不一样"
End If
Else
MsgBox "该用户已存在" '判断用户名是否存
End If
End If
End Sub

运行后提示else没有if

上面有3个IF判断语句，请问各位大神，要怎么顺序写才对？？求直接修改代码贴代码，谢谢啦！！

...全文

193 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

赵4老师 2015-09-24

打赏
举报

Private Sub cmd_add_Click()
Dim cn As New ADODB.Connection
Dim dr As New ADODB.Recordset
    If Len(newuser.Text) = 0 Or Len(pass.Text) = 0 Or Len(pass2.Text) = 0 Then '判断用户名密码是否为空
        MsgBox "用户或密码不能为空", vbOKOnly + 32, "注意！" '判断用户名密码是否为空
    Else
        On Error Resume Next
            cn.Open "provider=microsoft.jet.oledb.4.0;data source=" _
                & App.Path & "\MISER.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=lsj123000"
            dr.Open "select 用户名 from user1 where 用户名='" & newuser.Text & "'", cn, 1, 1 '判断用户名是否存
            If dr.EOF Then '判断用户名是否存
                cn.Execute "select 用户名 from user1 where 用户名='" & newuser.Text & "'" '判断用户名是否存
                Dim B
                B = 1
                Set Count1 = ExeCutesql("select * from user1 ", Str_text)
                Count1.MoveLast
                B = Count1.Fields(3) + 1
                ExeCutesql "insert into user1 values('" & newuser.Text & "','" & pass.Text & "','" & Format(DTPicker1.Value, "yyyy-mm-dd" & " " & Time) & "'," & B & ") ", Str_text
                    If pass.Text = pass2.Text Then
                        Call Db
                        Mydb.MoveLast
                        MsgBox "数据已经保存！", vbOKOnly + 64, "成功"
                    Else
                        MsgBox "两次密码不一样"
                    End If
            Else
                MsgBox "该用户已存在" '判断用户名是否存
            End If
    End If
End Sub