¿Búsqueda SQL por Fecha?

[lKinGl]

Saludos amigos foristas....

el problema que tengo es que no se como ordenar una búsqueda sql por fecha

tengo un formulario con un radiogroup que tiene varias opciones para ordenar
en el mismo formulario tengo un dbgrid en el cual se muestra el resultado obtenido de el boton presionado del radiogroup y lo que escribi en el edit1.text

pero necesito hacer un boton en ese radiogroup que se llame FECHA y necesito que haga lo siguiente:

cuando yo seleccione la opcion FECHA y en el edit1.text coloque xx/xx/xxxx
en el dbgrid se muestren los registros que tengan esa fecha

mientras que toque ordenar por cadena de caracteres todo bien pero necesito saber como lo ordeno por la fecha escrita en el edit1.text!!

gracias Adelantadas!!

[[eduarcol]]

Código Delphi [-]
MiQuery.Active := False;
Miquery.sql.Text := 'Select * from tablas where fecha = :fecha';
MiQuery.ParambyName('FECHA').ASDate := StrtoDate(Edit1.Text);
MiQuery.Active := True;

[lKinGl]

el campo por el cual quiero ordenar los registros se llama fec_ini es de tipo DATE y da error el código que me acabas de facilitar

mi tabla se llama db

dice is not a valid date osea que no es una fecha valida

y el código adaptado a mi programa quedó así

Código Delphi [-]
if RadioGroup1.ItemIndex=0 then
begin
  Query1.Active := False;
  Query1.sql.Text := 'Select fec_ini from db.db where fec_ini :=Fecha';
  Query1.ParambyName('Fecha').ASDate := StrtoDate(Edit1.Text);
  Query1.Active := True;
end;

¿en que estoy fallando?

[lKinGl]

Estoy intentando con este otro código y tambien da error:

Código Delphi [-]
if RadioGroup1.ItemIndex=0 then
begin
  Query1.Active := False;
  Query1.sql.Text:='select registro,cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon  _pol,sub_pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol from db Where fec_ini like "' + (Edit1.Text) + '%"';
  Query1.Active := True;
end;

[lKinGl]

intenté tambien con:

Código Delphi [-]
 
if RadioGroup1.ItemIndex=0 then
begin
  Query1.Active := False;
  query1.sql.Text := 'Select fec_ini from db.db where fec_ini = :fecha';
  Query1.ParambyName('fecha').ASDate := StrtoDate(Edit1.Text);
  Query1.Active := True;
end;

pero sigue sin funcionar

[jacanche]

Quizas no lo entiendo, pero si quieres ordenar deberias agregar una instruccion "order by" en tu sentencia sql, para que te lo ordene por los campos que quieres, en tu caso por fecha. Lo que estas haciendo con el "where" es solo limitar los registros que seleccionas.

[paladincubano]

Prueba este otro a ver si te vale:
Código Delphi [-]Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM db');
Query1.SQL.Add('WHERE fec_ini='+QuotedStr(Edit1.Text));
Query1.SQL.Add('ORDER by fec_ini');
Query1.Open;

espero te sirva.

[[gluglu]]

No indicas que Base de Datos utilizas.

Hay algunas bases de datos que precisan que le pases el parámetro de la fecha en formato 'mm/dd/yyyy' y puede que por ahí venga el fallo que te indica que no es una fecha válida.

Por otro lado, deberías por supuesto realizar una comprobación previa de que lo que se inserta en el TEdit corresponde a una fecha válida y en los formatos aceptados por tu Base de datos.