Error en consulta sql TADOQuery

[hoguera]

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

[*Caro*]

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

[jesus salvador]

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

[*Caro*]

Empezado por jesus salvador

Siento que están liberando el componente antes de poderlo ver, por eso el grid no te muestra nada o donde lo quieras desplegar.....

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

[hoguera]

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

[[Lepe]]

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

[hoguera]

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