[SOLUCIONADO] Conexión ODBC con aplicación web

[maialenlopez]

Hola,
Tengo una aplicación web desde la cual estoy intentando hacer una conexión al ODBC con el siguiente código:

Código vb.net:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim conn As New Odbc.OdbcConnection("DSN=INP;uid=bbdd;pwd=adm1")
        Dim sql As String
        Dim contador As Integer
 
        sql = "select aufnr, ktext, objnr, auart, werks from sapsr3.aufk"
        sql = sql + " where auart='ZS03'"
        sql = sql + " and werks ='H000'"
        sql = sql + " and mandt='111' order by aufnr"
 
        Dim comm1 As New Odbc.OdbcCommand(sql, conn)
        Dim reader1 As Odbc.OdbcDataReader
 
        Try
            Using conn
                conn.Open()
                With comm1
                    reader1 = .ExecuteReader()
                    While reader1.Read()
                        MsgBox(reader1("objnr"))
                    End While
                    .Dispose()
                    reader1.Close()
                End With
            End Using
 
        Catch ex As Exception
 
            MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
        Finally
 
            conn.Close()
            conn.Dispose()
        End Try
 
 
    End Sub
 

Si utilizo una aplicación web me lanza dos errores : ORA-12154 y IM006
Pero si lo mismo lo hago en un windows form funciona correctamente.

¿Alguien me puede ayudar y decirme porque pasa eso?

[maialenlopez]

Iniciado por maialenlopez

Hola,
Tengo una aplicación web desde la cual estoy intentando hacer una conexión al ODBC con el siguiente código:

Código vb.net:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim conn As New Odbc.OdbcConnection("DSN=INP;uid=bbdd;pwd=adm1")
        Dim sql As String
        Dim contador As Integer
 
        sql = "select aufnr, ktext, objnr, auart, werks from sapsr3.aufk"
        sql = sql + " where auart='ZS03'"
        sql = sql + " and werks ='H000'"
        sql = sql + " and mandt='111' order by aufnr"
 
        Dim comm1 As New Odbc.OdbcCommand(sql, conn)
        Dim reader1 As Odbc.OdbcDataReader
 
        Try
            Using conn
                conn.Open()
                With comm1
                    reader1 = .ExecuteReader()
                    While reader1.Read()
                        MsgBox(reader1("objnr"))
                    End While
                    .Dispose()
                    reader1.Close()
                End With
            End Using
 
        Catch ex As Exception
 
            MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
        Finally
 
            conn.Close()
            conn.Dispose()
        End Try
 
 
    End Sub
 

Si utilizo una aplicación web me lanza dos errores : ORA-12154 y IM006
Pero si lo mismo lo hago en un windows form funciona correctamente.

¿Alguien me puede ayudar y decirme porque pasa eso?

Ya esta solucionado, al final en vez de utilizar el ODBC e llamado directamente a lo del tnsnames.ora creando la conexion en el web.config

[DoHITB]

A riesgo de que sea muy off-topic mi comentario...



Eso es una consulta de SAP en VB.net?

nunca lo había visto...

Saludos

[maialenlopez]

Iniciado por DoHITB

A riesgo de que sea muy off-topic mi comentario...



Eso es una consulta de SAP en VB.net?

nunca lo había visto...

Saludos

Pues parece ser que si. Es con lo que tenia que hacer la conexion.

[DoHITB]

Ya me costó a mi una vez conectar SAP con Oracle... no quiero imaginar con VB.net jajaja

[maialenlopez]

Iniciado por DoHITB

Ya me costó a mi una vez conectar SAP con Oracle... no quiero imaginar con VB.net jajaja

Ya te digo!!! Encima en un principio estaba intentando hacerlo mediante el ODBC pero por lo visto no se puede desde una aplicacion web. Bueno eso es lo que he visto en internet, todo el mundo hace la misma pregunta pero nadie les daba ninguna solución.