bonjour,j'ai un probleme ke j'airrve pas a resoudre depuis au moins 10 jours;
jai le code suivant:
au niveau du msgbox il m'affiche l'erreur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 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) conn.Open() Dim cmd As New OracleCommand cmd.Connection = conn cmd.CommandText = "select * from EVENEMNT" cmd.CommandType = CommandType.Text Dim sdaRequetes As New OracleDataAdapter sdaRequetes.SelectCommand = cmd Dim dsRequete As New DataSet Try conn.Open() sdaRequetes.Fill(dsRequete, "EVENEMNT") conn.Dispose() Catch ex As Exception End Try MsgBox(dsRequete.Tables("EVENEMNT").Rows(1).Item("EVENT_CLIENT"))
" 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)
conn.Open()
Dim cmd As New OracleCommand
cmd.Connection = conn
cmd.CommandText = "select * from EVENEMNT"
cmd.CommandType = CommandType.Text
Dim sdaRequetes As New OracleDataAdapter
sdaRequetes.SelectCommand = cmd
Dim dsRequete As New DataSet
Try
conn.Open()
sdaRequetes.Fill(dsRequete, "EVENEMNT")
conn.Dispose()
Catch ex As Exception
End Try
MsgBox(dsRequete.Tables("EVENEMNT").Rows(1).Item("EVENT_CLIENT"))"
je ne sais pas koi faire ,j'ai cherche partout j'arrive pas comprendre pourtant j'ai l'impression ke mon code est jute.merci de votre aide
Partager