problema con consulta sql
 

hola quiero ejecutar una consulta en ms access desde la vista sql, aqui viene el problema al ejecutar la consulta no me da ningún resultado.
Probé la misma consulta desde otro gestor y funciona espero que me puedan ayudar

Código SQL [-]
SELECT *
FROM tabla
WHERE Fecha >= :MiParametro1
AND Fecha<=:MiParametro2;

Si los campos que le pasas a miparametro1 y mi parametro2 son de tipo Date debería funcionar. Otra cosa es que el rango este vacío.

¿Puedes poner el código que estás utilizando desde Delphi?
¿Cómo pasas los parámetros?
¿No estarás haciendo un ExecSQL en lugar de un Open?

los parametros que le paso son tipo fecha que serian 01/01/2018 y 31/01/2018






lo que intento hacer es pasar la consulta anteriormente comentada a un query
en la parte de los parametros que le quiero pasar son 01/01/2018 y 31/01/2018
lo que busco hacer es borrar registros que cumplan con un rango de fecha este es mi codigo

Código Delphi [-]
begin
query.close;
query.sql.clear;
query.SQL.Add('delete from tabla where (fecha BETWEEN :fecha1 AND :fecha2 ');
query.Parameters.ParamByName('fecha1').DataType := ftdate;
query.Parameters.ParamByName('fecha1').Value := Datetimepicker1.Date;
query.Parameters.ParamByName('fecha2').DataType := ftdate;
query.Parameters.ParamByName('fecha2').Value := Datetimepicker1.Date;
query.open;
query.ExecSQL;
end;

Open cuando es select

No puedes poner Open y ExecSQL a la vez, no tiene sentido.

OPEN: Cuando quieres recuperar datos de una consulta (SELECT).
EXECSQL: cuando quieres ejecutar un comando (INSERT/DELETE/UPDATE).

En este caso y al ponerlos los 2, seguramente te está cogiendo el último (EXECSQL) y por eso no te trae registros.

si, ya borre el open pero todavía tengo el problema de la consulta

Pues puede ser que no tengas registros con esos parámetros.

es imposible es mas te comento que probé con otras fechas

Hay básicamente 3 condiciones, que la consulta sea correcta, que los parámetros sean correctos, y que existan registros que cumplan con esos parámetros.
Si se cumplen las 3 condiciones, debe retornar esos datos.
Si no devuelve nada es que falla una de las 3. No hay más.

No entiendo...
Primero has puesto un SELECT. Para eso tienes que usar el OPEN.
Luego has puesto un DELETE, para esa debes utilizar el EXECSQL.

Ahora no entiendo lo que no te está funcionando.

sigue sin funcionar

Código Delphi [-]
begin
query.Close;
query.SQL.Clear;
query.SQL.Text:=(' delete  from tabla where fecha BETWEEN :fecha1 AND :fecha2 ');
query.Parameters.ParamByName('fecha1').DataType := ftdate;
query.Parameters.ParamByName('fecha1').Value := Datetimepicker1.Date;
queryParameters.ParamByName('fecha2').DataType := ftdate;
query.Parameters.ParamByName('fecha2').Value := Datetimepicker1.Date;
query.ExecSQL;
end;

¿Crees que con esa información tan escueta podemos ayudarte?
Es como si te digo: "la moto sigue sin andar".
¿Qué me contestarías?

¿Error?
¿No borra nada?
¿Borra lo que no debería?
Lo dicho por [Casimiro]...


Estás utilizando en las 2 fechas/parámetros el mismo componente. No se si es correcto.

Por decir algo:
prueba

Código Delphi [-]
query.Parameters.ParamByName('fecha1').Value := Trunc(Datetimepicker1.Date); 
.. 
query.Parameters.ParamByName('fecha2').Value := Trunc(Datetimepicker1.Date);

ahora que lo veo es cierto
ahora si funciono , tengo otro pequeño problema cuando elimino los registros la grilla se queda en blanco pero cuando ejecuto el programa por segunda vez esta todo normal

La otra guía de estilo.

¿Que esté todo normal es bueno, no?
Suscribo lo que ha dicho [Casimiro]

no me exprese del todo bien
cuando elimino los registros la grilla me queda como esta en la foto, lo que no me muestran son el resto de los registros

Que no somos adivinos, que pongas el código.

si eso ya lo se nadie es adivino pero siempre que preguntas respondes con ''soberbia''
mi codigo

Código Delphi [-]

begin
query.close;
query.sql.clear;
query.SQL.Add('delete from tabla where (fecha BETWEEN :fecha1 AND :fecha2 ');
query.Parameters.ParamByName('fecha1').DataType := ftdate;
query.Parameters.ParamByName('fecha1').Value := Trunc(Datetimepicker1.Date); 
query.Parameters.ParamByName('fecha2').DataType := ftdate;
query.Parameters.ParamByName('fecha2').Value := Trunc(Datetimepicker2.Date); 
query.ExecSQL;
end;

¿Soberbia? soy un poco "borde", pero nunca me han dicho que sea soberbio.
El problema es que no das ninguna información, por lo que podemos estar intercambiando mensajes horas o días, hasta descubrir lo que realmente quieres decir.
Los otros compañeros que te han contestado han dicho lo mismo:
Neftali (3 mensajes):
identsoft (1 mensaje)

¿Qué dice la guía de estilo?

Si tu dbGrid queda como está es porque desactivas su DataSource. Por eso te digo que pongas el código que usas. Porque ese que has puesto es donde borras unos registros, y "como no somos adivinos", necesitamos ver ese código para poder ayudarte.


La otra opción es dar palos de ciegos y perder el tiempo mensaje va y mensaje viene hasta acertar por casualidad o por eliminación.
Como ves, no es soberbia, es intentar que des información para poder ayudarte, y no perder el tiempo inutilmente.

jajaja Saliste regañado

:)
Es que me gusta ayudar, y a veces resulta casi imposible porque falta información.