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
| Private Sub ValiderProfil()
Dim Con As New OracleConnection()
Dim conn As String = ""
Con.ConnectionString = "Data Source=AISMIG"
Con.ConnectionString += ";Persist Security Info=True"
Con.ConnectionString += ";User ID=" + txtUser.Text
Con.ConnectionString += ";Password=" + txtPassword.Text
Con.ConnectionString += ";Persist Security Info=True"
Dim Cn_user As New OracleCommand
Cn_user.Connection = Con
Con.Open()
Cn_user = New OracleCommand("select * from use_habilite_trac where db_name_user='" & txtUser.Text & "' ", Con)
Dim dr_user As OracleDataReader = Cn_user.ExecuteReader()
If Cn_user.ExecuteReader Is DBNull.Value Then
MsgBox("Vous n'avez pas l'acces a la base de donnée Veuillez contacter l'administrateur du system")
Else
Principal.Show()
End If
Con.Close()
End Sub |
Partager