13 respuestas en este tema

[coruxito]

Hola soy yo de nuevo, como ayer con una duda que me ocupó toda la tarde.
Tengo un DBGrid que tengo enlazado con un DataSourceTodasFichas ese DataSource está enlazado con un QueryTodasFichas donde sencillamente importo todos los registros de la tabla Fichas.
El tema es que quiero hacer un filtro sobre esa misma query utilizando un DBLookupComboBox.
Ese Combo enseña el campo NOMBRE de una otra consulta hecha por QueryTodosClientes, pero yo trabajo con el campo ID_CLIENTE de esa query utilizando:

delphi

IBQueryCarga_Clientes.FieldByName('ID_CLIENTE').Value;

Eso funciona sin problema y me devuelve bien la referia ID.

Mi tema es como hago para pillar eso y crear un filtro en la QueryTodasFichas ?
Estuve probando cosas que topé por internet, pero la verdad no les pillé la idea. Basicamente tengo ahora mismo el código:

delphi

procedure TFormPrincipal.DataClientesDataChange(Sender: TObject;
  Field: TField);
begin
  IBQueryTodasFichas.Filter:='Cliente like '+VarToStr(IBQueryCarga_Clientes.FieldByName('ID_CLIENTE').Value);
  IBQueryTodasFichas.Filtered:=True;
end;

Donde estoy yo fallando ?

[Caral]

Hola
La verdad es que para algo tan sencillo yo usaria un combobox ya que tiene el evento onchange que sirve mucho para hacer el filtro.
Saludos

[coruxito]

Hola Caral, gracias por la ayuda.

No tengo problema por hacerlo en um combobox, lo cargaria de la base de datos de clientes y ya está.
El tema es que no sé como crear, aplicar el filtro y que la dbgrid se actualize con los cambios.
Tampoco tengo problemas por poner un botón , que se seleccione los filtros que se quiere aplicar y hacerlo, no tengo problema por el evento, el tema que se me escapa como hacer ese filtrado.
Tienes algún ejemplo para un novato de uso de um combobox para hacer filtrados sobre un dbgrid ?
Te lo agradecería inmensamente, pq lo que encuentro por internet la verdad me deja más confuso que me clarifica algo

[Caral]

Hola
Claro amigo:
Digamos que tienes un combobox y quieres filtrar el dbgrid que esta ligado a un query:
En el evento OnChage del combobox pones esto:

delphi

var
   Filtro : String;
begin
   If (Combobox1.Text <> '') then
   begin
      IBQueryTodasFichas.Filtered := False;
      Filtro := 'Cliente Like '''+ Combobox1.Text + '%''';
      IBQueryTodasFichas.Filter := Filtro;
      IBQueryTodasFichas.Filtered := True
   end
   else IBQueryTodasFichas.Filtered := False;

Lo mismo puedes hacer usando el dbluckCombobox, pero usando un boton.
Saludos

[Fenareth]

Otra opción es usar condiciones en el mismo query y evitamos usar los filtros... 

Usando el botón que te propone Caral:

delphi

{Declaramos una constante global para almacenar el SQLOriginal}
const
       SQLOriginal  = 'select campos from FICHAS';  // Aquí el query que te recupera todos los registros de la tabla fichas

Y después en el evento OnClick del botón...

delphi

    begin       
       If (Combobox1.Text <> '') then
       begin
          IBQueryTodasFichas.Close;
          IBQueryTodasFichas.SQL.Text := SQLOriginal +  ' where Cliente Like '''+ Combobox1.Text + '%''';;  //Ingresamos el query original y el filtro 
          IBQueryTodasFichas.Open;
       end;

Es otra manera de hacerlo y en lo personal me gusta más que manejar filtros en los querys 

Saludox !

[Sergio]

Creo que el problema es que tu elección de cliente te devuelve un entero, y con un entero usar like no es lo correcto, like es para textos, por si por ejemplo al elegir se toma el nombre del cliente en lugar de una id numérica.

Para un id tipo entero, usa mejor esto:

delphi

procedure TFormPrincipal.DataClientesDataChange(Sender: TObject;
  Field: TField);
begin
  IBQueryTodasFichas.Filter:='Cliente='+IBQueryCarga_Clientes.FieldByName('ID_CLIENTE').AsString;
  IBQueryTodasFichas.Filtered:=True;
end;

Fíjate también que no es necesario acceder el campo como un variant y luego convertirlo a string, puedes pedirle el valor al campo AsString, AsInteger o AsFloat, de hecho es lo más recomendable ya que tu sabes de antemano el tipo de valor que contiene el campo y en que variable quieres colocarlo, y firebird -o delphi, lo mismo da- que haga el trabajo "internamente" y te devuelva tu valor ya preparadito.

[Delphius]

Hola,
En lo posible como recomienda Fenareth hay que traer las consultas ya filtradas empleando WHERE.
Ahora bien, si desde el conjunto de datos devuelto hay que aplicar un "2do filtro" allí si es una buena alternativa el uso del Filter.

Téngase en cuenta que el uso de Filter es Local, por lo que es más lento que pedirle al motor que nos de el conjunto ya filtrado. Y además, el uso de Filter es limitado debido a que las posibles condiciones y primitivas que puede aceptar son reducidas a comparación del potente WHERE de un verdadero motor.

La lección es: "Cuanto más filtrado puedas traer los datos a la aplicación mejor."

Saludos,

[Fenareth]

Hola,
En lo posible como recomienda Fenareth hay que traer las consultas ya filtradas empleando WHERE.
Ahora bien, si desde el conjunto de datos devuelto hay que aplicar un "2do filtro" allí si es una buena alternativa el uso del Filter.
...

Y aún cuando hay más de un filtro es posible modificar el SQL para ingresar los nuevos filtros 

