Hola Amigos..!!
Ante todo muchas Gracias, quisiera que me ayudaran con el siguiente problema:
Poseo las Tablas: T_Proveedor
T_Factura_Compra
y un TADOQuery: Q_Factura_Compra que posee los siguientes campos:
Cod_Factura
Cod_Proveedor
Fech_Factura
Sub_Total
En un Formulario poseo 2 Tcombobox que sirven de parametros:
CB_Año : Para Seleccionar un determinado año.
CB_Mes : pasar seleccionar un mes Correspondiente.
y ademas poseo una dbgrid la cual esta enlazada a Q_Factura_Compra
Quisiera realizar una consulta personalizada de todas las Facturas de compra de un mes y un Año determinado,
segun los parametros seleccionados por el usuario a travez de los TCombobox antes mencionados.
Lo estoy haciendo del siguiente modo pero no se como manejar los filtros por mes y año
With Mdatos.Q_Factura_Compra Do
Begin
Close;
parameters.AddParameter.Name := 'mes';
parameters.AddParameter.Name := 'ano';
Parameters.ParamByName('mes').DataType := ftDateTime;
Parameters.ParamByName('ano').DataType := ftDateTime;
Parameters.ParamByName('mes').Value := CB_Mes.Text;
Parameters.ParamByName('ano').Value := CB_ano.Text;
With Sql Do
Begin
Clear;
Add(
'Select * from T_Fact_Compra ');
Add(
'Where ((Fech_Factura= :mes)and(Fech_Factura= :ano)) ');
End;
prepared;
Open;
End;
Sucede que dice que el parametro es invalido, he tratado de usar la Funcion strtodatetime pero sucede lo mismo..
Se les Agracede la ayuda que me puedan prestar...!!