Error en consulta sql TADOQuery
 

hola amigos,
tengo problemas llamando una consulta sql a un TADOQuery me arroja el QReport vacio, el TADOQuery al principio tiene lo siguiente en el sql
Código Delphi [-]select * from clientes

luego le adiciono lo siguiente
Código Delphi [-]procedure TForm7.btn1Click(Sender: TObject); begin Form7.vendedor.Locate('vendedor', Form7.cbb1.Text,[loCaseInsensitive, loPartialKey]); try QuickReport1:=TQuickReport1.Create(self); QuickReport1.clientes.SQL.Add('WHERE clientes.id_vendedor = '+ Form7.vendedor.FieldByName('id_vendedor').AsString+' AND clientes.activado BETWEEN :'+Form7.medt1.Text+' AND :'+FORM7.medt2.Text); QuickReport1.clientes.Open; QuickReport1.Preview; finally QuickReport1.Free; end; end;

Saludos HoGueRa

Hola, no has puesto bien las etiquetas delphi de esa forma tu codigo no se entiende casi nada.

Así quedaría tu codigo con las etiquetas:

Código Delphi [-]
procedure TForm7.btn1Click(Sender: TObject);
begin
 Form7.vendedor.Locate('vendedor', Form7.cbb1.Text,[loCaseInsensitive, IoPartialKey]);
 try
  QuickReport1:=TQuickReport1.Create(self);
  QuickReport1.clientes.SQL.Add('WHERE clientes.id_vendedor = '+
        Form7.vendedor.FieldByName('id_vendedor').AsString+
      ' AND clientes.activado BETWEEN :'+Form7.medt1.Text+' AND :'+FORM7.medt2.Text);
  QuickReport1.clientes.Open;
  QuickReport1.Preview;
 finally
  QuickReport1.Free;
 end;
end;

Lo que veo, tu codigo esta en el form7, por lo que ya no necesitas referenciar a Form7, el Locate supongo que lo utilizas para ver si existe el vendedor, si existe aumentas a tu consulta la parte del Where y muestras tu reporte, si es así entonces falta un if, también veo que esta demas los : de tu between.

Tu codigo quedaría así:

Código Delphi [-]
procedure TForm7.btn1Click(Sender: TObject);
begin
 if vendedor.Locate('vendedor', cbb1.Text,[loCaseInsensitive, IoPartialKey]) then
 begin
   try
     QuickReport1:=TQuickReport1.Create(self);
     QuickReport1.clientes.SQL.Add('WHERE id_vendedor = '+    
             vendedor.FieldByName('id_vendedor').AsString+' AND activado BETWEEN '+
             medt1.Text+' AND '+medt2.Text);
     QuickReport1.clientes.Open;
     QuickReport1.Preview;
   finally
     QuickReport1.Free;
   end;
 end
 else
   Showmessage('No existe el vendedor');
end;

Saluditos

Quiza este pasando esto
 

Siento que están liberando el componente antes de poderlo ver, por eso el grid no te muestra nada o donde lo quieras desplegar, si no quieres mantener la conexión usa el componente kbmem que es una tabla en memoria
Jesús Salvador González González
:)

Hola jesus, lo que esta liberando es el formulario donde esta su reporte, no creo que el problema sea la liberación ya que se ejecuta esta línea QuickReport1.Free; despues de que se cierra el reporte.

Saluditos

Hola Amigos
Gracias por sus respuestas Caro y Jesus Salvador, disculpen mi error en las etiquetas del codigo, hice las modificaciones propuestas, pero igual me sigue arrojando vacio, saque de la consulta la parte del BETWEEN y ahi si me arroja todo sobre ese vendedor yo queria filtrarlo tambien por fecha pero se ve que algo no esta bien, sigo probando gracias por sus respuestas.

Saludos HoGueRa

Usa PreviewModal para mostrar el informe.

Preview no es modal, por tanto el código se sigue ejecutando. Si tu consulta devuelve 3 o 4 registros, te funcionará bien. Si tu consulta devuelve ... por decir algo, 300 páginas, tendrás un Access violation o similar.

Pon un breakpoint en la linea quickReport.free y ejecuta el programa, verás que delphi se parará en el punto de ruptura sin haber cerrado el informe. Ahora prueba con PreviewModal ;).

Saludos

Hola
disculpen pero puede ser el error que el campo es DATE/TIME y la consulta envia solo el DATE, como tendria que formular la consulta para salvar eso?

la estructura de la tabla tiene el campo ACTIVADO como DATE/TIME formato FECHA CORTA

Saludos

- ¿de qué tipo están definido en la base de datos "id_vendedor" y "activado"?
- ¿seguro que el Quickreport tiene su propiedad dataset apuntando a la consulta "clientes"?

Antes de abrir la consulta, pon un memo en tu ventana y haz algo así:

Código Delphi [-]
memo1.lines.assign(clientes.sql);

y pon en el foro lo que haya en el memo1, quizás sea un problema de interpretación de fechas.

Lo que me intriga son los dos puntos de la consulta:

Código Delphi [-]
 BETWEEN :'+Form7.medt1.Text+' AND :'+FORM7.medt2.Text

...no me cuadra de ninguna forma.

Saludos

puedes sacarle la vuelta y mejorar tu codigo
 

Si el problema es el BETWEEN yo te recomiendo que descompongas la fecha en tu manejador de base de datos puedes descomponer la fecha

access
Day(<Tu fecha en bdd>) as VDay
Month(<Tu fecha en bdd>) as VMonth
Year(<Tu fecha en bdd>) as VYear
ms-sql
DATEPART(dd,<Tu fecha en bdd>) as VDay
DATEPART(mm,<Tu fecha en bdd>) as VMonth
DATEPART(yy,<Tu fecha en bdd>) as VYear
orecle
to_char(<Tu fecha en bdd>,'DD') VDay
to_char(<Tu fecha en bdd>,'MM') VMonth
to_char(<Tu fecha en bdd>,'YYYY') VYear


hay unas fuciones en delphi que descompone la fecha en dias mes año hora minuto segundo, no estoy seguro pero es encodedatetime decodedtetime, hay ejemplos en la ayuda del delphi con ello haces las comparación para encontrar entre dos fechas

además esto te ayuda a prevenir hackeo "sql inyection" en tu aplicación

Hola
Puse un memo en el form y arrojo esto antes de la consulta:

Código SQL [-]
select * from clientes WHERE id_vendedor = 1 AND activado BETWEEN 01/01/2001 AND 01/01/2009

le quite los dos puntos, el Qreport tiene el dataset apuntando a clientes, tiene que ser algo relacionado con las fechas porque si dejo por ejemplo la siguiente orden sql anda perfecto

Código SQL [-]
select * from clientes WHERE id_vendedor = 1

asi funciona bien, lo que voy a intentar es desglozar la fecha como propone jesus salvador, para ver si asi toma la consulta.

saludos

Encontre la solucion era simple, el error estaba en la consulta teniq que ser asi

Código Delphi [-]
      QuickReport1.clientes.SQL.Add('WHERE id_vendedor = '+
          vendedor.FieldByName('id_vendedor').AsString+' AND activado BETWEEN #'+
          medt1.Text+'# AND #'+medt2.Text+'#');

tenia que estar entre numerales las fechas de consulta, por si alguien le pasa lo mismo....

Gracias a todos Saludos HoGueRa

Revisa este hilo, te intersa usar parámetros.

Saludos