Continua el Problema TADOQuery con Fechas
Hola Amigos Agradesco su respuesta es casi inmediata, Pero continuo con el problema aun...!!.
Aqui les doy algunos datos mas a ver que me pueden ayudar; Poseo un Modulo de datos en el cual utilizo TADOConnection para enlazar las TADOTable con la base de datos elaborada en Access; Utilizo el Driver Microsoft Jet 4.0 OLE DB PROVIDER.
Importante: A Travez de los Tcombosbox los usuarios seleccion la fecha y año respectivamente que sera enviadas como parametros al query
With Mdatos.Q_Fact_Compra Do
Begin
Close;
parameters.AddParameter.Name := 'mes';
parameters.AddParameter.Name := 'ano';
Parameters.ParamByName('mes').DataType := ftSmallInt;
Parameters.ParamByName('ano').DataType := ftSmallInt;
Parameters.ParamByName('mes').Value := strtoint(CB_mes.Text);
Parameters.ParamByName('ano').Value := strtoint(CB_ano.Text);
With Sql Do
Begin
Clear;
Add('Select * from T_Factura_Compra ');');
Add('Where (month(Fech_Factura)= :mes) and (year Fech_Factura)= :ano');
End;
prepared;
Open;
End;
Tambien utilize el codigo recomendado
WHERE Month(FECHA_FACTURA) = :Mes AND Year(FECHA_FACTURA) = :Ano
Intente las recomendaciones pero los mensajes de Error son los Siguientes:
1.- No se han espeficado valores para algunos parametros requeridos
2.- error no especificado..!!
Probe la ejecucion sin la instruccion where y Funciona perfectamente. Supongo que es un Error de asignacion de Tipos.
Agradesco lo que me puedan ayudar, llevo varios dias intentando resolver este problema...!!
|