ADO, SQL y Filtros
 

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"?

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

¡¿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.

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

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

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