UPDATE con reales

[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

[lalomon]

e tenido algunos problemas con este codigo

estoy trabajando con MySql 4 y con delphy 7, las query las hago via
ODBC con adoquery, y mi update es asi:

Código SQL [-]
[ noparse ]

update stockproducto set precioProducto= recioPa where codigoProducto= :codigoPa and codigobodega=1;

[ /noparse ]

el problema surge al asignar lo valores a los parametro, lo cual hago de la siguiente forma:

Código Delphi [-]
[ noparse]
adoquery3.prepared;
adoquery3.Parameters.ParamByName('precioPa').Value:=precioP;
[ /noparse ]

no se si es problema de la version de delphy o de la adoquery, pero no asigna los valores, ya que al visualizar la consulta con showmessage me sigue mostrando los params y no los valores :S

pd: si se fijan la sintaxis es diferente a la que ustedes proponen porque no esta funcion sql.prepare ni la
query.ParamByName('precioPa').AsFloat:= precio

bueno ojala puedan ayudarme

pd: solucion parche mientras tanto, guardo el float en la base de dato como un string y cuando lo saco lo paso a float

[taru]

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