Bonjour
je n'arrive pas à établir une connection avec ma base de données,
Voici mon code :

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 kits As String = " Data Source=kits04 ;User Id=Scott;Password=Tiger;"
    Dim OConnexion As New OracleConnection(kits)

    Public Sub ConnectToOracle()
        Dim conn As New OracleConnection()
        ' TODO: Modify the connection string and include any
        ' additional required properties for your database.
        conn.ConnectionString = kits
        Try
            conn.Open()
            MsgBox("ouverture ok")

            Dim sql As String = "select distinct osuse from v$session where osuser not like 'oracle'"
            Dim cmd As New OracleCommand(sql, conn)
            cmd.CommandType = CommandType.Text

            Dim dr As OracleDataReader = cmd.ExecuteReader()
            dr.Read()
            MsgBox(CStr(dr.Item("osuse"))) ' lecture de la colonne (via le nom de colonne)

        Catch ex As Exception
            MessageBox.Show("Failed to connect to data source")
        Finally
            conn.Close()
        End Try
    End Sub
je pense que l'erreur viens de la commande:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim kits As String = " Data Source=kits04 ;User Id=Scott;Password=Tiger;"
car la connection ne se fait pas est j'ai le message du catch as exception
Faut il préciser le chemin exact dans Data Source? Me manque t-il une commande?
merci