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
| Dim oradb As String = "Data Source=(DESCRIPTION=(ADDRESS_LIST=" _
+ "(ADDRESS=(PROTOCOL=TCP)(HOST= SM65CVDF)(PORT=1521)))" _
+ "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=OSMOSE)));" _
+ "User Id=OSMOSE;Password=OSMOSE;"
Dim dsRequete As DataSet
Dim laRequete As String
Dim conn As New OracleConnection(oradb)
conn.Open()
Dim cmd As New OracleCommand
cmd.Connection = conn
cmd.CommandText = "select EVENT_CLIENT from EVENEMNT "
cmd.CommandType = CommandType.Text
Dim dr As OracleDataReader = cmd.ExecuteReader()
dr.Read()
Try
For Each rowRequetes As DataRow In dsRequete.Tables(0).Rows
LaRequete = rowRequetes("RequeteSQL")
LaRequete = LaRequete.Replace("currentUser", Main.CurrentUser)
Next
Catch ex As Exception
MsgBox(ex.ToString)
End Try |
Partager