Problème connection avec une base de données Oracle
Bonjour
je n'arrive pas à établir une connection avec ma base de données,
Voici mon code :
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 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:
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