[erreur]La référence d'objet n'est pas définie à une instance d'un objet
bonjour,j'ai un probleme ke j'airrve pas a resoudre depuis au moins 10 jours;
jai le code suivant:
Code:
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")) |
au niveau du msgbox il m'affiche l'erreur:
" 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
