Hola, Juan.
Además del driver ODBC que te apunta Javier Larrea, te indico qué es lo que yo
hago.
El programa está con Visual Basic 6 y el AS400 V4R4.
En el programa VB añado un control Adodc sin establecer ninguna propiedad,
salvo el nombre: "Consulta"
En el código añado las siguientes instrucciones:
Consulta.ConnectionString =
"DSN=nombre_archivo_odbc;SYSTEM=IP_AS400;CMT=3;DBQ=biblioteca;NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=0;RECBLOCK=2;BLOCKSIZE=256;SCROLLABLE=0;TRANSLATE=0;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=2;SORTTYPE=2;LANGUAGEID=ESP;SORTWEIGHT=0;PREFETCH=0;DFTPKGLIB=biblioteca;MGDSN=0;"
Consulta.CommandType = adCmdText
Consulta.RecordSource ="SELECT * FROM tabla WHEREcondicion"
Consulta.Refresh
Set recordset = Consulta.Recordset
Debo añadir que sólo utilizo el programa VB para leer del AS400.
Un saludo.
Víctor Díaz.
----- Original Message -----
From: Juan Pelaez Boismorand
To: [email protected]
Sent: Friday, December 10, 2010 7:04 PM
Subject: Visual Basic y AS400
Estoy empezando a programar en Visual Basic, tengo que hacer un pequeño
proyecto en visual basic atacando una base de datos de un AS400, necesitaría
algún ejemplo de conexión contra un AS400 dado que no tengo muy claro como debo
hacerlo.
Gracias.
------------------------------------------------------------------------------
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
