¿Búsqueda SQL por Fecha?

[[egostar]]

Empezado por lKinGl

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

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

Salud OS

[lKinGl]

porfa ayundeme !!

[[egostar]]

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

[lKinGl]

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

[[egostar]]

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

Salud OS

[lKinGl]

fec_ini es tipo Date

tabla paradox 7 y uso delphi 7

Gracias!

[[egostar]]

Empezado por lKinGl

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

[paladincubano]

jeje, que pasa con los cubanos man??? aqui hay uno 100% de pura cepa... lo que pasa es que he tenido que emigrar para Espana.
saludos a todos los cubanos de por aqui.

[[egostar]]

Empezado por paladincubano

jeje, que pasa con los cubanos man??? aqui hay uno 100% de pura cepa... lo que pasa es que he tenido que emigrar para Espana.
saludos a todos los cubanos de por aqui.

Hola paladincubano, no me vas a creer pero no vi tu post en este hilo hasta ahora que he vuelto a revisarlos .

Salud OS

PD. por supuesto que no tengo nada en contra de ningún cubano, para mi todos somos amigos del mismo planeta