ADO, SQL y Filtros

[Deiv]

Hola,
Estoy empezando a trabajar con ADO, Tengo una Tabla de Access "Elementos.mdb" con 3 campos: "ID", "Nombre" y "Tipo", un ADOQuery1, un DataSource1 y un DBGrid1; mi problema que no entiendo es en esta parte cuando trato de Filtrar por el Campo "Tipo" con el siguiente código:

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
begin
  ADOQuery1.Active:= False;
  if (ADOQuery1.Filter = '') then
    begin
      ADOQuery1.Filter:= 'Tipo = "Metal"';
      ADOQuery1.Filtered:= True;
      Button4.Font.Style:= Button4.Font.Style + [fsBold];
    end
  else
    begin
      ADOQuery1.Filter:= '';
      ADOQuery1.Filtered:= False;
      Button4.Font.Style:= Button4.Font.Style - [fsBold];
    end;
  ADOQuery1.Active:= True;
end;

Este código no me muestra nada, NO FILTRA, es decir solo me muestra un DBGRID VACÍO. En la Línea:
ADOQuery1.Filter:= 'Tipo = "Metal"';

he intentado cambiar las comillas a:
ADOQuery1.Filter:= 'Tipo = Metal';

Pero me lanza error en la última línea:

"Project: Proyecto.exe raised exception class EOleException with message 'Argumentos Incorrectos, fuera del intérvalo permitido o en conflictos con otros'. Process Stopped"

La ConectionString está bien ya que la propiedad Active está en True y puedo ver mi Tabla en el DBGrid.

¿Cómo le hago para mostrar en el DBGrid los registros filtados por "Tipo" correspondientes a "Metal"?

[[poliburro]]

que tal brother, pues en principio, quiero desaconsejarte el uso de Filtros, pues estos son sumamente costosos en la aplicación.

Por que no mejor cambias el enfoque y utilizas Querys?, ya que es más eficiente.

Suerte

[Deiv]

Empezado por poliburro

Por que no mejor cambias el enfoque y utilizas Querys?, ya que es más eficiente

¡¿Cómo? ¿con que?
Y cómo aplico filtros para tu consejo?
Gracias por ello, en realidad me gustaría saber a que te refieres con "Querys" si bien uso ADOQuery en mi aplicación, pero además de ello mi duda estaba en la línea:
ADOQuery1.Filter:= 'Tipo = Metal';
y cómo corregirla?, creo que voy mal con las comillas, mi Base de Datos no es grande y no crecerá mas de 200 Registros.

[courtois]

al parecer tu filtro si funciona, si te aparece vacio es porque no encontró ningun registro que cumpliera el criterio de tu filtro.

[[Lepe]]

Lo que dice poliburro es que no uses la propiedad Filter, sino que esa condición la añadas al Where de tu consulta en tiempo de ejecución.

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);

const sqlClientes = ' Select * from clientes ';

begin
  ADOQuery1.Active:= False;
  ADOQuery1.Sql.text := sqlClientes;
  if (ADOQuery1.Filter <> '') then
    begin
      ADOQuery1.Sql.text := sqlClientes + ' where Tipo = "Metal"';
      Button4.Font.Style:= Button4.Font.Style + [fsBold];
    end
  else
      Button4.Font.Style:= Button4.Font.Style - [fsBold];
  ADOQuery1.Active:= True;
end;

Edito el signo "igual", debe ser "distinto"

Saludos

[courtois]

En este caso, talvez no importe, si fuese un sevidor de bases de datos propiamente dicho, que es mas costoso, hacer una consulta no planeada desde sql o hacer un filtro? nótese que son 100 registros