ERROR CONNECTING TO ORACLE. SOCKET OPERATION ENCOUNTERED A DEAD NETWORK
Posted: Sat 03 May 2008 17:01
Hello
I need some help. I´m using a pocket pc with OraDirect.net and
I'm getting THIS ERROR WHEN I TRY TO OPEN A CONNECTION (ORACLE).
A SOCKET OPERATION ENCOUNTERED A DEAD NETWORK
Imports CoreLab.Oracle
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connectionString As String = GetConnectionString()
Dim queryString As String = _
"SELECT * FROM BD.IF_CATEGORIAS"
Dim connection As New OracleConnection(connectionString)
Dim command As OracleCommand = connection.CreateCommand()
command.CommandText = queryString
Try
connection.Close()
connection.Open()
Dim dataReader As OracleDataReader = _
command.ExecuteReader()
Do While dataReader.Read()
Console.WriteLine(vbTab & "{0}" & vbTab & "{1}", _
dataReader(0), dataReader(1))
Loop
dataReader.Close()
Catch ex As OracleException
Dim errorMessage As String = "Code: " & ex.ErrorCode & vbCrLf & _
"Message: " & ex.Message
End Try
End Sub
Private Shared Function GetConnectionString() As String
Return ("Data Source=local;Persist Security Info=True;User ID=USER;password=PASS;Unicode=True;SID=ORCL")
End Function
End Class
thanks in advance for your help
I need some help. I´m using a pocket pc with OraDirect.net and
I'm getting THIS ERROR WHEN I TRY TO OPEN A CONNECTION (ORACLE).
A SOCKET OPERATION ENCOUNTERED A DEAD NETWORK
Imports CoreLab.Oracle
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connectionString As String = GetConnectionString()
Dim queryString As String = _
"SELECT * FROM BD.IF_CATEGORIAS"
Dim connection As New OracleConnection(connectionString)
Dim command As OracleCommand = connection.CreateCommand()
command.CommandText = queryString
Try
connection.Close()
connection.Open()
Dim dataReader As OracleDataReader = _
command.ExecuteReader()
Do While dataReader.Read()
Console.WriteLine(vbTab & "{0}" & vbTab & "{1}", _
dataReader(0), dataReader(1))
Loop
dataReader.Close()
Catch ex As OracleException
Dim errorMessage As String = "Code: " & ex.ErrorCode & vbCrLf & _
"Message: " & ex.Message
End Try
End Sub
Private Shared Function GetConnectionString() As String
Return ("Data Source=local;Persist Security Info=True;User ID=USER;password=PASS;Unicode=True;SID=ORCL")
End Function
End Class
