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
2 に答える
1.サーバーエクスプローラーを使用してデータベースに接続し、テストします..
2.成功した場合(テスト接続が成功した場合)、その接続文字列をコピーしてコードに貼り付けます..
3.問題は、接続文字列に問題があることです。
4.うまくいかない場合は、ここにエラーとスタック トレースを記録します。
詳細な手順..
サーバー エクスプローラーからデータベースに接続するには
[表示] メニューから、[サーバー エクスプローラー] を選択します。
サーバー エクスプローラーで [データ接続] を右クリックし、[接続の追加] を選択します。
これが最初の接続である場合は、[データ ソースの選択] ダイアログ ボックスが表示されます。[データ ソース] で接続先のデータ ソースの種類を選択し、[データ プロバイダー] で使用しているアプリケーションに適したプロバイダーを選択します。最後に [続行] をクリックします。
[接続の追加] ダイアログ ボックスで、要求された情報を入力します。
[詳細設定] ボタンを選択して、選択したプロバイダーに対して変更できる設定のリストを開きます。
ダイアログ ボックスを閉じずに接続を確認するには、[テスト接続] を選択します。これにより、接続に失敗した場合に設定を調整できます。[OK] をクリックします。
接続は、サーバー エクスプローラーの [データ接続] ノードの下に表示されます。
それをコピーしてコードに貼り付けます..