Conexión de ASP a AS/400 y cómo usar los query?

05/03/2004 - 20:16 por Jesus villamizar | Informe spam
Hola, actualmente estoy desarrollando un proyecto en ASP
con conexión a una base de datos en AS/400, aparentemente
tengo bien la conexión pero el query donde hay un "select"
me arroja el siguiente error:

IBMDA400 Session error '80004005'

CWBDB0001 - El handle de conexión ha fallado al intentar
contactar con el servidor (Sistema TAVISOS)

/Sistema Avisos/prueba.asp, line 12

y la syntaxys que uso es la siguiente:

<% Dim oConn1
Dim oRs
Set oConn1 = Server.CreateObject
("ADODB.Connection")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "dbavisos"
oConn1.Open "Provider=IBMDA400;" & _
"Data Source=TAVISOS," & _
"User Id=JESUS3," & _
"Password=JESUS3"

Set oRs = Server.CreateObject("ADODB.Recordset")

oRs.open "Select * from ADAM.LCLIENT99",
oConn1, 1, 1

%>

está correcto ó faltará algo?

Preguntas similare

Leer las respuestas

#1 Jhonny Vargas P.
05/03/2004 - 20:24 | Informe spam
Hola,

Encontré esto para la conección de la base de datos...

http://www.able-consulting.com/MDAC...400FromIBM

Espero que te sirva... o la compares con la actual


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl




Todos saben que Jesus villamizar [] escribió el
siguiente mensaje :7a9f01c402e6$6512c8c0$
Hola, actualmente estoy desarrollando un proyecto en ASP
con conexión a una base de datos en AS/400, aparentemente
tengo bien la conexión pero el query donde hay un "select"
me arroja el siguiente error:

IBMDA400 Session error '80004005'

CWBDB0001 - El handle de conexión ha fallado al intentar
contactar con el servidor (Sistema TAVISOS)

/Sistema Avisos/prueba.asp, line 12

y la syntaxys que uso es la siguiente:

<% Dim oConn1
Dim oRs
Set oConn1 = Server.CreateObject
("ADODB.Connection")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "dbavisos"
oConn1.Open "Provider=IBMDA400;" & _
"Data Source=TAVISOS," & _
"User Id=JESUS3," & _
"Password=JESUS3"

Set oRs = Server.CreateObject("ADODB.Recordset")

oRs.open "Select * from ADAM.LCLIENT99",
oConn1, 1, 1

%>

está correcto ó faltará algo?
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida