Andrews:
Comenzemos por partes, este es el codigo que tu escribiste,
store sqlconnect('bodmillenium','sisamf','qsx7h5k') to gnconnhandle
if gnconnhandle <= 0
= messagebox('No se puede realizar la conexión', 16, 'sql connect error')
endif
sqlcmd="select bctiso, cuscun, usapm2, bcmnap, bcfeso from ipnetbankd.bcsobpcf where bcesso=" + estado + "and bcfeso between" + desde + "and" + hasta
= sqlsetprop(gnconnhandle, 'asynchronous', .f.)
= sqlsetprop(gnconnhandle, 'packetsize', 2048 )
= sqlexec(gnconnhandle,sqlcmd,'prueba')Yo lo escribiria de esta forma,
gnconnhandle = sqlconnect('bodmillenium','sisamf','qsx7h5k')
if gnconnhandle <= 0
= messagebox('No se puede realizar la conexión', 16, 'sql connect error')
return
endif
sqlcmd = sqlcmd="select bctiso, cuscun, usapm2, bcmnap, bcfeso from ipnetbankd/bcsobpcf where bcesso=" + estado + "and bcfeso between" + desde + "and" + hasta
= sqlexec(gnconnhandle,sqlcmd,'prueba')Porque estas utilizando "sqlsetprop" no tengo conocimiento pero en el tiempo que estuve trabajando con AS400 nunca tuve que modificar la conección. Vuelvo a repertirte que la forma de escribir el SQL para AS400 no es igual al SQL que normalmente escribes para VFP o SQL server.
AS400 tiene su forma peculiar de llamar sus librerias y solo puedes hacer referencias a ellas de esa forma. El uso del <.> punto que normalmente utilizamos en VFP no es interpretado de la misma forma.
Cuando utilizas el sqlexec estas enviando un comando al centro de computos del AS400 no de la maquina que estas procesando el comando, por lo tanto tienes que enviarle commandos en el idioma que ella entiende.
No se cuan accesible tienes un manual de SQL para AS/400 para que puedas repasa el sintax. Creeme que a mi me dio mucho trabajo estar escribiendo SQL para VFP en un lado del sistema y luego traducirlo al SQL de AS/400. Creo que VFP me hacia la vida mas facil para sacar el producto.
Verifica que al hacer la conección de ODBC utilizes la libreria que contiene ese "IPNETBANKD" o de lo contrario puedes obtener un resultado nulo.
