次の関数を実行すると、次のエラーが表示されます。キャッチは、接続を開く行を示します (Me.OracleConn.Open())。
サーバーが TNSNAMES.ora ファイルに存在することを確認しました。
Imports NetOracle = System.Data.OracleClient
...
Private Property OracleConn As NetOracle.OracleConnection
...
Private Function Connect_To_Oracle() As Boolean
Connect_To_Oracle = False
Try
'Me.OracleConn = New NetOracle.OracleConnection
Me.OracleConn = New System.Data.OracleClient.OracleConnection
Me.OracleConn.ConnectionString = "Data Source = (DESCRIPTION=" & _
"(ADDRESS_LIST=(ADDRESS = (PROTOCOL = TCP)(HOST = servername.net)(PORT = ####)))" & _
"(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME = risk)));" & _
"User Id=user_name;Password=password;"
Me.OracleConn.Open()
Connect_To_Oracle = True
Catch ex As Exception
MsgBox("Oracle Connection Error:" & ex.Message)
End Try
End Function