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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
|
Private Function getData() As String(,)
Dim Data(7, 3) As String
Taille_Data = Data.GetLength(0) - 1
nb_page = Int(Taille_Data / 4)
If Taille_Data Mod 4 <> 0 Then
nb_page += 1
End If
---------------------- Chargement ------------------
Dim oradb As String = "Data Source=(DESCRIPTION =(ADDRESS = (PROTOCOL = TCP)(HOST = Sisiniya-PC)(PORT = 1521))" _
+ "(CONNECT_DATA = (SERVER = DEDICATED)(SERVICE_NAME = XE)));" _
+ "User Id=sisiniya;Password=123;"
' Create the connection with Oracle :-)
Dim conn As New OracleConnection(oradb)
Dim cmd As New OracleCommand
Dim id_user As Integer
id_user = 0
Try
conn.Open()
Try
cmd.Connection = conn
cmd.CommandText = "select c.id_user,c.login_user,c.password_user,c.code_acces_user,p.nom_personnel, from comptes_users c natural join personnels p"
cmd.CommandType = CommandType.Text
Dim dr As OracleDataReader = cmd.ExecuteReader()
Do While dr.Read()
date_inscri = dr.GetDateTime(7)
Data(id_user, 0) = Convert.ToString(dr("login_user"))
Data(id_user, 1) = Convert.ToString(dr("password_user"))
Data(id_user, 2) = Convert.ToString(dr("code_acces_user"))
Data(id_user, 4) = Convert.ToString(dr("nom_personnel"))
id_user = id_user + 1
Loop
dr.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Catch ex As Exception
Console.WriteLine("Sisiniya : Connection to Oracle database established failed :-( !")
Finally
cmd.Dispose() 'Dispose OracleCommand object
' Close and Dispose OracleConnection object
conn.Close()
conn.Dispose()
End Try
Return Data
End Function |
Partager