Invalid use of keyword

[trabuc]

lo de las etiquetas no lo he entendido, pero aqui esta el sql


SELECT
F
,LPS ,LPF
,Perdidas

FROM "C:\Archivos de programa\Archivos comunes\EPSG Shared\Data\Mo·Res.db"
where
(F >= 50)
AND
(F <= 5000)
AND
(F <= 20000)

[Investment]

Empezado por trabuc

"C:\Archivos de programa\Archivos comunes\EPSG Shared\Data\Mo·Res.db"

En principio lo único que esta mal en esa query es el punto detras de MO

Prueba:

"C:\Archivos de programa\Archivos comunes\EPSG Shared\Data\Mo.Res.db"

[Investment]

Respecto a las etiquetas, te convendría leer lo siguiente:

Lee esto

[trabuc]

el punto esta bien, porque es el nombre de la base de datos, si lo cambio no la encuentra

[marcoszorrilla]

Débutons par le début fiston.

Bueno pues eso comencemos por el principio, que tipo de tablas y con qué componentes te estas conectando?

Un Saludo.

[marcoszorrilla]

Bueno tengo que salir, no me da tiempo más que a decirte que el último And sobra puesto que si es <= 5000 el 20000 ya no tendrá ningún efecto.

En cuanto al SQL en sí no le veo ningún error, a no ser el nombre del fichero que creo no es correcto, prueba a cambiarlo de nombre.

Gracias Investment.

Un Saludo.

[Pablo Carlos]

Empezado por trabuc

where
(F >= 50)
AND
(F <= 5000)
AND
(F <= 20000)

Me parece que deberías sacarles los paréntesis.
Saludos

[marcoszorrilla]

Los paréntesis puede quitarlos porque son innecesarios, pero el error no es por los paréntesis.

Un Saludo.

[Pablo Carlos]

Empezado por marcoszorrilla

pero el error no es por los paréntesis.

Un Saludo.

Entonces esos números (50) que tiene no deberían ir entre comillas simples '50'
Saludos

[marcoszorrilla]

Tienes toda la razón.

o QuotedStr(MiEdit1.Text) si es que están en un edit.

Un Saludo.

[roman]

¿Por qué han de ir entre comillas? Si el tipo de datos es entero esto no es necesario.

// Saludos

[marcoszorrilla]

Román tienes razón si se plantea asi:

Código Delphi [-]
   procedure TForm1.Button1Click(Sender: TObject);
   begin
   Q.close;
   q.Sql.Clear;
   q.sql.Add('Select * from d:\Pruebas\prueba.db');
   q.sql.Add('Where total > 0');
   q.open;
   end;
   
   //yo me refiero a este segundo caso
   
   procedure TForm1.Button1Click(Sender: TObject);
   begin
   Q.close;
   q.Sql.Clear;
   q.sql.Add('Select * from d:\Pruebas\prueba.db');
   q.sql.Add('Where total > '+'0');
   q.open;
   end;

Entiendo que el segundo caso es un número tomado al vuelo.

Un Saludo.

[cahp]

que valor toman estas variables: Calcular.Ster y Calcular.Soct?

Saludos