Ver Mensaje Individual
  #2  
Antiguo 31-12-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Creo que no entendi bien. Queres que cuando el query no ecuentre ningun resultado (osea, vuelve vacio) aparezca un mensaje en pantalla con la leyenda "Resultado encontrado"?

Para evaluar si un query devolvio resultados o no, basta con la propiedad TDataSet.IsEmpty

Por otra parte creo que la sintaxis de tu consulta es incorrecta, para usar parametros tenes que especificar el nombre en la consulta y despues asignar el valor usando Query.ParamByName

Código Delphi [-]
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM ONT.db ');
  Query1.SQL.Add('WHERE NUMERO_ONT= :Numero'); // se define un parametro con el nombre "Numero"
  Query1.ParamByName('Numero').Value := Edit1.Text;
  Query1.Open;
  if Query1.IsEmpty then
    ShowMessage('Resultado encontrado');

Última edición por AgustinOrtu fecha: 31-12-2016 a las 04:43:17.
Responder Con Cita