Lo que pasa es que mi lema va más allá... siempre que sea posible poner a trabajar al motor de la base de datos y no a Delphi, que para eso está hecho 

Además corríjanme si me equivoco, los filtros son un tanto limitados en su uso, no ??? 

Saludox !

[Delphius]

Y aún cuando hay más de un filtro es posible modificar el SQL para ingresar los nuevos filtros 

Depende.
Siempre que esa consulta sea dinámica, y creada/armada en tiempo de ejecución, si. En otro caso no es posible modificarla.

Aquí es bueno hacer mencionar una buena práctica que al menos yo la consideraba implícita: en lo posible hay que llevar las consultas al lado del servidor, aprovechando las vistas y los procedimientos almacenados. De este modo en la aplicación solo tiene lugar una llamada a dichas vistas y SPs. O en todo caso, aprovechar una combinación de consultas dinámicas sobre una vista o procedimiento seleccionable.

Muchas veces uno llena de consultas en los componentes TXXQuery; consultas que son estáticas, fijas... que no se van a modificar nunca en la aplicación; siempre es la misma. En un ambiente cliente/servidor con muchos puestos esto se traduce a que el aplicativo arme y prepare las consultas, las mande a ejecutar y reciba... esto multiplicado por N puestos y M veces al día no es muy bueno. Podría mejorarse si uno usa .Prepare() pero sigue siendo un desperdicio.

Puede mejorarse mucho más si directamente dejamos a estas consultas estáticas como lo son: verdaderamente estáticas en el lado servidor y que directamente la aplicación las use. Nada de preparar, etc.

Lo que pasa es que mi lema va más allá... siempre que sea posible poner a trabajar al motor de la base de datos y no a Delphi, que para eso está hecho 

Por supuesto. Se supone, que en teoría, el motor es lo suficientemente inteligente y bien preparado. Sabe hacer su trabajo de una manera mucho más efectiva que lo que se puede conseguir de forma local... sobre todo en lo que hace a Filtros; que no cuenta con un amplio soporte de todo lo que puede hacer un motor.

Además corríjanme si me equivoco, los filtros son un tanto limitados en su uso, no ??? 

Saludox !

Es justo lo que dije yo:

Y además, el uso de Filter es limitado debido a que las posibles condiciones y primitivas que puede aceptar son reducidas a comparación del potente WHERE de un verdadero motor.

No te equivocas. Efectivamente, los filtros que soporta los datasets tiene las primitivas más básicas del lenguaje SQL. No son válidas cosas más complejas como un COALESCE() por dar un ejemplo. Es más creo recordar, no tengo Delphi a mano para comprobarlo, que solo permite LIKE, %, #, *, <, >, <=, >=, '' y se acabó.

Saludos,

[poliburro]

Además corríjanme si me equivoco, los filtros son un tanto limitados en su uso, no ??? 

Saludox !

No solo son limitados, sino terriblemente ineficientes. Su uso debería estar restringido a datasets de pocas filas....

Es mejor dejarle a la base de datos el procedimiento de filtrado...


saludos

[Caral]

Hola
Sois demasiado perfeccionistas.
La pregunta fue sencilla:

......... que se seleccione los filtros que se quiere aplicar y hacerlo,.......... se me escapa como hacer ese filtrado.
Tienes algún ejemplo para un novato .....

Evidentemente es mejor una sentencia sql pero si ya se trajo la información con una entonces aplica el filtro con facilidad.
Me estáis enredando al novato.
Saludos

[poliburro]

Hola
Sois demasiado perfeccionistas.
Evidentemente es mejor una sentencia sql pero si ya se trajo la información con una entonces aplica el filtro con facilidad.
Me estáis enredando al novato.

      cierto...

[Delphius]

Como diría el Chavo: bueno pero no te enojes 

Espero que coruxito no se sienta intimidado, ni decepcionado de la idea de los filtros. Es una herramienta más que está a disposición y si uno la sabe combinar con otras tantas herramientas y técnicas le puede sacar buen uso.

Lo lamento si te estropeé al novato Caral. Después nos los agradecerás... ¡tu mismo sabes que novato es marca registrada! 

Saludos,

[coruxito]

Hola amigos. sois unos cracks. Gracias a todos. La verdad que Delphius tiene razón sobre lo que dice, lo que pasa es que al empezar, principalmente tirando al fin del dia, pues el cerebro no le dan las mejores ideas del dia.
No lo lograría sin vuestra ayuda, leí todo lo que habéis me pasado y al final lo hize de la siguiente manera:

delphi

procedure TFormPrincipal.BAplicaFiltrosClick(Sender: TObject);
begin
  IBQueryTodasFichas.Close;
  IBQueryTodasFichas.SQL.Text:='select * from Fichas';
  IBQueryTodasFichas.SQL.Text := IBQueryTodasFichas.SQL.Text+' where Cliente='+VarToStr(IBQueryCarga_Clientes.FieldByName('ID_CLIENTE').Value);
  IBQueryTodasFichas.Open;
end;

Opté por montar un botón de aplicar filtros, así la persona puede optar por los que quiera (va tener por lo menos 9-10 por lo que estoy mirando) y le dando al botón pues le viene los datos actualizados.

Como miráis acabé optando por la solución de Fenareth, porque la verdad entiendo mejor el hacer un select que aplicar los filtros. Sólo cambié el usar una variable global no por nada pq la verdad me parece elegante, pero como no recomiendan las globales ni para C, ni para Java por motivos de seguridad... Pues no sé si en Pascal/Delphi tendría el mismo tipo de implicación, pues sí hago algo MUY ligado a formulário, no trabajo elegantemente con clases, pero bueno va funcionando, que por lo que voy pillando de ese curro quieren las cosas rápido, les dá igual como las hagas !!!