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 |
