UPDATE con reales

[[maeyanes]]

Otro detalle que noto es que está mandando los valores de las campos como si fueran cadenas de texto, o sea, entre comillas simples. No se si eso se pueda en MySQL, pero en otros manejadores me imagino que daría error de tipos no compatibles. Prueba tu query de esta forma:

Código Delphi [-]
query.SQL.Text := 'UPDATE ' + bdticket + ' SET  ptotal = ' + ptotal.caption + ' , pagado=' + editentrega.Text + 
  ' , debe=' + floattostr(resto) + ' WHERE id=' + inttostr(idcabecera);

Lo cual te debe resultar en algo como:

Código SQL [-]
UPDATE ticket SET ptotal=27,46, pagado=10,28, debe=17,18 WHERE id=492

Otra posibilidad es usar la función format:

Código Delphi [-]
query.SQL.Text := Format('UPDATE %s SET ptotal = %f, pagado = %f, debe = %f where id = %d',
  [bdticket, StrToFloat(ptotal.caption), StrToFloat(editentrega.Text), resto, idcabecera]);

Saludos...

[taru]

Gracias por responder.

Me sique dando un error y he probado de las dos formas que me habeis propuesto.

Os cuento cuando se evalua el update queda talque asi:

Código SQL [-]
UPDATE ticket SET ptotal=27,46, pagado=10,28, debe=17,18 WHERE id=492

y da problemas por las comas de los decimales con las comas de separacion de campos.

Hay alguna forma de que no tome esa coma de decimales como coma de separacion de campos. Me explico, Hay otra forma de hacer un UPDATE sin utilizar las comas de separacion?.

El MySql si que hacepta las comas de decimales ya que los precios y demas los estoy metiendo con un dbgrid y no me deja meter puntos solo hacepta comas. Si intento meter un punto en los decimales te pita.

Gracias por adelantado.

[roman]

No, no. MySql no acepta comas decimales. Lo que sucede son dos cosas:

1. Tu DBGrid acepta comas y no puntos porque seguramente así está la configuración regional de tu pc.

2. Al hacer la actualización a través de un control de datos, éste hace la conversión de formato cambiando las comas por puntos.

Pero el punto es el punto Si vas a agregar directamente los datos mediante SQL, debes usar puntos, no comas decimales.

Esto también lo puedes subsanar si utilizas parámetros (y siempre debieran usarse parámetros) en lugar de concatenar los valores de los Edits directamente:

Código SQL [-]

update ticket set ptotal=:precio where id=:id

Aquí, los : indican que precio e id son parámetros que debes proporcionar así:

Código Delphi [-]
Query.ParamByName('precio').AsFloat := valor;

Siendo valor un dato float que puedes obtener del edit con las funciones que comenta maeyanes. La componente Query se encargará de colocar los parámetros en el formato correcto (punto o comas).

// Saludos

[[maeyanes]]

Prueba entonces con una query con parámetros:

Código Delphi [-]
query.SQL.Text := 'UPDATE ' + bdticket + ' SET ptotal = total, pagado = agado, debe = :debe ' +
  'where id = :id';
query.Prepare;
query.ParamByName('ptotal').AsFloat := StrToFloat(ptotal.Caption);
query.ParamByName('pagado').AsFloat := StrToFloat(editentrega.Text);
query.ParamByName('debe').AsFloat := resto;
query.ParamByName('id').AsInteger := idcabecera;
query.Execute

Update: Vaya, se me adelantaron... :P

Saludos...

[taru]

Soys unos maquinas ya funciona!!!

Parecera una tonteria pero llevo todo el puto dia con esto. La Solucion:

Código Delphi [-]
query.SQL.Text := 'UPDATE ' + bdticket + ' SET ptotal = total, pagado = agado, debe = :debe ' +  'where id = :id';
    query.Prepare;
    query.ParamByName('ptotal').AsFloat := StrToFloat(ptotal.Caption);
    query.ParamByName('pagado').AsFloat := StrToFloat(editentrega.Text);
    query.ParamByName('debe').AsFloat := resto;
    query.ParamByName('id').AsInteger := idcabecera;

por cierto donde salen las caritas hay que poner dospuntospe vale?

[roman]

Empezado por taru

Código Delphi [-]
query.SQL.Text := 'UPDATE ' + bdticket + ' SET ptotal = :ptotal, pagado = :pagado, debe = :debe ' +  'where id = :id';
    query.Prepare;
    query.ParamByName('ptotal').AsFloat := StrToFloat(ptotal.Caption);
    query.ParamByName('pagado').AsFloat := StrToFloat(editentrega.Text);
    query.ParamByName('debe').AsFloat := resto;
    query.ParamByName('id').AsInteger := idcabecera;

por cierto donde salen las caritas hay que poner dospuntospe vale?

¿Cuáles caritas?

Para evitar que salgan caritas cuando en el código ponemos :p basta usar la etiqueta [noparse]:

[ delphi ]
[ noparse ]

...

[ /noparse ]
[ /delphi ]

// Saludos

[[maeyanes]]

Vaya, hasta ahora me lo dicen (lo de [ noparse ] ). Por cierto, no sería mejor que dentro de las etiquetas code, delphi, sql. etc., no se haga la sustitución de "smileis" de forma predeterminada?


Saludos...

[[Lepe]]

Empezado por maeyanes

Vaya, hasta ahora me lo dicen (lo de [ noparse ] ). Por cierto, no sería mejor que dentro de las etiquetas code, delphi, sql. etc., no se haga la sustitución de "smileis" de forma predeterminada?


Saludos...

Pues no, que a mi me gusta meter emoticones

Saludos

[taru]

Otra cosa mas que se aprende hoy. Gracias por avisar roman.