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

[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.

[[Caral]]

Hola
Vamos a resolver esto paso a paso:
1- Tienes que filtrar o un dato (interger) o un dato (string) en el mismo adotable.
2- Tratamos de usar OR pero se niega.
Entonces lo podemos atacar por otro lado, definiendo el filtro dependiendo de si es uno u otro:
Primero creamos una variable global, esta la colocamos publica:

Código Delphi [-]
 public
    { Public declarations }
   tipo: integer;

Esta variable nos servira para que guarde simplemente un numero.
Ahora nos colocaremos en el evento onKeyPress del edit (edtBuscar) que es el que da el dato al filtro.
En ese evento colocamos esto:

Código Delphi [-]
if (Key in ['0'..'9',#8]) then
  begin
  Tipo:= 1;
  end
  else
  Tipo:= 0;

Esto lo que hace es simplemente indicar si escribimos numeros o letras, de ser numeros el valor de Tipo sera 1 de lo contrario 0.
Bien ahora si hacemos el filtro:

Código Delphi [-]
procedure TfrmTicket.btnBuscarClick(Sender: TObject);
var
   Filtro : String;
begin
  ADOTableTicket.Filtered := False; // desconectamos el filtro

  if edtBuscar.Text <> '' then // si no esta vacío
  begin

  If Tipo = 1 then begin // si tipo es igual a 1 filtra por el tiquet (integer)
  Filtro := 'TicketID Like '+edtBuscar.Text;
  end;

  If Tipo = 0 then begin // si tipo es igual a 0 filtra por el usuario (string)
  Filtro := 'Usuario Like '''+ edtBuscar.Text + '*''';
  end;

  ADOTableTicket.Filter := Filtro; // obtiene el filtro
  ADOTableTicket.Filtered := True // lo Filtro

  End;
end;

Bien, creo que es un codigo mas claro.
Primero definimos si queremos filtrar por numeros o letras.
Segundo con el valor generado en la variable hacemos o un filtro u otro.
Espero que si no te sirve por lo menos ayas aprendido algo mas, aunque sea sencillo.
Saludos

[ivantj24]

Cara que tal, muchisimas gracias pro la ayuda enserio, y entiendo lo que dices muy bien, muy buena idea eso de usar expresiones regulares para detectar si es numerico o string, pero el detalle es que lo que queria era que con el OR me trajera los datos parecidos ya sean del campo, TicketID(Numerico) o Usuario(String), era como una busqueda dinamica, enserio te lo agradesco el esfuerzo, solo que de plano en este caso no aplicaria, pro que como te digo la idea es hacer la busqueda en ambos si yo busco 1, me traiga de TicketID los resultadosqu etengan en si el numero 1, y tambien todos los registros del campo Usuario, que contengan el 1, la opcion que me das te la agradesco y esta bien, solo que me trae ya sea de un campo o del otro, pero no de ambos hoy tratare de hacer como quedamos con el ADOquery, muchas gracias se agradece la ayuda enserio