error de criterios

[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;

[[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