• Domingo 22 de Diciembre de 2024, 08:09

Autor Tema:  Re: query con ADO  (Leído 1359 veces)

arjmasar

  • Nuevo Miembro
  • *
  • Mensajes: 20
    • Ver Perfil
Re: query con ADO
« en: Viernes 23 de Agosto de 2002, 18:00 »
0
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.....

zongo

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
query con ADO
« Respuesta #1 en: Sábado 14 de Septiembre de 2002, 02:14 »
0
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")+.......