[Visual Studio 2005]: connessione a database oracle

[vpoppa]

Imports System.Data.OracleClient

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Dim server As String = "xx.xx.xx.xx"
            Dim database As String = "FACO"
            Dim utente As String = "system"
            Dim pwd As String = "oracle"

            Dim strConn As String = "server=" + server + ";Data Source=" + database + ";User Id=" + utente + ";Password=" + pwd
            Dim conn As New System.Data.OracleClient.OracleConnection(strConn)

            conn.Open()
            conn.Close()

            TB_MsgError.Text = "Connessione al database oracle " & server & "/" & database & " effettuata con successo"
        Catch ex As Exception
            TB_MsgError.Text = ex.Message
        End Try
    End Sub
End Class

Ho la seguente eccezione:

"ORA-12154: TNS: impossibile risolvere l'identificativo di connessione specificato"

Sul mio PC ho installato: Oracle Server 9, Oracle Client 9 e Data Provider for .NET 9.

Quale potrebbe essere il problema?

Grazie mille.

Vincenzo

[pietro09]

Non so se ti possa servire.
Ho scaricato Oracle Data Provider 10.1.0.4 dalla rete e l'ho installato.
Riavvio computer
Apro il programma Net Configuration Assistant e configuro il servizio di rete locale.
Collaudo

un possibile codice asp di prova può essere questo:

Option Strict On
Imports o = System.Data.OracleClient

Partial Class gestione_dati_connessione_oracle
    Inherits System.Web.UI.Page


    Protected Sub ProvaConnessione()
        dim StringaConnessione as string = "Data Source=xxxxx;Password=yyyy;Persist Security Info=True;User ID=zzzz;Unicode=True"
        Dim Connessione As o.OracleConnection = Nothing
        Dim Comando As o.OracleCommand = Nothing
		Dim Reader As o.OracleDataReader = Nothing

        Try
            Connessione = New o.OracleConnection(StringaConnessione)
            Connessione.Open()
			Comando = Connessione.CreateCommand()
			Comando.CommandText = "select * from tabella"
			Reader = Comando.ExecuteReader
			
						

        Catch ex As Exception
            Me.Label1.Text = MessageErrorForLabel(ex.ToString())
        Finally
            If Not (Reader Is Nothing) Then Reader.Close()
            If (Not (Connessione Is Nothing)) Then Connessione.Close()
        End Try

    End Sub

End Class