Consulta de ASP con AS/400

Hola

Te cuento que ya he desarrollado varias formas de comunicarse con el AS/400
desde ASP y no es tan dificil como crees.

Lo primero es que los usuarios de AS/400 no entienden (generalmente) si les
hablas de "tablas" tienes que hablarles de "archivos" y tampoco te entienden
por "Base de datos" o "Instancia de Base de datos", entienden por "Libreria
o Biblioteca". De manera que toca hablar en sus terminos sino quedan
"Gringos".

Lo que debes hacer para conectarte es:

1. Conseguirte el CD de "client access" este trae un control ODBC para
AS/400. E instalas ese control en el equipo que va a hacer las veces de
cliente.
2. Asegurarte de que te creen un usuario en el AS/400.
3. Este usuario debe tener en la "lista de bibiliotecas" la biblioteca donde
se encuentran los "archivos" a consultar. (con esto te ayuda el
administrador del AS.
4. Realizas la conexión ODBC y listo

el código asp te queda +/- asi:

'*******************************************************************
Sistema_AS400 = "<Elsistema o la ip>"
Usuario_AS400 = "<el usuario>"
Contras_AS400 = "<la contraseña>"
connstr = "DRIVER={Client Access ODBC Driver (32-bit)};SYSTEM=" &
Sistema_AS400 & ";"
connstr = connstr & "UID=" & Usuario_AS400 & ";PWD=" & Contras_AS400 & ";"
Set conn = server.createobject("ADODB.connection")
conn.ConnectionString = connstr
conn.open
Set rs = conn.execute("Select * from biblioteca.archivo")
'o tambien:
conn.execute "Update biblioteca.archivo where x=y"
conn.close
Set conn = Nothing
'*******************************************************************

Este sistema tiene un inconveniente grave y es que dependiendo de la
cantidad de tablas que vincules se vuelve muy, pero muy lento. Ante eso se
utiliza otra herramienta para desarrollo que tambien ofrece "client access"

Espero esto te sirva.

Saludos

Diego


"Jesús Villamizar" escribió en el
mensaje news:cb0201c43917$04a093c0$
Saludos, alguien me podría indicar un ejemplo de como
puedo ingresar datos a un bd en AS/400 por medio del ASP,
específicamente como debo ingresar montos(bs,$, etc.) y
fechas en los campos de de una tabla.. Soy programador de
ASP con bd sql_server y es primera vez que estoy accesando
data a una tabla al AS/400 por medio del código ASP..

Muchas gracias..

muchas gracias, todo eso lo sé, la conexión funciona
perfectamente porque he realizado consultas y ha sido
perfecto, lo que quiero saber es como inserto campos de
fecha y de montos(Bs, $, etc,), ó ejemplos de insert

Gracias...

Hola

Te cuento que ya he desarrollado varias formas de

comunicarse con el AS/400

desde ASP y no es tan dificil como crees.

Lo primero es que los usuarios de AS/400 no entienden

(generalmente) si les

hablas de "tablas" tienes que hablarles de "archivos" y

tampoco te entienden

por "Base de datos" o "Instancia de Base de datos",

entienden por "Libreria

o Biblioteca". De manera que toca hablar en sus terminos

sino quedan

"Gringos".

Lo que debes hacer para conectarte es:

1. Conseguirte el CD de "client access" este trae un

control ODBC para

AS/400. E instalas ese control en el equipo que va a

hacer las veces de

cliente.
2. Asegurarte de que te creen un usuario en el AS/400.
3. Este usuario debe tener en la "lista de bibiliotecas"

la biblioteca donde

se encuentran los "archivos" a consultar. (con esto te

ayuda el

administrador del AS.
4. Realizas la conexión ODBC y listo

el código asp te queda +/- asi:

'*********************************************************

**********

Sistema_AS400 = "<Elsistema o la ip>"
Usuario_AS400 = "<el usuario>"
Contras_AS400 = "<la contraseña>"
connstr = "DRIVER={Client Access ODBC Driver (32-

bit)};SYSTEM=" &

Sistema_AS400 & ";"
connstr = connstr & "UID=" & Usuario_AS400 & ";PWD=" &

Contras_AS400 & ";"

Set conn = server.createobject("ADODB.connection")
conn.ConnectionString = connstr
conn.open
Set rs = conn.execute("Select * from biblioteca.archivo")
'o tambien:
conn.execute "Update biblioteca.archivo where x=y"
conn.close
Set conn = Nothing
'*********************************************************

**********

Este sistema tiene un inconveniente grave y es que

dependiendo de la

cantidad de tablas que vincules se vuelve muy, pero muy

lento. Ante eso se

utiliza otra herramienta para desarrollo que tambien

ofrece "client access"

Espero esto te sirva.

Saludos

Diego


"Jesús Villamizar"

escribió en el

mensaje news:cb0201c43917$04a093c0$
Saludos, alguien me podría indicar un ejemplo de como
puedo ingresar datos a un bd en AS/400 por medio del ASP,
específicamente como debo ingresar montos(bs,$, etc.) y
fechas en los campos de de una tabla.. Soy programador de
ASP con bd sql_server y es primera vez que estoy accesando
data a una tabla al AS/400 por medio del código ASP..

Muchas gracias..


.