1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
Private Sub BoutonConnecter_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoutonConnecter.Click
Try
Dim conn As New System.Data.SqlClient.SqlConnection
conn.ConnectionString = "ta chaine de connexion"
Dim cmd As New System.Data.SqlClient.SqlCommand
cmd.Connection = conn
cmd.CommandText = "SELECT 1 FROM table WHERE login = @login AND password = @pass)"
cmd.Parameters.Add("@login", SqlDbType.VarChar).Value = Me.comboboxuser.text
cmd.Parameters.Add("@pass", SqlDbType.VarChar).Value = Me.textboxpassword.text
conn.Open()
Dim reader As System.Data.SqlClient.SqlDataReader
reader = cmd.ExecuteReader
If Not reader.Read Then
conn.Close()
MsgBox("Mot de passe erroné")
Exit Sub
End If
conn.Close()
'ici mot de passe ok
' ouverture d'une autre fenetre par exemple
Catch ex As Exception
MsgBox("Erreur pendant la connexion avec la base de données" & vbCrLf & ex.Message)
End Try
End Sub |
Partager