1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Dim dt as new dataTable
dim ds as new DataSet
dim dapter as OledbDataAdapter
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MessageBox.Show("Veuillez entrer le login ainsi que le mot de passe", "Mot de passe Et Login", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
Dim lo = Me.TextBox1.Text
Dim p = Me.TextBox2.Text
cmd = New OledbCommand("select * from Utilisateur where login='" & lo & "' and password='" & p & "' ", con)
dapter=new OledbDataAdapter(cmd)
dapter.Fill(ds,"Utilisateur")
dt=ds.Tables("Utilisateur")
if dt.Rows.Count=0 Then
MessageBox.Show("Identification incorrecte", "Mot de passe", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox1.Focus()
Else
'si l'authentification est correcte
'ton code
End if
End If |
Partager