9 replies to this topic

[lsedr]

como hago para buscar un registro mediante un Edit en una tabla que la visualizo con DBgrid

aqui muestro una imagen...

quiero que el dbgrid me encuentre el registro que le indico mediante el Edit y que al presionar el boton Buscar, el registro sea senalado

saludos c y gracias de antemano por la ayuda...

Attached Files

•  2033_50c648347bc045816376f9fa99b6f6644fcedef1.jpg   66.65KB   18 downloads

[luk2009]

En el evento onclick de un boton  o en el onchange del mismo edit puedes poner esto

delphi

begin 
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('SELECT campo from tabla');
query1.SQL.Add(' where  campo LIKE ' +quotedstr('%' + edit1.Text + '%')+' ');
query1.Open;
end;

[lsedr]

En el evento onclick de un boton  o en el onchange del mismo edit puedes poner esto

delphi

begin 
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('SELECT campo from tabla');
query1.SQL.Add(' where  campo LIKE ' +quotedstr('%' + edt1.Text + '%')+' ');
query1.Open;
end;

lo que deseo es que me lo muestre en el mismo dbgrid, no en una consulta...
se puede ???

[luk2009]

solo tienes que asociar el datasource del query al que le estas haciendo la consulta con el dbgrid en la propiedad datasource

[luk2009]

Usa un connection, un query, un datasource, un dbgrid
Al query le pones la connection, al datasource le pones el query y al dbgrid le pones el datasource.

Juega con el codigo y ponlo tanto en el onchange de el edit y luego lo pones en un boton para que veas como funciona.

De la forma en que te lo he puesto te mostrara todo lo que se parezca a lo que has entrado, ejm: si escribes jose te va a presentar en el dbgrid todos los jose que existan en tu tabla. si lo quieres exacto segun vayas escribiendo veras las opciones que tienes.

[egostar]

Con un LOCATE haces lo que necesitas

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.Locate('Pais',Edit1.Text,[loCaseInsensitive,loPartialKey])
end;

Salud OS

Attached Files

•  2035_bffd36cb5187d686f8683edc4bea0e6bbdbfd751.jpg   30.4KB   16 downloads

[lsedr]

Y cuál componente uso para datos solamente numericos enteros, para buscar clientes por el ID que es numerico. Cual componente puedo utilizar ???

El MaskEdit solo soporta el formato Extension numerico solo de 5 numeros...
El edit acepta todo lo que le escriban...

Pero quiero un componente que soporte cualquier numero entero, y solo números...

Cual sería ???

Saludos C,

[luk2009]

en el evento onkeypress del edit  le pones algo como esto

delphi

if not( key in ['0'..'9',#8]) then   key := #0;

prueba y me avisas

[lsedr]

Perfecto.... gracias

[barcielam]

Y como sería imprimir o mostrar si varias filas del dbgrid tienen un campo coincidente con lo colocado en el edit...?

Gracias por responder