Busqueda en un Query

[[gluglu]]

Locate sobre el DataSet asociado a la consulta.

[[Caral]]

Hola

Código Delphi [-]
begin
  QUERY.Close;
  QUERY.SQL.Text:= 'SELECT Cedula, Apellidos, Nombres FROM Terceros';
  QUERY.Open;
end;
begin
  QUERY.Filter := 'Cedula = '+QuotedStr(Edit1.Text);
  QUERY.Filtered := True;
end;

Saludos

[chileno]

tambien puedes hacer esto.......

Código Delphi [-]
begin
  QUERY.Close;
  QUERY.SQL.ADD('SELECT Cedula, Apellidos, Nombres FROM Terceros WHERE Cedula =: pCedula');
  QUERY.PARAMBYNAME('pCedula') := EDIT1.TEXT;
  QUERY.Open;
end;

[sinaloenc]

como puedo conocer lo que filtre con un adoquery en una busqueda ejemplo:


adoquery1.sql.add('selec clave from datos where usuario='+edit1.text+' ');
adoquery1.active:=true;

como puedo conocer cual fue la clave que filtro?

[carlosegs11]

Ok... muchas gracias. Era lo que necesitaba.

Carlos E.

[kalabero]

Cuando intento realizar el filtro:

clientes.filter:= 'clinom =' +Quotedstr(edit1.text+'*')
clientes.filtered:=true;

por que no aparece nada en el dbgrid??

[jhonny]

Empezado por kalabero

Cuando intento realizar el filtro:

clientes.filter:= 'clinom =' +Quotedstr(edit1.text+'*')
clientes.filtered:=true;

por que no aparece nada en el dbgrid??

Quitale el *; La verdad es que nunca he intentado lo que me imagino que intentas hacer en un filter, pero pruebalo con % en lugar del * a ver si te funciona.

[Alejandrina]

HOLA A TODOS...
ESTOY INTENTANDO HACER LO MISMO PERO ME MUESTRA UN ERRO DE 'FILTER EXPRESSION INCORRETLY TERMINATED'...
TENGO EL TDBGRID CON UN DATASOURCE APUNTADO A UN QUERY Y PRETENDO QUE CUANDO EL USUARIO DIGITE EL UN EDIT MUESTRE SOLO EL REGISTRO QUE ESTE DESEA...LO INTENTE DE LAS FORMAS ANTERIORES PERO NO ME DA...
QUE PUEDO ESTAR HACIENDO MAL?

procedure TFrmProgTallerEntrega.EdBusquedaEspecificaKeyPress(
  Sender: TObject; var Key: Char);
begin
 if key = #13 then
    begin
      key := #0;
      DMinformes.QInfHistoricos.Filter:='CODMOLDE'+QuotedStr(EdBusquedaEspecifica.Text+'%');
      DMinformes.QInfHistoricos.Filtered:=TRUE;
    end;
end;

DE ANTE MANO GRACIAS POR LA AYUDA