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

[douglas]

mira todo ese revoltijo, es para que cuando elijan el mes de ese combobox, coloque el numero del mes, luego la funcion del anio es conseguir el año actual en la computadora, bueno fecha 1 y 2, son para que en la fecha uno que toma el primer dia del mes, y fecha dos que toma el dia 31, como el ultimo dia del mes, solo como para que me tomes todos los datos del mes.

basicamente lo que necesito hacer es una busqueda por mes, de todos los movimientos que tengan.

[[eduarcol]]

Prueba colocando el StrtoDate

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:=StrtoDate(fecha1);
     adoquery1.Parameters.ParamByName('Fechafin').Value:=StrtoDate(fecha2);
     adoquery1.Open;
end;

[ContraVeneno]

Como ya te dijeron, sería mejor usar TDateTimePicker en lugar de TEdit

y la función "FormatDateTime" también te puede ser útil.

[[egostar]]

Empezado por douglas

mira todo ese revoltijo, es para que cuando elijan el mes de ese combobox, coloque el numero del mes, luego la funcion del anio es conseguir el año actual en la computadora, bueno fecha 1 y 2, son para que en la fecha uno que toma el primer dia del mes, y fecha dos que toma el dia 31, como el ultimo dia del mes, solo como para que me tomes todos los datos del mes.

basicamente lo que necesito hacer es una busqueda por mes, de todos los movimientos que tengan.

Hacer esto que quieres te lleva a errores de datos, por ejemplo imaginate esta consulta

fecha1 := '01/02/2007'
fecha2 := '31/02/2007'

Vaya, eso es un error tremendo no?

Salud OS

[douglas]

si me tiro error en la fecha 2, pero como puedo realiar mi busqueda pormes en la tabla, cuando la tabal tienen movimientos por dia, como puedo hacer eso, perdon alguien me puede hacer el favor de explicar que es un tdatetimpicker

[[egostar]]

No estoy muy seguro pero aquí debe haber alguien que nos ayude, pero se me ocurre que puedes usar la funcion Extract(month from fecha).

Algo así

Código Delphi [-]
Where Extract(month from Tabla.Fecha) = 2

Depende de la base de datos que uses.

Salud OS

[[Caral]]

Hola
Como dije anteriormente, yo no me complicaria la vida, lo haria asi:
De la paleta Win32, selecciona el DateTimePicker y coloca dos en el form.
Pones este codigo y ya:

Código Delphi [-]
procedure TForm5.ComboBox1Change(Sender: TObject);
begin
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Text:= 'select total from dia where Fecha >= '+DateToStr(DateTimePicker1.Date)+' AND Fecha <= '+DateToStr(DateTimePicker2.Date);
     adoquery1.Open;
end;

Como podras ver.
1- NO hay variables
2- NO hay paremetros
3- No hay trasformaciones de ningun tipo.
4- Mucho mas legible.
Saludos

[douglas]

perdon egostar pero con el metodo que propones me tira un erro que dice: error no especificado, perdonen tanta molestia chicos

[douglas]

ok caral gracias probader de inmediato y lo comento