Ver Mensaje Individual
  #8  
Antiguo 09-06-2011
Avatar de oesqueda
oesqueda oesqueda is offline
Miembro
 
Registrado: dic 2007
Ubicación: Guadalajara, Mexico
Posts: 66
Reputación: 19
oesqueda Va por buen camino
Perdon por no poner el codigo marcado como codigo, son mis primeros mensajes .

En serio mejor haz consulta con parametros.

En el componente ADO en el commandtext (SQL):
Código SQL [-]
select *
from TABLA
where TicketID LIKE :Tiq or Usuario LIKE :usu
order by LOQUESEA

Y en el codigo (usa ADODATASET en vez de ADOTABLE):
Código Delphi [-]
      with ADOTableTicket do  begin
        Close;
        Parameters.ParamByName('Tiq').Value := TIQ;
        Parameters.ParamByName('USU').Value := Format('*%s*', [usu]);
        Open;
      end; {with}

Quitas el autofilter, ese usalo poco es mejor hacer consultas SQL.
Usando el TADODataset, pones la sentencia SQL dento de commandtext y solo debes cerrar cambiar parametros y volver a abrir, te recomiendo pongas indices en las columnas que usas para las consultas (where) y el ordenamiento (order by).

Asi tu codigo de se redujo y encapsulas codigo donde debe ir.

Saludos
__________________
OEsqueda
Responder Con Cita