Ver Mensaje Individual
  #3  
Antiguo 11-01-2006
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Reputación: 23
ContraVeneno Va por buen camino
Cita:
Empezado por marcoszorrilla
Creo que lo más facil sería montar una consulta y visualizar los registros resultantes en una rejilla que apareceria en la ventana emergente que citas.

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear
Query1.Sql.Add('Select Campo1, campo2, campo3');
Query1.Sql.Add('From MiTabla');
Query1.Sql.Add('Where Campo1 = '+ QuotedStr(Edit1.Text);
Query1.Open;

Un Saludo.
más:
Código Delphi [-]
 case query1.recordcount off
  0: 
   showmessage('no existe');
  1:
   Begin
    //lenar datos
   end;
  else
   begin
    //mostrar lista de encontrados
   end;
 end; //case
__________________

Responder Con Cita