Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Decimales en una consulta (TQUERY ) a paradox (https://www.clubdelphi.com/foros/showthread.php?t=37456)

Wonni 14-11-2006 09:10:12

Decimales en una consulta (TQUERY ) a paradox
 
Hola

Me estoy volviendo loco. He buscado en los foros, pero no le encuentro solucion.

Tengo un Query para busquedas por uno o dos campos. Estos son Titulo y Pvp. Si busco por los dos el codigo es este:

Código Delphi [-]
ConsultaArticulos.SQL.Add('SELECT * FROM ARTICULO' + #13 +
         'WHERE DESCRIPCIO LIKE "%' + EditDescripcion.Text + '%"' + #13 +
         'AND PVP = "' + EditPvp.Text + '"');

Pues resulta que si en el EditPvp introduzco un numero sin decimales no
hay problema, pero si hay decimales me da un error Typematch expresion.

¿podeis ayudarme?

Gracias

marcoszorrilla 14-11-2006 14:45:46

Es muy probable que estés utilizando un separador de decimales incorrecto, prueba con el contrario al que estés utilizando:
, .

Un Saludo.

Wonni 14-11-2006 19:27:26

he cambiado la configuracion en el BDE. Estaba puesto los decimales con . en lugar de ,

lo he cambiado pero sigue con el mismo error.

saludos !!

marcoszorrilla 14-11-2006 19:31:31

Yo no te decía cambiar la configuración del BDE, sino o poner punto en vez de coma en el propio Edit para comprobar que por ahí venía el error, o cambiar el:
"DecimalSeparator", desde Delphi.

Un Saludo.

Wonni 14-11-2006 19:47:37

Gracias marcos

Tambien probe lo de poner . en el Edit. Perdon, lo debia haber comentado. Pero aun asi, me da el mismo error.

Lo de cambiar desde Delphi lo de DecimalSeparator, no se como se hace.

Saludos !!

Wonni 14-11-2006 20:02:58

Vale, ya he probado lo de cambiar desde Delphi DecimalSeparator y nada :( el mismo error

marcoszorrilla 14-11-2006 21:22:33

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * from Factura');
Query1.Sql.Add('Where Total1 > '+Edit1.text);
Query1.Open;
end;

Probado y funciona perfectamente, escribo en el Tedit 300.20 por ejemplo, como es lógico si pongo una coma como separador me falla.

Un Saludo.


La franja horaria es GMT +2. Ahora son las 10:27:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi