bonjour,j'ai un probleme ke j'airrve pas a resoudre depuis au moins 10 jours;
jai le code suivant:
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"))
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