topic-33897

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Error en un Query
Posted: Sat Apr 08, 2017 09:53 PM

Hola compañeros, en tmysql esta instrucción funciona bien

         for z = 1 to len(adet)
            cQuery1 := "UPDATE  cheque  SET desfech='"+Transform(Dtos(aCHe:fechin),"@r 9999-99-99")+"',"
            cQuery1 += " destino='"+aChe:napea+"',"
            cQuery1 += " npro='"+ alltrim(Str(aChe:ncli))+ "',"
        cQuery1 += " recibopro='"+ alltrim(aChe:nRecibo) + "'"
            cQuery1 += " WHERE  codigo = "+ alltrim( Str(adet[z,1] ) )

(1)      oMysql:Query(cQuery1 )
             if oMysql:NetErr()
                msginfo( "Error ejecutando Query " + CRLF + cQuery1 + CRLF + oMysql:Error() )
                return nil
            Endif  
        next

Destino es string
Todos los demás son numéricos, salvo desfech

con tdolphin llega a (1) y se cuelga el programa

En cambio si hago lo siguiente funciona bien

Code (fw): Select all Collapse

         cQuery := "SELECT * FROM CHEQUE ORDER BY codigo"
         oCheque := oMysql:Query( cQuery )
///etc
   
         for  z = 1 TO Len(adet)
           IF oCheque:Seek( AllTrim( Str( adet[ z,1 ] ) ), "codigo" ) > 0
              oCheque:fechin := aChe:fechin
              oCheque:destino := aChe:napea
              oCheque:npro := aChe:ncli
              oCheque:recibopro := aChe:nrecibo
              oCheque:save()
           endif
        next
       ocheque:end()

Alguna idea del porque de esta discrepancia

Luis

russimicro

Posts: 411

Joined: Sun Jan 31, 2010 03:30 PM

Re: Error en un Query
Posted: Sun Apr 09, 2017 01:31 PM

cQuery1 += " WHERE codigo = "+ alltrim( Str(adet[z,1] ) )

POR SER CARACTER : codigo = ' " + alltrim( Str(adet[z,1] )) + " ' "

nageswaragunupudi

Posts: 10733