Error en sentencia con comillas dobles

[Casimiro Noteví]

¿Puedes poner el código en delphi?

[bismarck_sierra]

Claro que si

Código Delphi [-]
        sSentencia:= 'UPDATE articulos SET descripcion = ' + QuotedStr(Datos.sDescripcion) +
                 ', descripcion_corta = ' + QuotedStr(Datos.sDescripcionCorta) +
                 ', etiqueta = ' + QuotedStr(Datos.sEtiqueta) +
                 ', categoria = ' + sClaveCategoria +
                 ', departamento = ' + sClaveDepto +
                 ', clase = ' + sClaveClase +
                 ', impuesto = ' + IntToStr(Datos.iClaveImpuesto) +
                 ', es_juego = ' + QuotedStr(Datos.sEsJuego) +
                 ', costo_automatico = ' + QuotedStr(Datos.sCostoAutomatico) +
                 ', precio_automatico = ' + QuotedStr(Datos.sPrecioAutomatico) +
                 ', se_vende = ' + QuotedStr(Datos.sSeVende) +
                 ', es_gasto = ' + QuotedStr(Datos.sEsGasto) +
                 ', no_inventariable = ' + QuotedStr(Datos.sNoInventariable) +
                 ', agranel = ' + QuotedStr(Datos.sAgraNel) +
                 ', bascula = ' + QuotedStr(Datos.sBascula) +
                 ', tiempo_elaboracion = ' + IntToStr(Datos.iTiempoElaboracion) +
                 ', tiene_numero_serie = ' + QuotedStr(Datos.sTieneNumeroSerie) +
                 ', tiene_lote = ' + QuotedStr(Datos.sTieneLote) +
                 ', tiene_caducidad = ' + QuotedStr(Datos.sTieneCaducidad) +
                 ', generar_boletos = ' + QuotedStr(Datos.sGenerarBoletos) +
                 ', cambiar_precio = ' + QuotedStr(Datos.sCambiarPrecio) +
                 ', estatus = ' + QuotedStr(Datos.sEstatus) +
                 ', notas = ' + QuotedStr(Datos.sNotas) +
                 ', fecha_ult_cambio = ' + QuotedStr(FormatDateTime(FECHA_HORA_DBMS, dteFechaMov)) +
                 ', ultimo_costo = ' + FloatToStr(Datos.rCosto) +
                 ', tienda_en_linea = ' + QuotedStr(Datos.sTiendaEnLinea) +
                 ', peso = ' + FloatToStr(Datos.rPeso) +
                 ', largo = ' + FloatToStr(Datos.rLargo) +
                 ', ancho = ' + FloatToStr(Datos.rAncho) +
                 ', alto = ' + FloatToStr(Datos.rAlto) +
                 ', fecha_importacion = ' + QuotedStr(sFechaImporta) +
                 ' WHERE clave = ' + IntToStr(Datos.iClave);

qryConsulta:= TSQLQuery.Create(nil);
qryConsulta.SQLConnection:= FBaseDato;
qryConsulta.SQL.Clear;
qryConsulta.SQL.Text:= sSentencia;
qryConsulta.ExecSQL;

Como no le he econtrado por donde es el error intenté cambiar la asignación de la sentencia a qryConsulta con los metodos qryConsulta.Add, qryConsulta.Append

Saludos
Bismarck

[marcoszorrilla]

También puedes probar a poner justo antes de ejectur la consulta:

Código Delphi [-]
ShowMessage(qryConsulta.SQL.Text);

De esta manera verás si te construye la sentencia SQL como tu esperas o ya de hecho encuentras algún fallo.

Un Saludo.

[Casimiro Noteví]

A simple vista no se ve nada mal, se supone que ese campo es del tipo timestamp, no?

[bismarck_sierra]

Gracias Marcos por tu comentario, la primera consulta que puse en el post, es como se arma antes de mandar llamar a ExecSQL.

Las pruebas que he realizado obtengo resultados extraños, si agrego una comillas dobles dentro del valor de otro campo, por ejemplo:

Código Delphi [-]
, notas = '2.8 1" '

funciona bien, es decir, descripcion, descripcion_corta, etiqueta y notas tienen una comilla doble, no importa en que campos tenga comillas dobles en pares, todo marcha bien, pero si acumulo "comillas dobles" acumulando un número impar en diferentes campos ya no funciona.

Nunca me habia pasado eso, trataré con otras cosas, tal vez sea porque compilo Delphi 7 en Windows 7, probaré con Windows XP.

Saludos

Bismarck

[Casimiro Noteví]

Con la explicación que has dado ahora me ha resultado más fácil, el problema es este:
'ANGULO 2.8 MM X 1" LIGERO',

las comillas de las pulgadas

[roman]

Empezado por Casimiro Notevi

Con la explicación que has dado ahora me ha resultado más fácil, el problema es este:
'ANGULO 2.8 MM X 1" LIGERO',

las comillas de las pulgadas

Pero, ¿en qué consiste el problema? Según entiendo, el error lo dal el motor de firebird y, sin embargo, el compañero bismark_sierra comentó al principio que la sentencia no le causa problemas si la ejecuta en el IBExpert. Da la impresión de que el contenido de qryConsulta.SQL.Text no es exactamente el mismo que el que llega al motor.

// Saludos

[marcoszorrilla]

Por eso decía yo lo de utilizar ShowMessage, para ver como queda realmente la sentencia que se va a enviar al motor y de esta manera al menos yo suelo detectar caracteres indeseados o composición incorrecta del SQL.

Quizás utilizando parámetros y AsString en vez de QuotedSqr llegue a funcionar la sentencia,

Yo ejecutaría la sentencia solamente con la parte que se cree da el error y luego creo que con un par de ensayos se arreglaría el problema.

Un Saludo.