Foros Club Delphi - ¿Búsqueda SQL por Fecha?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - ¿Búsqueda SQL por Fecha? (https://www.clubdelphi.com/foros/showthread.php?t=54784)

¿Búsqueda SQL por Fecha?

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!!

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;

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?

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;

:confused:

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 :(

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.

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.

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.

El error viene dado debido a que lo que ingresaron en el edit1 no es una fecha valida. deberias validar antes de ejecutar la sentencia, y el primer ejemplo que te di te ahorras comprobar el formato de la fecha tal cual lo dice Gluglu.

Bueno agregando a lo dicho por Eduarcol y GluGlu, yo recomendaría esta linea:

Código Delphi [-]if RadioButton1.Checked = True Then
....

en vez de esta que tienes:

Código Delphi [-]if RadioButton1.ItemIndex = 0 then
....

Saludos.

sigo sin entender porque muchos quieren manejar fechas utilizar Tedit cuando pueden utilizar TDateTimePicker....

Cita:

Empezado por ContraVeneno (Mensaje 276393)

sigo sin entender porque muchos quieren manejar fechas utilizar Tedit cuando pueden utilizar TDateTimePicker....

Iba a preguntar lo mismo, pero me di cuenta que la busqueda puede realizarse en campos de varios tipos dependiendo la opcion de un RadioGroup, aunque tambien se puede jugar con los valores de Visible...

gracias paladincubano tu código porfin resuleve la mitad de mi problema por que si ordena por fecha los registros pero
cuando voy al edit para escribir la fecha xx/xx/xxxx da error solo con pulsar cualquier tecla pero me imagino que ya es
mas facil de resolver

vuelvo a facilitar el código que uso para que porfavor me ayuden a completarlo gracias adelantadas :D

Código Delphi [-]Query1.SQL.Clear;
Query1.SQL.Add('SELECT fec_ini FROM db');
//Query1.SQL.Add('WHERE fec_ini='+QuotedStr(Edit1.Text));// si desactivo esta linea el programa ordena por fecha los 
//registros y si la dejo activa lanza error al pulsar el radio button 1
Query1.SQL.Add('ORDER by fec_ini=');
Query1.Open;

y para los amigos que sugieren el datetimepicker no lo uso por que ni siquiera sabia que existia y no tengo ni idea de
como se usa pero si tienen una solucion con el datetimepicker es bienvenida

gracias por su tiempo!!

Cita:

Empezado por lKinGl (Mensaje 276605)

gracias paladincubano tu código.......

:D:D:D, bueno, eduarcol ya casi es cubano, los demas si que no se por donde sean cubanos....... :D:D:D

Salud OS

Código Delphi [-]Query1.SQL.Clear;
Query1.SQL.Add('SELECT fec_ini FROM db');
Query1.SQL.Add('WHERE fec_ini= :fecha');
Query1.SQL.Add('ORDER by fec_ini');
Query1.ParamByName('fecha').Value := DateTimePicker1.Date;
Query1.Open;

Te toca investigar el uso del DateTimePicker1, y para que veas que no soy malo, ese objeto está en la pestaña Win32 ;)

Salud OS

sigue dando error :(

dice 'type mismatch in expression'

este es el código que tengo espero me ayuden a conseguir mi falla

Código Delphi [-]procedure TForm14.RadioGroup1Click(Sender: TObject);
var
buscar:string;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
if RadioGroup1.ItemIndex=0 then
begin
Query1.SQL.Clear;
Query1.SQL.Add('SELECT fec_ini FROM db');
Query1.SQL.Add('WHERE fec_ini= :fecha');
Query1.SQL.Add('ORDER by fec_ini');
Query1.ParamByName('fecha').Value := DateTimePicker1.Date;
Query1.Open;
(*Query1.SQL.Clear;
Query1.SQL.Add('SELECT fec_ini FROM db');
Query1.SQL.Add('WHERE fec_ini='+QuotedStr(Edit1.Text));
Query1.SQL.Add('ORDER by fec_ini=');
Query1.Open;*)
end;
if radiogroup1.ItemIndex=1 then
begin
  Query1.Close;
  DecodeDate(Now, Year, Month, Day);
  Query1.sql.clear;
  Query1.sql.add('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 EXTRACT(month FROM registro) = :mes');
  Query1.ParamByName('mes').AsInteger := month;
  Query1.Open;
  form14.grilla;
end;
if RadioGroup1.ItemIndex=2 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Número de Póliza por el cual desea ordenar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=3 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Código de Póliza por el cual desea ordenar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=4 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique La compañia por el cual desea ordenar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=5 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Ramo por el cual desea ordenar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=6 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique La cédula del cliente para localizar la póliza deseada','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=7 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Nombre o Razón Social por el cual desea ordenar ó localizar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=8 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Número de Teléfono por el cual desea ordenar ó localizar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
case RadioGroup1.ItemIndex of
0:edit1.Enabled:=true;
1:edit1.enabled:=true;
end;
end;
procedure TForm14.Edit1Change(Sender: TObject);
var
buscar:string;
begin
case RadioGroup1.ItemIndex of
  2:buscar:='Select 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,registro From db.db Where num_pol like "' + (Edit1.Text) + '%"';
  3:buscar:='Select 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,registro From db.db Where cod_pol like "' + (Edit1.Text) + '%"';
  4:buscar:='Select 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,registro From db.db Where com_pol like "' + (Edit1.Text) + '%"';
  5:buscar:='Select 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,registro From db.db Where ram_pol like "' + (Edit1.Text) + '%"';
  6:buscar:='Select 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,registro From db.db Where ced_cli like "' + (Edit1.Text) + '%"';
  7:buscar:='Select 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,registro From db.db Where nom_cli like "' + (Edit1.Text) + '%"';
  8:buscar:='Select 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,registro From db.db Where Tel_cli like "' + (Edit1.Text) + '%"';
end;
  Query1.Close;
  DBGrid1.Enabled:=false;
  dbgrid1.Enabled:=true;
  Query1.SQL.Clear;
  Query1.SQL.Add(buscar);
  Query1.Active:=True;
  Query1.Open;
  dbgrid1.Columns.Items[0].Width:=60;
  dbgrid1.Columns.Items[1].Width:=200;
  dbgrid1.Columns.Items[2].Width:=200;
  dbgrid1.Columns.Items[3].Width:=90;
  dbgrid1.Columns.Items[4].Width:=90;
  dbgrid1.Columns.Items[5].Width:=90;
  dbgrid1.Columns.Items[6].Width:=90;
  dbgrid1.Columns.Items[7].Width:=90;
  dbgrid1.Columns.Items[8].Width:=90;
  dbgrid1.Columns.Items[9].Width:=90;
  dbgrid1.Columns.Items[10].Width:=90;
  dbgrid1.Columns.Items[11].Width:=90;
  dbgrid1.Columns.Items[12].Width:=90;
  dbgrid1.Columns.Items[13].Width:=90;
  dbgrid1.Columns.Items[14].Width:=150;
  dbgrid1.Columns.Items[15].Width:=150;
  dbgrid1.Columns.Items[16].Width:=90;
  dbgrid1.Columns.Items[17].Width:=90;
  dbgrid1.Columns.Items[18].Width:=90;
  dbgrid1.Columns.Items[19].Width:=90;
  dbgrid1.Columns[0].Title.caption:='Código';
  dbgrid1.Columns[1].Title.caption:='Compañia';
  dbgrid1.Columns[2].Title.caption:='Ramo';
  dbgrid1.Columns[3].Title.caption:='Bien Asegurado';
  dbgrid1.Columns[4].Title.Caption:='Cantidad';
  dbgrid1.Columns[5].Title.Caption:='Número de Póliza';
  dbgrid1.Columns[6].Title.Caption:='Número de Cert.';
  dbgrid1.Columns[7].Title.Caption:='Fecha Inicio';
  dbgrid1.Columns[8].Title.Caption:='Fecha Vence';
  dbgrid1.Columns[9].Title.Caption:='Prima';
  dbgrid1.Columns[10].Title.Caption:='Comisión';
  dbgrid1.Columns[11].Title.Caption:='Bono';
  dbgrid1.Columns[12].Title.Caption:='Sub-Comisión';
  dbgrid1.Columns[13].Title.Caption:='Cédula';
  dbgrid1.Columns[14].Title.Caption:='Nombre';
  dbgrid1.Columns[15].Title.Caption:='Domicilio Fiscal';
  dbgrid1.Columns[16].Title.Caption:='Teléfono';
  dbgrid1.Columns[17].Title.Caption:='Pago';
  dbgrid1.Columns[18].Title.Caption:='Precio';
  dbgrid1.Columns[19].Title.Caption:='Deuda';
end;

el radiobutton 0 es el que dice fecha el resto de opciones van a la perfeccion

Gracias adelantadas!!

A ver, dime una cosa, que tipo de campo es fec_ini, Date o String;

Salud OS

fec_ini es tipo Date

tabla paradox 7 y uso delphi 7

Gracias!

Cita:

Empezado por lKinGl (Mensaje 276635)

fec_ini es tipo Date

tabla paradox 7 y uso delphi 7

Gracias!

Pues en apariencia deberia de funcionar, has este cambio:

Código Delphi [-]Query1.ParamByName('fecha').asDate := DateTimePicker1.Date;

Si no funciona y te sigue mandando error tal vez es el formato de fecha corta que esta usando la db, pero eso lo podrias resolver poniendo esta linea:

Código Delphi [-]ShortDateFormat := 'mm/dd/yyyy';
//ó 
ShortDateFormat := 'dd/mm/yyyy';

Prueba con ambas en caso de que no te funcione.

Salud OS