La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  978 - BASES DE DATOS AS/400 CON VISUAL BASIC
Autor:  Gustavo Ramirez
Quisiera saber si es posible accesar y manipular las bases de datos de un sistema AS/400 con Visual Basic 6.0, y si es posible.., como puedo hacerlo.

Muchas gracias

  Respuesta:  Marco Ruiz Hormazabal
Hola:
Primero que todo, AS/400 no trabaja es una base de datos. Son librerias y archivos.
Pero para poder accesar estos archivos desde Visual Basic, debes crear una conexión ODBC, conectada mediante Client Access del AS/400.

Primero debes crear la conexión desde Windows 95 . Esto se logra configurando desde el panel de Control y creando una nueva conexion ODBC 32Bits, (AS400PRUEBA).

Luego configurar esta conexion, ingresando el usuario de AS/400, mas la libreria a la cual se quiere accesar.

Despues de tener creada la conexión :
Crear un Formulario en VBasic y colocal un Command, programar en el evento Click.

Private sub CmdConectar_Click()
Doevents
Connect="ODBC;DSN=AS400PRUEBA;UID=SIST03;PWD=ESCUDERO"
Set DB400=Opendatabase("",false,false,connect)
End Sub
Esperando que te pueda ser de utilidad.
Atte.
  Respuesta:  Nando
Es posible. La mejor conexión en cuanto a velocidad de proceso es a través de ODBC, pero necesitarás el HS ODBC/400 que son los drivers ODBC que te permitirán sacar datos del AS/400.
Lo malo es que la programación de la conexión al AS/400 a través de ODBC es compleja y tediosa.
También es necesario, supongo que lo imaginabas, tener un usuario de acceso para poder conectar al sistema AS/400.
Envíame un mail y, si los encuentro, te enviaré la rutina básica de conexión.

Un saludo.