-1
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
4

2 回答 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 回答