Problema con consulta (Extraño)

[ContraVeneno]

¿de que base de datos estamos hablando?

Yo te podría recomendar dos cosas:

1. Dale nombre a tus componentes, es más fácil saber que qryBancos es la consulta de bancos y es más dificil recordar para que srive ADOQuery7.

2. En lugar de utilizar SQL.Text yo te recomendaría utilizar SQL.Add(''). Esto porque al utilizar .Text toda tu consulta se presentará en una sola línea, a diferencia de utilizar .Add() en donde la consulta se presenta según el número de líneas que utilizes. Esto tiene su principal ventaja en que si tienes algún error en tu consulta, la excepción te regresará el número de línea donde tienes el error. En cambio si utilizas .Text la excepción siempre te dirá que el error esta en la línea 1.

[[Caral]]

Gracias ContraVeneno
La base de datos es access.
Tienes razon con lo de los nombres, casi siempre lo hago, solo cuando tengo prisa,no.
Curioso:
Cuando hago la consulta con add, me manda un error se sintaxis, en text, no.
Lo curioso es que funciona bien con todas las fechas que no sean hoy ni aller, osea da correcta la consulta en fechas menores del dia 28/02/2007, mayores a esta no.
Seguro no quiere trabajar mas, se canso.
Saludos

[roman]

Yo no entiendo, dices, "tengo esta consulta", pero en realidad ¡tienes ocho! ¿Fallan todas? ¿No podríamos concentrarnos en una sóla?

// Saludos

[delphi.com.ar]

Empezado por roman

Yo no entiendo, dices, "tengo esta consulta", pero en realidad ¡tienes ocho! ¿Fallan todas? ¿No podríamos concentrarnos en una sóla?

Por eso mismo me abstuve de responder..

Hay algo a tener en cuenta, en Access es algo riesgoso trabajar con fechas con el formato #fecha#, porque Access se encarga de convertir el formato automáticamente, y para el motor: #1/31/2007# = #31/1/2007# porque se encarga automáticamente de convalidar el formato. Prueba:

Código SQL [-]
SELECT #1/31/2007#, #31/1/2007#

Entonces si trabajamos con ese formato, no será seguro que hará con fechas donde el día sea menor a 12. (Esto lo resuelve según la configuración regional)

Entonces las opciones mas seguras son utilizar bind parameters, o utilizar alguna función como DateSerial, donde el orden de los parámetros no cambia:

Código SQL [-]
SELECT ..
WHERE FECHA = DateSerial(2007,1,31)

Saludos!

[roman]

¡Válgame! ¿Hay algo en lo que access sea estándar? Tiene total lógica lo que dices, el 1 de marzo daría problemas y no así el 28 de febrero. Ahora pregunto, si pasas las fechas con parámetros, ¿si funciona?

// Saludos

[[Caral]]

No se Roman, Como lo hago?
Me das un ejemplo en un caso.
Por otro lado, cambie la sintaxis y sigue, asi:

Código Delphi [-]
ShortDateFormat := '#dd/mm/yyyy#';
   ADOQuery1.Active:= False;
   ADOQuery1.SQL.Text:= 'SELECT DISTINCTROW Factura.Fecha, Factura.Terminos, Sum(Factura.MntTotal) AS SumaDeMntTotal '+
                        ' FROM Factura '+
                        ' WHERE Factura.Fecha = '+DateToStr(DTP1.DateTime)+' AND Factura.Terminos = "Contado" '+
                        ' GROUP BY Factura.Fecha, Factura.Terminos ';
    ADOQuery1.Active:= True;

Saludos

[jhonny]

Supongo que deberia ser algo como:

Código Delphi [-]
   ShortDateFormat := 'dd/mm/yyyy';
   ADOQuery1.Active:= False;
   ADOQuery1.SQL.Clear;   
   ADOQuery1.SQL.Add := 'SELECT DISTINCTROW Factura.Fecha, Factura.Terminos,';
   ADOQuery1.SQL.Add := 'Sum(Factura.MntTotal) AS SumaDeMntTotal ';
   ADOQuery1.SQL.Add := 'FROM Factura ';
   ADOQuery1.SQL.Add := 'WHERE Factura.Fecha = :fecha AND Factura.Terminos = "Contado" ';
   ADOQuery1.SQL.Add := 'GROUP BY Factura.Fecha, Factura.Terminos ';
   ADOQuery1.ParamByName('fecha').AsDateTime := DateTimePicker1.Date; //Donde DateTimePicker1. 
                                                      //es un ejemplo de un componente que asumo se llame asi
   ADOQuery1.Active:= True;

Edite: para organizar un poco a ver si se ve mejor.

[jhonny]

Caramba¡¡¡, ya recuerdo porque acces nunca me a llamado la atención.

[jhonny]

Nunca en mi vida he trabajado con Acces pero quizá sea porque el formato de la fecha debe ser mm/dd/yyyy, si fuese eso tendrías que hacer:

Código Delphi [-]
FormatDate('mm/dd/yyyy', DTP1.DateTime);

en lugar de

Código Delphi [-]
 
DateToStr(DTP1.DateTime);

Empezado por roman

Yo no entiendo, dices, "tengo esta consulta", pero en realidad ¡tienes ocho!

jejeje, lo mismo se me paso por la cabeza cuando comence a leer jejeje

[roman]

Lo de la fecha lo está solventando con:

Código Delphi [-]
ShortDateFormat := 'dd/mm/yyyy';

De cualquier forma, es cierto que lo mejor es usar parámetros en lugar de pasar la fecha mezclada con la consulta.

// Saludos

[[Caral]]

Gracias Roman y jhonny
Son varias consultas pero si la fecha es menor que 01/03/2007, funciona bien.
Lo que me extraña es eso, por que en alguna fechas si y en otras no.
La base de datos esta actualizada y contiene la informacion.
Saludos

[roman]

Ok, pero, vuelvo a preguntar, ¿fallan todas las consultas?

// Saludos

[[Caral]]

Exacto Roman, fallan todas, si la fecha es menor a hoy.
De lo contrario todas funciona bien.
Saludos

[jhonny]

Empezado por roman

Lo de la fecha lo está solventando

Tienes razon...

En cuanto al problema, ¿Estas totalmente seguro de que estas conectado a la BD que tiene los datos reales y actualizados?

[[Caral]]

Correcto jhonny
La con la fecha lo soluciono como dice Roman.
Los datos estan actualizados y me conecto bien.
El problema esta en que no quiere trabajar mas osea hoy, sera por que es viernes y hace calor y necesito una cerveza y salir del trabajo.
Saludos