1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| 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 conn As New OracleConnection(oradb)
Dim cmd As New OracleCommand
cmd.Connection = conn
cmd.CommandText = "SELECT PR_CLIENT FROM COTE.PRETS"
cmd.CommandType = CommandType.Text
Dim sdaRequetes As New OracleDataAdapter
sdaRequetes.SelectCommand = cmd
Dim dsRequete As New DataSet
Try
conn.Open()
sdaRequetes.Fill(dsRequete, "TOTO")
conn.Dispose()
Catch ex As OracleException |
Partager