Filtrado en Sql por fechas

[[oscarac]]

ahora tengo entendido que en Access hay que usar el caracter # para enmarcar las fechas

[DANIEL1818]

Empezado por oscarac

ahora tengo entendido que en Access hay que usar el caracter # para enmarcar las fechas

No me deja enmcarcar las fechas, porque al poner el # me tira un error que lo que quiero poner es incompatible con el tipo fecha/hora. Como lo puedo solucionar? el codigo el delphi esta bien escrito?

[[oscarac]]

fecha_inicio = #25/04/2015# y fecha_fin = #08/07/2015#

te recomiendo armar una cadena

Código Delphi [-]
StrSql := 'SELECT S.titulo, S.descripcion_producto, S.precio_base, S.fecha_inicio, S.fecha_fin, S.foto ' + 
' from Subasta_prod S ' + 
'where (S.titulo like ' + elString + ' ) and (S.fecha_inicio >= #' + FormatDateTime('dd/mm/yyyy', DtpFechaInicial.date) +
                         '#) and (S.fecha_fin <= #' + FormaDateTime ('dd/mm/yyyy', DtpFechaFinal.date) + '#)'

Pruebalo asi
no tengo delphi a la mano quiza tengas algunos problemas de sintaxis o de parentesis, pero esa es la idea, cuando he trabajado con access tenia que hacer asi las consultas de fechas

[DANIEL1818]

Disculpa, pero no entendí bien. 1)- En que parte de mi programa tengo que poner este código que me pasaste? porque lo pongo dentro del if que publique yo hace un rato y tira muchos errores(al if le saque todo lo que seria relacionado a los 3 parametros, menos lo de abrir y cerrar la consulta y asignar al data source). Un error por ejemplo es :Undeclared identifier: 'StrSql' , otro error es: Undeclared identifier: 'elString' 2) como soluciono esos errores de declarar StrSql? porque lo declare como StrSql: string pero no me lo toma. Y como hago para que me tome el parametro 'elString'? disculpa las molestias

[[AgustinOrtu]]

Código Delphi [-]
DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaIni').Value:=DateToStr(Form1.DateTimePicker  1FechaDesde.Date);
     DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaFin').Value:=DateToStr(Form1.DateTimePicker  2FechaHasta.Date);

Si estas usando parametros, porque convertis de Fecha a String?

Directamente asgina la fecha a los parametros

Código Delphi [-]
DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaIni').Value:=Form1.DateTimePicker  1FechaDesde.Date;
     DM.Query_soloTituloConFecha.Parameters.ParamByName('fechaFin').Value:=Form1.DateTimePicker  2FechaHasta.Date;

Y en la sentencia SQL yo reemplazaria la comparacion de fechas por el operador BETWEEN.

Ejemplo

Código SQL [-]
[...]
WHERE :Fecha BETWEEN Fecha_Inicio and Fecha_Fin

[DANIEL1818]

Hola, en el código de Delphi después lo cambio y use lo mismo que vos me acabas de pasar, en cuanto a la sentencia SQL no entiendo que poner en :Fecha , osea a que te referís con eso? . Con respecto a fecha_inicio y fecha_fin supongo que te referís a mis parámetros desde el código Delphi (fecha_ini y fecha_fin). Espero tu respuesta. gracias por la ayuda!!

[ecfisa]

Hola Daniel.

Creo que podrías fijar el Edit en blanco, el primer DateTimePicker en la menor fecha deseada y el segundo en la actual. De esa manera, si no realiza ningún cambio en los valores obtiene el listado sin filtro, de otro modo se filtrará por las opciónes que haya configurado.

Ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  dtpDesde.Date := 1;      // 31/12/1899
  dtpHasta.Date := Date; // fecha de hoy
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT TITULO, DESCRIPCION_PRODUCTO, PRECIO_BASE, FECHA_INICIO, FECHA_FIN, FOTO');
    SQL.Add('FROM SUBASTA_PROD');
    SQL.Add('WHERE TITULO LIKE :TIT  AND');
    SQL.Add('FECHA_INICIO >= :INI AND FECHA_FIN <= :FIN');
    Parameters.ParamByName('TIT').Value := '%' + Edit1.Text +'%';
    Parameters.ParamByName('INI').Value := dtpDesde.DateTime;
    Parameters.ParamByName('FIN').Value := dtpHasta.DateTime;
    Open;
  end;
end;

Como la "fecha desde" del ejemplo usé el big bang delphiano, pero te convendría fijar el DateTimePicker(desde) a la fecha de inicio de carga de datos en la tabla "SUBASTA_PROD".

Saludos