When I make a Update
in the Impressora
table my program is closing itself, when debugging the program the following error was accused:
MyUpdatelookslikethis:
beginifcdsImpressora.statein[dsedit]thenbegindmDatabase.SQLConnection.Execute('UPDATEImpressorasSET'+'PATRIMONIO='''+cdsImpressoraPATRIMONIO.AsString+''','+'PATRIMONIOBANDEJA='''+cdsImpressoraPATRIMONIO.AsString+''','+'PATRIMONIODUPLEX='''+cdsImpressoraPATRIMONIODUPLEX.AsString+''','+'PATRIMONIOMAILBOX='''+cdsImpressoraPATRIMONIOMAILBOX.AsString+''','+'NUMEROIP='''+cdsImpressoraNUMEROIP.AsString+''','+'ENDERECOEXTERNO='''+cdsImpressoraENDERECOEXTERNO.AsString+''','+'NUMERONF='''+cdsImpressoraNUMERONF.AsString+''','+'NUMEROPORTA='''+cdsImpressoraNUMEROPORTA.AsString+''','+'NUMEROSERIE='''+cdsImpressoraNUMEROSERIE.AsString+''','+'SENHA='''+cdsImpressoraSENHA.AsString+''','+'USUARIO='''+cdsImpressoraUSUARIO.AsString+''','+'CAMINHO='''+cdsImpressoraCAMINHO.AsString+''','+'SETORINSTALACAO='''+cdsImpressoraSETORINSTALACAO.AsString+''','+'CODIGOMODELO='+cdsImpressoraCODIGOMODELO.AsString+','+'FRANQUIA='+iif(cdsImpressoraFRANQUIA.AsString='','0',cdsImpressoraFRANQUIA.AsString)+','+'VALORIMPRESSAO='+iif(cdsImpressoraVALORIMPRESSAO.AsString='','0',TrocaVirgPPto(cdsImpressoraVALORIMPRESSAO.AsString))+','+'TIPOPATRIMONIO='''+cdsImpressoraTIPOPATRIMONIO.AsString+''','+'PATRIMONIOOUTRO='''+cdsImpressoraPATRIMONIOOUTRO.AsString+''','+'VALORIMPRESSAOCOLOR='+iif(cdsImpressoraVALORIMPRESSAOCOLOR.AsString='','0',TrocaVirgPPto(cdsImpressoraVALORIMPRESSAOCOLOR.AsString))+','+'FRANQUIACOLOR='+iif(cdsImpressoraFRANQUIACOLOR.AsString='','0',cdsImpressoraFRANQUIACOLOR.AsString)+','+'CORTESIAIMPRESSAO='+iif(cdsImpressoraCORTESIAIMPRESSAO.AsString='','0',cdsImpressoraCORTESIAIMPRESSAO.AsString)+','+'VALOREXCEDENTEIMPRESSAOCOLOR='+iif(cdsImpressoraVALOREXCEDENTEIMPRESSAOCOLOR.AsString='','0',TrocaVirgPPto(cdsImpressoraVALOREXCEDENTEIMPRESSAOCOLOR.AsString))+','+'VALORFIXOMENSAL='+iif(cdsImpressoraVALORFIXOMENSAL.AsString='','0',TrocaVirgPPto(cdsImpressoraVALORFIXOMENSAL.AsString))+','+'VALOREXCEDENTEDIGITALIZACAO='+iif(cdsImpressoraVALOREXCEDENTEDIGITALIZACAO.AsString='','0',TrocaVirgPPto(cdsImpressoraVALOREXCEDENTEDIGITALIZACAO.AsString))+','+'VALORDIGITALIZACAO='+iif(cdsImpressoraVALORDIGITALIZACAO.AsString='','0',TrocaVirgPPto(cdsImpressoraVALORDIGITALIZACAO.AsString))+','+'STATUS='+QuotedStr(cdsImpressorastatus.AsString)+','+'FRANQUIADIGITALIZACAO='+iif(cdsImpressoraFRANQUIADIGITALIZACAO.AsString='','0',TrocaVirgPPto(cdsImpressoraFRANQUIADIGITALIZACAO.AsString))+'whereCODIGO='+cdsImpressoraCODIGO.AsString,nil);end;end;cdsImpressora.Close;sdsImpressora.CommandText:='select*fromImpressoraswherecodigo=0';cdsImpressora.Open;MostraFila(0);
Andmyimpressora
tableissetupasfollows:
If you have any idea what might be happening. Because to insert in the database the error does not occur.