Consultas por fecha

[ContraVeneno]

creo que esto ya lo había vivido en otro hilo, pero no recuerdo donde...


Lo mejor es que el usuario capture la fecha en un TDateTimePicker que en lugar de un TEdit, así ni tú, ni el usuario, tendrían que preocuparse por el formato.

Y a la hora de pasarlo a SQL, utiliza parámetros, de esa manera tú no tendrías que preocuparte por el formato.

[GustavoCruz]

Hazlo de esta forma

Código Delphi [-]
ConsultaSQL:='select * from Aluminio where fecha = #'+formatdatetime('mm/dd/yyyy',datetimepicker.date)+'#';
with query1 do
  begin
     sql.clear;
     sql.add(ConsultaSQL);
     open;
  end;

así debe funcionar...

Saludos...

[donki]

Hola GustavoCruz,

Es bastante engorro construir la string de consulta con una fecha con formato.

Yo te propongo lo que se comentan por otros foros y poner parámetros a la consulta:

Por ejemplo:

q.SQL.Text = 'Select * From Tabla Where Fecha=:MyFecha';
q.Parameters[0].Value = '01/01/2008';

De esta forma te puedes olvidar de los formatos de fechas.

Suerte

[gerasA]

Muchas Gracias a todos!
Ya solucione el problema

[ContraVeneno]

Sería de mucha ayuda para nosotros y para los futuros foreros, que nos dijeras de que manera lo solucionaste.

[gerasA]

Hice lo que me dijiste contraveneno lo de usar un datetimepicker y use parametros eso es todo
Bye Muchas Gracias

[gerasA]

Hola!
Ahora como le hago si el usuario selecciona la tabla mediante un combobox y quiero hacer la consulta entre dos fechas, lo que yo hago es lo siguiente pero me marca un error:

Código Delphi [-]
table1.Active:=false;
table1.TableName:=combobox1.Items[combobox1.ItemIndex];
table1.Active:=true;
case combobox1.ItemIndex of
    0:begin
    Query1.SQL.Text:='select * from Aluminio where Fecha = between :    Fecha1 and : Fecha2';
    Query1.Params[0].AsDate:=datetimepicker1.Date;
    Query1.Params[1].AsDate:=datetimepicker2.Date;
    Query1.Active := true;
    Query1.Open;
    end;
end;

Estoy ocupando un solo dbgrid, un table y un query estoy bien?
Gracias