1 2 3 4 5 6 7 8 9 10 11 12 13
|
Dim cmd_user As New OracleCommand
cmd_user.Connection = conn
cmd_user.CommandText = "Select INTITULE_PROFIL,NOM,PRENOM from UTILISATEUR,PROFIL_UTILISATEUR Where UTILISATEUR.LOGIN='" & Trim(Me.Username.Text) & "' and UTILISATEUR.Password ='" & Trim(Me.Password.Text) & "' and (UTILISATEUR.ID_PROFIL=PROFIL_UTILISATEUR.ID_PROFIL) "
cmd_user.CommandType = CommandType.Text
Dim dr_user As OracleDataReader = cmd_user.ExecuteReader()
If cmd_user.ExecuteReader Is DBNull.Value Then
MsgBox("Acces Interdit !!! USER NAME OU MOT DE PASSE INCORRECTE !!!", MsgBoxStyle.OkOnly, " User Authentification")
else
dr_user.Read()
Profil_USER_EN_COURS = dr_user.GetString(0)
Nom_User_EN_COURS = dr_user.GetString(1)
Prenom_USER_EN_COURS = dr_user.GetString(2) |
Partager