Oracle [.NET]

Try

Dim oradb As String = "Data Source=(DESCRIPTION=((ADDRESS=(PROTOCOL=TCP)(HOST=10.53.1.49)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=BSNKLA)));User Id=BSNKLA;Password=BSNKLA;"

Dim conn As New Oracle.DataAccess.Client.OracleConnection(oradb)

conn.Open()

Dim cmd As New Oracle.DataAccess.Client.OracleCommand

cmd.Connection = conn

Catch ex As Oracle.DataAccess.Client.OracleException ' intercepte seulement les erreurs Oracle
MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
End Try

Bueno... como veo que nadie me contesto, ya sea pr falta de conocimiento o por razones que desconozco, voy a postiar una conexio en .NET a un servidor oracle 9

lo que se necesita es oracle data provider(ODP) que se puede bajar de la pagina de oracle

http://www.oracle.com/technology/software/tech/windows/odpnet/index.html
buscan la version que necesitan (en mi caso la 9i) descargan e instalan. Esta explicado en la misma web de oracle como es la instalacion (es muy sencilla)

Se debe agregar la referencia Oracle.DataAccess (V9.2 en mi caso)
Agregar un timer con el valor enabled a true y 100 en interval. Uso un timer para evitar algun que otro problema.
Dentro del Timer (Tmr_conectar)

Código:

        Dim Ex As Exception
        Dim oradb As String = "Data Source=(DESCRIPTION=" _
                   + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=TU_IP)(PORT=1521)))" _
                   + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=ES_TUYO)));" _
                   + "User Id=ES_TUYO;Password=ES_TUYO;"

        Dim conn As New OracleClient.OracleConnection(oradb)

        conn.ConnectionString = oradb
        Try
            conn.Open()
        Catch Ex
            Tmr_conectar.Enabled = False
            MsgBox(Ex.Message, MsgBoxStyle.Critical, Ex.Source)
        End Try

        If conn.State = ConnectionState.Open Then
            MsgBox("La conexion fue exitosa.", MsgBoxStyle.Exclamation)
        End If

        'enviar(comandos)
        Dim sql As String = "select * from bsn_product"
        Dim cmd As New OracleClient.OracleCommand(sql, conn)
        cmd.CommandType = CommandType.Text

        'leer
        Dim dr As OracleClient.OracleDataReader = cmd.ExecuteReader()
        dr.Read()
        'Label1.Text = dr.Item("c_primero") ' se puede usar cualqueira
        'Label1.Text = dr.Item(0) 'de estas 3 lineas para 
        'Label1.Text = dr.GetString(0) 'obtener los datos


        'cerrar
        conn.Close()
        conn.Dispose()

        Tmr_conectar.Enabled = False

El codigo hace la conexion y obtiene el primer dato de la consulta dada, es simple de entender. Solo es la conexion, el resto lo pone cada uno

Espero les sirva.