Analista Sistemas
El siguiente aplicativo tiene como objetivo dar un apoyo a los usuarios que todavía no han logrado conectarse al as400 mediante un programa visualcliente, en este caso utilizaremos Visual Basic 6.0. El proveedor que utilizaremos será el de IBM Provider via OLEDB, en resumen nos conectaremos al Iseries DB2/400 mediante una conexión sin utilizar ODBCtoda la conexión estará incluida dentro del código.
Requisitos :
Se necesitan los siguientes requisitos para poder correr este pequeño aplicativo Microsoft Data Access Components 2.7 u otra version(MDAC_TYPE 2.X) Client Express Visual Basic 5.0 o 6.0 etc. Con esto basta Instalación :
1.- Instalar Visual Basic x.x 2.- Instalar Client Express, de preferencia opción personalizado luego full.Después de terminar de instalar configura para que se conecte al Iseries. 3.- Instalar el mdac_type 2.x. listo ya tenemos preparado todo para poder programar.
Desarrollo : Cargamos el VB luego enla barra de menu ingresamos a Proyecto – Preferencias seleccionamos Microsoft Actives Data Objects 2.7 Library este ActiveX se adiciono cuando instalamos el Mdat_type 2.7 podemos utilizar tambien el2.6; también seleccionamos el ActiveX IBM AS/400 Client Acces Express Activex este se adicion al instalar el Client Express.
luego de aceptar estos ActiveX empezamos a codificar.
Adicionamos unmodulo (Proyecto – agregar modulo ) Option Explicit '(la variable as400 es una instancia del objeto AS400Systen que la utilizaremos para extraer el nombre Iseries - en este caso lo llamaremos SIS_PCBR )'cwbx.AS400System este tipo de objeto es propio del ActiveX del Client Express que sirve para extraer el nombre del Iseries Global as400 As New cwbx.AS400System 'WsystemName extrae el nombre delIseries Global WSystemName As New cwbx.SystemNames 'Estas variables la utilizaremos para hacer otra prueba interesante que no es del objetivo pero bueno vamos a mostrarla, 'utilizadas para llamar un...
Regístrate para leer el documento completo.