error de criterios

[douglas]

buenas chicos quiero hacer una consulta, donde necesito mostrar en un grid, todas las fechas que pertenecen al mes que el usuario elije, pero me da el siguiente error:


no coinciden los tipos de datos en la expresion de criterios

el codigo es el siguiente:

Código Delphi [-]
procedure TForm5.ComboBox1Change(Sender: TObject);
var
a:real;
b,fecha1,fecha2,anio:string;
begin
     anio:=getlocald;
     anio:=copy(anio,7,10);
     a:=combobox1.ItemIndex+1;
     fecha1:='01/'+formatfloat('00',a)+'/'+anio;
     fecha2:='31/'+formatfloat('00',a)+'/'+anio;
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select total from dia');
     adoquery1.SQL.Add(' where fecha between :Fechain and :Fechafin');
     adoquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     adoquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     adoquery1.Open;
     
end;

[[Caral]]

Hola
Para mi el problema es que estas poniendo la fecha como un float, cuando es date.
Y en cuanto al parametro lo pones como value y sigue siendo Date.
Saludos

[douglas]

pues las tengo en strings, que son las fecha1 y fecha2, ahora lo demas no te lo entendi, perdon que te moleste, me puede explicar otro poquito

[[Caral]]

Hola
Empecemos desde el principio.
Las Fechas en la tabla se suelen poner en un campo Date osea fecha, no en un string que es tipo texto.
Cuando haces una comparacion con el between lo haces para un campo fecha.
Por eso comentario
Saludos

[douglas]

cierto entonces tengo que cambiarlo de tipo string a tipo date.

utilizo este codigo para obtener la fecha:

Código Delphi [-]
anio:=getlocald;
     anio:=copy(anio,7,10);
     a:=combobox1.ItemIndex+1;
     fecha1:='01/'+formatfloat('00',a)+'/'+anio;
     fecha2:='31/'+formatfloat('00',a)+'/'+anio;

pero como puedo hacer eso y luego pasarlo a tipo fecha

con algo asi como:

Código Delphi [-]
strtodate

[[Caral]]

Hola
Otra vez empecemos.
Para que usas las variable Fecha1 y 2?
por que no sacas los datos de un maskedit o un datetimepicker, en vez de hacer todo ese royo?.
Me explicas cual es la necesidad?, tal vez no la entiendo.
Saludos