Filtrar datos en una lista

[marcoszorrilla]

Puedes utilizar SQL y cuando pulses enter o la tecla que tengas designada o un botón...

Activas la consulta:

Código SQL [-]
Select *
From MiTabla
Where MiCampo Like '%CA%'

Esta consulta le conectas un DataSource y a éste último una rejilla.

Un Saludo.

[*Caro*]

Hola Lizette, debes hacer lo que te indica el amigo marcoszorrilla, solo que en tu consulta deberías utilizar solo el % del final.

Código Delphi [-]
Query.Close;
Query.Sql.Text := 'Select * From MiTabla Where MiCampo Like '+QuotedStr(Edit1.Text+'%');
Query.Open;

Y ahora para cuando hagas enter sobre un registro del DBgrid utilizas el evento OnKeyPress del DBGrid.

Código Delphi [-]
procedure TForm1.dbgrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  begin
   Edit1.Text := Query.fieldbyname('campo1').asstring;
   Edit2.Text := Query.fieldbyname('campo2').asstring;
   Edit3.Text := Query.fieldbyname('campo3').asstring;
  end;
end;

Saluditos

[Lizette]

Gracias Caro y marcoszorrilla, me funcionó de maravilla..

[Lizette]

mmmm, el dbgrid no me actualiza los datos, cuando inserto datos y me voy al dbgrid, éste no tiene el registro que inserte..

Le pongo refresh al dbgrid y sigue igual, que puedo hacer?

[*Caro*]

Hola de nuevo, despues de hacer tus cambios, con el query que esta enlazado a tu DBGrid haces lo siguiente:

Código Delphi [-]
Query.Close;
Query.Open;

Saluditos

[Lizette]

Ok, gracias Caro.

[Lizette]

Tengo otra inquietud, no se me hizo muy adecuado, dar enter al edit y dar enter al dbgrid, estoy tratando de que al darle enter al edit, cuando ya tengo en el dbgrid el dato filtrado, me aparezcan los respectivos datos en los edits de ese registro que se encuentra filtrado en la primera posicion del dbgrid.

Le estuve intentando pero siempre me despliega el primer registro que tengo en la tabla.