Ver Mensaje Individual
  #5  
Antiguo 17-06-2005
Avatar de Enan0
Enan0 Enan0 is offline
Miembro
 
Registrado: may 2004
Ubicación: Argentina
Posts: 565
Reputación: 21
Enan0 Va por buen camino
Cita:
Empezado por Nelson Polanco
Es mejor hacer un query y pasarle edit1 como parametro y luego tus datos saldran en el DBgrid. Ejemplo:

Begin
Query1.close;
Query1.sql.clear;
Query1.sql.add('Select * from tabla Where dni = :edit1.text');
Query1.open;

If Query1.IsEmpty Then
Begin
ShowMessage('DNI no encontrado');
End;
End;

Si existe dicho dni saldran tus datos. Espero te sirva. Suerte...
Bueno estubo casi Perfecto para mi gusto pero yo pondria en el ONCHAGE del EDIT lo suiguiente:

Código Delphi [-]
 AdoDATAset1.close;
 AdoDataset1.ParamCheck:=true;
  AdoDataset1.CommandText:='Select * from tabla Where dni like :MyDNI';
 AdoDataset1.Parameters.ParamByName['MyDNI'].value:=edit1.text;
  AdoDataset1.Open;
  
 (*el If empty lo sacamos porque esta consulta se ejecuta en cada
    cambio del edit y simplemente tendrias que enlazarlo al dbgrid*)
  End;
Responder Con Cita