我在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
密码是保留字,因此需要括号:
Query = "Select * FROM user WHERE users = '" & userss & "' AND [password] = '" & pass.Text & "'"
旁注:您对用户使用singularis和pluralis非常困惑。