-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

0

1.サーバーエクスプローラーを使用してデータベースに接続し、テストします..

2.成功した場合(テスト接続が成功した場合)、その接続文字列をコピーしてコードに貼り付けます..

3.問題は、接続文字列に問題があることです。

4.うまくいかない場合は、ここにエラーとスタック トレースを記録します。

詳細な手順..

サーバー エクスプローラーからデータベースに接続するには

[表示] メニューから、[サーバー エクスプローラー] を選択します。

サーバー エクスプローラーで [データ接続] を右クリックし、[接続の追加] を選択します。

これが最初の接続である場合は、[データ ソースの選択] ダイアログ ボックスが表示されます。[データ ソース] で接続先のデータ ソースの種類を選択し、[データ プロバイダー] で使用しているアプリケーションに適したプロバイダーを選択します。最後に [続行] をクリックします。

[接続の追加] ダイアログ ボックスで、要求された情報を入力します。

[詳細設定] ボタンを選択して、選択したプロバイダーに対して変更できる設定のリストを開きます。

ダイアログ ボックスを閉じずに接続を確認するには、[テスト接続] を選択します。これにより、接続に失敗した場合に設定を調整できます。[OK] をクリックします。

接続は、サーバー エクスプローラーの [データ接続] ノードの下に表示されます。

それをコピーしてコードに貼り付けます..

于 2013-09-16T05:01:19.317 に答える