Bonjour
je n'arrive pas à établir une connection avec ma base de données,
Voici mon code :
je pense que l'erreur viens de la commande:
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
car la connection ne se fait pas est j'ai le message du catch as exception
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim kits As String = " Data Source=kits04 ;User Id=Scott;Password=Tiger;"
Faut il préciser le chemin exact dans Data Source? Me manque t-il une commande?
merci
Partager