Public Class frmLogin
Dim con As New SqlConnection("Data Source=.\sqlexpress;Integrated Security=True;database=F:\a\Super Market Management System\Super Market Management System\db_SuperMarket.mdf")
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
txtUsername.Clear()
txtPassword.Clear()
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()
End Sub
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim a, b As String
a = txtUsername.Text
b = txtPassword.Text
Dim flag As Integer = 0
con.Open()
Dim cmd As New SqlCommand("select * from tbl_Login", con)
Dim rd As SqlDataReader
rd = cmd.ExecuteReader()
While (rd.Read())
If (a = rd(0).ToString.Trim() And b = rd(1).ToString.Trim()) Then
flag = 1
Exit While
Else
flag = 0
End If
End While
If (flag = 1) Then
'MsgBox("Login Successfull", MsgBoxStyle.OkOnly, "Done")
Me.Hide()
Form1.Show()
Else
MsgBox("User Name or Password may be wrong.", MsgBoxStyle.Critical, "Error")
End If
con.Close()
End Sub
Private Sub txtPassword_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPassword.KeyDown
If (e.KeyCode = Keys.Enter) Then
btnLogin_Click(sender, e)
End If
End Sub
End Class
问问题
231 次
2 回答
1
请检查数据库的路径。F: 驱动后应该是双斜杠。还要添加一个 try catch 以查看您得到的确切错误。您应该已经检查了连接错误问题,必须已经有很多帮助
于 2013-09-16T04:57:26.587 回答
0
1.使用服务器资源管理器连接数据库并测试它..
2.如果成功(测试连接成功),复制该连接字符串并将其粘贴到您的代码中..
3.问题是你的连接字符串有问题。
4.如果它工作正常,请在此处输入错误和堆栈跟踪..
详细步骤..
从服务器资源管理器连接到数据库
从查看菜单中,选择服务器资源管理器。
在服务器资源管理器中,右键单击数据连接并选择添加连接。
如果这是您进行的第一个连接,则会出现“选择数据源”对话框。在 Data Source 下选择您要连接的数据源类型,然后在 Data Provider 下为您正在使用的应用程序选择适当的提供程序。最后点击继续。
在“添加连接”对话框中,输入请求的信息。
选择“高级”按钮以打开您可以为所选提供商更改的设置列表。
选择测试连接以检查连接而不关闭对话框。这样,如果连接不成功,您可以对设置进行调整。单击确定。
您的连接出现在数据连接节点下的服务器资源管理器中。
将其复制并粘贴到您的代码中..
于 2013-09-16T05:01:19.317 回答