Tenemos un serio problema, si alguien nos puede ayudar ya que estamos en un grabe atasco.
Estamos realizando pequeñas aplicaciones Visual Basic 6.0 SP 5.0 contra As400. Ver 5. Reléase 1, Cliente Access 5.1 .
Atacamos al As400 Por ADO:
Public cn400 as new adodb.connection
Public rs_GP001_GPPROV As New ADODB.Recordset
cn400.Open "Provider=IBMDA400;Data Source=192.168.10.100;", "", ""
rs_GP001_GPPROV.Index =
"/QSYS.LIB/GP001.LIB/GPPROV.FILE(*FIRST, *NONE)"
rs_GP001_GPPROV.CursorLocation = adUseServer
rs_GP001_GPPROV.Open "/QSYS.LIB/GP001.LIB/GPPROV.FILE(*FIRST, *NONE)", cn,
adOpenDynamic, adLockReadOnly, adCmdTableDirect
Desde Visual nos funciona correctamente, cuando creamos el ejecutable en unos equipos funciona y en otros no.
Ya hemos cargado la SI06804 de Client Access, por si podia ser ese el problema, pero seguimos igual.
El Error concretamente es:
