Filtro Numerico y String con Like y ADO me Urge!!! por favor :(

[[Caral]]

Hola
Me parece que esta algo mas complicado de la cuenta, mucho codigo para un filtro, pero intenta asi:

Código Delphi [-]
procedure TfrmTicket.btnBuscarClick(Sender: TObject);
const
  FILTRO = '(TicketID) LIKE ''*%d*'') OR (Usuario) LIKE (''*%s*'')';
var
  sCad:string;
  Tiq : Integer;
  Usu : String;
begin
  if edtBuscar.Text <> '' then
    with ADOTableTicket do
    begin
      Filtered:= False;
      sCad := Format(FILTRO, [Tiq, usu]);
      Filter:= sCad;
      Filtered:= True;
    end
end;

Es un adotable, si no esta activo no reconoce el filtro, me da la impresion.
Saludos

[ivantj24]

Caral Gracias por retomar el tema, y enserio que mala onda, que aun no se pueda, intente como me dices en el mensaje, solo quite los Active:=False; y Active:=True;. y no tampoco con eso se pudo ya no se que hacer enserio!!!! de plano al parecer no se puede hacer un filtro en delphi, con ADO numeriro y string??? muchas gracias por tomarse las molestias pero aun asi de plano no puedo aun

[[Caral]]

Hola
Que base de datos usas?.
Saludos

[ivantj24]

Sql Server 2005

[[Caral]]

Hola
Que pena por que me hubiera gustado echarle un vistazo al programa para ayudar mejor.
Pregunto:
Por que si el filtro te esta dando tantos problemas por que no haces la consulta con un AdoQuery via sql, ademas sera mucho mas eficiente y rapida.
Saludos

[ivantj24]

Mira ahora mismo voy de salida ya del trabajo,e ste es un proyecto de la universidad que tengo que terminar en este mes :S:s y para todos los diferentes ventanas utilizo a fuerza buscar por el ID de usuario, ticket, departamento etc etc, entonces si no me queda de otra tendre que ver como hacerle pero con el ADOquery como dices, lo que pasa es que el Grid esta relacionado pero con el ADOTable entonces, si lo cambio a un ADOquery tendre, supongo no se mucho de Delphi, que si cambio a ADOquery, tendria que cambiar muchas cosas por que todo lo demas esta relacionado al ADOTable utilizo componentes DBEdits y cosas que estan relacionadas directamente al ADOtable, por eso es mi complicacion cambiarme por que tendria que cambiar algunas partes de codigo, ya ya voy a terminar, de todos modos muchas gracias enserio, y probare en casa a hacer una consulta, o sino esperare a ver si alguien tiene una idea, sino entonces empezare a hacer pruebas, gracias Caral

[[Caral]]

Hola
Puedes usar un adoquery, presentar los datos en el dbgrid, enlazar el adotable etc., etc., etc, sin tener que hacer grandes cambios, es sencillo.
La consulta sql seria muy sencilla.
Saludos
PD: Si insistes en el filtro le entramos y lo resolvemos, todo tiene solucion.

[oesqueda]

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]

No quiero equivocarme pero el like no deberia usarse en un campo numerico asi
Corrijanme por favor

[ivantj24]

Gracias Oesqueda, por la ayuda, y no lo he probado pero en el trabajo ya estoy fuera de tiempo para entregar el proyecto, me dijeron que asi lo dejara (con busquedas por string unicamente) pero personalmente no me siento bien, ya que en un futuro se que volvera a presentarse esto, de todos modos me dijeron que si fuera a hacer algo seria con ADOTable por Filtro, les agradesco a todos la ayuda, pero por el momento asi me quedare ya, y en mi tiempo libre buscare la solucion pro el momento no quiero detenerme aqui por que aun me faltan otros detalles mas, y no me quiero complicar de mas, saludos a todos y muchas gracias por la ayuda.