Consulta SQL por Mes y Año
 

Salu2 amigos foristas

necesito realizar de una u otra forma una consulta sql donde el usuario pueda especificar el mes y año que quiere obtener los resultados, los resultados deben salir en un quickreport...

Tengo un datatimepicker donde aparecen los meses ej. Enero, Febrero

Tengo un Edit donde sale el numero de mes marcado en el datatimepicker
ejemplo: 01...12

tengo el quickreport armado con 1 Query direccionado a la tabla costosygastos

en el formulario donde selecciono el mes y escribo el año hay un boton que tiene este codigo:

Código Delphi [-]
with Form45.Query1 do begin
   Close;
   SQL.Clear;
   SQL.Text := 'Select Fecha,grupo,des_cu,debe,haber from costosygastos.db where fecha >= "01/"+QuotedStr(edMes.Text)+"/"+QuotedStr(edAno.Text)+"';
   Open;
end;
form45.QuickRep1.Preview;

pero al presionar el boton me sale un error que dice lo siguiente:

"Project Project1.eae raised exception class EDBE EngineError with message 'Unexpected end of command. Token:"
Line Number: 1'. Process stopped. Use Step or Run to continue.

gracias adelantadas por su ayuda y si tienen alguna otra forma de hacerlo que funcione como deseo, tambien sirve :D

Hola

Código Delphi [-]
SQL.Text := 'Select Fecha,grupo,des_cu,debe,haber from costosygastos.db where fecha >= "01/"'+
            QuotedStr(edMes.Text)+'"/"'+QuotedStr(edAno.Text);

Aunque yo lo haría así

Código Delphi [-]
SQL.Text := 'Select Fecha,grupo,des_cu,debe,haber from costosygastos.db where fecha >= '+
            QuotedStr('01/'+edMes.Text+'/'+edAno.Text);

Salud OS

Gracias Egostar de la segunda forma si me funcionó[IMG]file:///C:/Users/Rey/AppData/Local/Temp/moz-screenshot.jpg[/IMG]

oye egostar pero el codigo que me diste sirve pero solo para buscar los 1 del mes que seleccione como seria para buscar en todo el mes?

lkinGl,
Si deseas mostrarnos una imagen debes subirla a un sitio que ofrezca el "alojamiento" de imágenes, como lo es ImageShack. Te registras, subes la imagen y luego la seleccionas y presionas en forum codes o algo así (no tengo abierto ImageShack en estos momentos). Te mostrará un cuadro de diálogo en donde estará el Code BB para que después lo pegues aquí.

Saludos,

disculpa pero no queria poster imagenes, es que tenia esa url copiada y sin querer preione ctrl+v

Disculpa lKinGl pero la consulta que muestra Egostar dice algo así:

"Traeme todos los costos y gastos mayores o iguales a la fecha 01/Mes/Año" Donde Mes y Año son los dos "parámetros" que le indicas a la consulta.

¿Seguro que te devuelve solo las de fechas correspondiente al primer día del més?:confused:

Habría que ver...

Saludos,

ponga el mes que ponga me saca el registro que tengo en la tabla

que por cierto la fecha del registro que tengo para la prueba es de


10/01/2008

si pongo cualquier mes igual me muestra el registro

salu2

pero caundo cambio de año 2008 no me muestra el registro

eso quiere decir que me muestra todos los registros de 2008

Pues la verdad no entiendo. :confused:
No veo error en la consulta.

Si tu le pides que muestre las fechas mayores o iguales a 01/05/2008 (por poner un ejemplo) y en tu base de datos existen registros con las fechas:

01/04/2008
17/12/2008
01/05/2008
10/06/2007

Claramente debería mostrar sólo dos:
17/12/2008
01/05/2008

Tal vez esté digo una tontera pero... ¿te aseguraste de que el formato que guarda en la base de datos es dd/mm/aaaa y no mm/dd/aaaa?

La verdad es que me resulta raro de que una consulta tan elemental falle.
Saludos,

si men estoy seguro que en la bd se guarda dd/mm/yyyy

pero yo no quiero que me muestre las fechas mayores o iguales a..

yo quiero que me muestre los registros de ese mes y de ese año ejemplo

los registros de Enero 2008

¿Qué motor estás empleando?
Dependiendo del motor que uses, se puede emplear un CAST , un CONVERT, EXTRACT. Cada motor ofrece distintos medios para convertir o extraer el mes, año, dia...

Saludos,

uso paradox BDE delphius

Hola lking, puedes probar con Extract.

Código Delphi [-]
SQL.Text := 'Select Fecha,grupo,des_cu,debe,haber '+
             'from costosygastos.db '+
             'where Extract(month from fecha) = '+MonthOf(DateTimePicker.Date)+
             ' and Extract(year from fecha) = '+YearOf(DateTimePicker.Date);

Saluditos

Ummm, sobre Paradox digamos que estoy cero a la izquierda:(.
Pero si no estoy muy errado, creo (digo creo, no estoy totalmente seguro) que la SQL que buscas debe ser algo así:

Código SQL [-]
SELECT tus_campos from tu_tabla
WHERE (MONTH(Fecha) = tu_mes) AND (YEAR(Fecha) = tu_año)

MONTH y YEAR son dos funciones que como es de esperar cada una extrae el mes y el año de un campo DATE.

Saludos,

me sale un error que dice incompatible types con string and word y otro con string and integer

Tienes que convertir a string lo que te devuelve las funciones de YearOf y MonthOf.

Código Delphi [-]
SQL.Text := 'Select Fecha,grupo,des_cu,debe,haber '+
             'from costosygastos.db '+
             'where Extract(month from fecha) = '+IntToStr(MonthOf(DateTimePicker.Date))+
             ' and Extract(year from fecha) = '+IntToStr(YearOf(DateTimePicker.Date));

Saluditos

tambien me da un error Token Fecha algo asi

asi si me sirve caro, pero con un datatime picker que muestra dias meses años, hay forma de que este datatime picker me muestre solo mes y año?

o con 2 combobox 1 que muestre los meses y otro con los años

combobox 1 con formato 99 y el combobox2 con formato 9999

¿se puede?

gracias adelantadas

Bueno lKinGl, he aclarado que no se de Paradox, yo al menos ofrecí una idea... no esperaba que sea perfecto:mad:

Por un lado estaba pensado en jugarme con EXTRACT, pero a ultimo momento se me ocurrió que podría contar con esas funciones:D

Desconozco si el DateTimePicker tiene alguna propiedad para hacer que muestre u oculte el día, o el mes o el año... tendría que fijarme. No tengo Delphi abierto en estos momentos.

Tal vez exista un componente de tercero que haga lo que pides... eso ya es cuestión de burcar.

No veo el drama de emplear Combos, excepto si son muchos los años. En lo personal evito los combos cuando son muchos... no es demasiado estético tener un combo que despliega más de 10 items.

Puedes emplear el componente que deses lKinGl. Ya será cuestión de hacer la conversión que sea necesaria cuando armes la consulta.

Saludos,