consulta por fecha (tipo Date) delphi

[[BlueSteel]]

Hola

Te paso a explicar el codigo

Código Delphi [-]
Datos.IBQ_Select.SQL.Clear;
Datos.IBQ_Select.SQL.Add('Select * From "Orden","Proveedor"');
Datos.IBQ_Select.SQL.Add('Where "Orden"."Pro_Rut"="Proveedor"."Pro_Rut"');
Datos.IBQ_Select.SQL.Add('And "Orden"."Ord_Fecha" Between :Var1 And :Var2');
Datos.IBQ_Select.SQL.Add('And "Pro_Razon" Like'+QuotedStr('%'+vBus.Text+'%'));
Datos.IBQ_Select.SQL.Add('Order By "Ord_Numero"');
Datos.IBQ_Select.Params[0].AsDate := vDes.Date;
Datos.IBQ_Select.Params[1].AsDate := vHas.Date;
Datos.IBQ_Select.Open;

Datos := Formulario de tipo DataModule en donde estan los Datasource y IBQuerys
IBQ_Select := IBQuery en donde realizo sentencias SQL

'and "Order"."Ord_Fecha" := Señalo el campo Ord_Fecha de la tabla Order
Between := Sentencia SQL que seria algo como "Entre"
:Var1 and :Var2 := Variables para asignar parametros

Elimina este codigo, que lo que hace es además filtrar por parte de la Razon Social de un Proveedor

Código Delphi [-]
Datos.IBQ_Select.SQL.Add('And "Pro_Razon" Like'+QuotedStr('%'+vBus.Text+'%'));

Order By "Ord_Numero" := Ordeno los resultados por El Nº de Orden

Código Delphi [-]
Datos.IBQ_Select.Params[0].AsDate := vDes.Date;
Datos.IBQ_Select.Params[1].AsDate := vHas.Date;

Con el codigo anterior le asigno al parametro 1 (Var1) el valor que tiene el componente DateTimePicker vDes
lo mismo para el parametro 2 (Var2)

Código Delphi [-]
Datos.IBQ_Select.Open;

Con esto se estaria ejecutando el codigo

Bueno, el codigo anterior tambien esta en Interbase

Salu2