SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: arjmasar en Viernes 23 de Agosto de 2002, 18:00

Título: Re: query con ADO
Publicado por: arjmasar en Viernes 23 de Agosto de 2002, 18:00

quiero preguntar lo siguiente, en la conexión que hago con ADO al sistema de AS400, quiero hacer un query, tengo lo siguiente:

rstImportCtas.Open "Select Format(SECT,'00') + Format(manza,'000') + Format(lote,'00') + Format(toma,'00') + Format(digi,'0') as cuenta From UsuarLrt Where cuenta = '0200110005'", conImportCtas, adOpenDynamic, adLockOptimistic

resulta que en la aplicación el usuario final va a utilizar números de cuenta por ejemplo el 0200110005, bueno, en la tabla de AS400 los campos están divididos y el ejemplo quedaría así 2 1 10 0 5, entonces, utilizo el FORMAT para poder comparar el valor del TextBox con los campos de la tabla, pero me dá como resultado el siguiente error:

Run-time error '-2147217865 (80040e37)
{IBM]{Controlador ODBC de Client Access (32 bits)][DB2/400 SQL] SQL0204 - FORMAT en *LIBL de tipo *N no encontrado

espero, que pudieran sugerirme que hacer o la forma en que puedo hacer el query, de antemano muchas gracias.....

Título: query con ADO
Publicado por: zongo en Sábado 14 de Septiembre de 2002, 02:14

Primero haz la consulta y luego formatea
el resultado de la consulta.

rstImportCtas.Open "select sect,manza,lote,toma,dig from....

'verifica al menos un registro con rstImportCtas.recorcout

rsect=rstImportCtas.fields("sect").value
rman=rstImportCtas.fields("manza").value

ahora si formatea

resp = format(rsect,"00")+format(rman,"000")+.......