为什么vb会停止执行某些代码并跳过它

问题描述 投票:0回答:1

我在vb.net上创建一个登录表单并将其连接到ms access数据库。连接成功但是当我尝试使用id和密码登录时我在ms访问时创建,它失败了。我已经通过步入运行测试它,所以我可以知道它为什么错误。

即时通讯使用visual studio 2010和ms access 2013。

这是我的登录表单代码:

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
        Try
            userss = user.Text
            Query = "Select * FROM user WHERE users = '" & userss & "' AND password = '" & pass.Text & "'"
            daData = New OleDbDataAdapter(Query, conn)
            dsData = New DataSet
            daData.Fill(dsData) '**LAST EXECUTE CODE**
            If dsData.Tables(0).Rows.Count = 0 Then '**VB DONT EXECUTE** 
                If mCount < 3 Then
                    MsgBox("Wrong Username or Password", MsgBoxStyle.Critical + MsgBoxStyle.OkCancel, "Message")
                    user.Focus()
                    mCount = mCount + 1
                    Me.pass.Text = ""
                Else
                    MsgBox("Login Failed", MsgBoxStyle.Critical + MsgBoxStyle.OkCancel, "Message")
                    End
                End If
            Else
                If (dsData.Tables(0).Rows(0).Item(4) = 1) Then
                    dsData.Dispose()
                    dsData.Reset()
                    daData.Dispose()
                    Me.Hide()
                    Main.Show()
                Else
                    MsgBox("Login Failed", MsgBoxStyle.Critical + MsgBoxStyle.OkCancel, "Message")
                End If
            End If
        Catch ex As Exception
            MsgBox("Database Connection Failed!", MsgBoxStyle.Critical + MsgBoxStyle.OkCancel, "Message") '**AND DIRECTLY EXECUTE HERE**
        End Try
    End Sub
database vb.net ms-access login
1个回答
0
投票

密码是保留字,因此需要括号:

Query = "Select * FROM user WHERE users = '" & userss & "' AND [password] = '" & pass.Text & "'"

旁注:您对用户使用singularis和pluralis非常困惑。

© www.soinside.com 2019 - 2024. All rights reserved.