Jump to content


Photo

Búsqueda Query mostrando mensaje de resultado


  • Please log in to reply
3 replies to this topic

#1 Koalasoft

Koalasoft

    Advanced Member

  • Miembros
  • PipPipPip
  • 142 posts
  • LocationMéxico

Posted 30 December 2016 - 08:36 PM

Estimados una duda con las consultas con el componente Query..
 
Tengo la siguiente consulta para buscar un valor en una tabla..
 


delphi
  1.         with Query1 do          
  2.           begin
  3.             Close;
  4.             SQL.Clear;
  5.             SQL.Add('SELECT * FROM ONT.db ');
  6.             SQL.Add('WHERE NUMERO_ONT=:'+ Edit1.Text);
  7.            Open;
  8.           end;

Al parecer no hay problema con esta busqueda, pero si el resultado de la petición de la búsqueda no la encuentra, cómo puedo hacer para que me muestre un mensaje diciendo "Resultado NO encontrado" por ejemplo..
 
Agradezco sus comentarios..
  • 0

#2 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6295 posts
  • LocationArgentina

Posted 30 December 2016 - 10:44 PM

El Query tiene una propiedad llamada RecordCount que te indica la cantidad de registros que posee.

Y creo, aunque no estoy en condiciones ahora de probarlo, que también tiene una función llamada IsEmpty que evalúa si está vacio.

 

Saludos,


  • 0

#3 enecumene

enecumene

    Webmaster

  • Administrador
  • 7419 posts
  • LocationRepública Dominicana

Posted 31 December 2016 - 09:35 AM


delphi
  1. with Query1 do begin
  2. //... hacemos la consulta
  3.  
  4. //verificamos que no esté vacía
  5. if not isEmpty do begin
  6. //Desplegamos los resultamos
  7. end else Label1.caption := 'No existen datos!';
  8. end;


  • 2

#4 Koalasoft

Koalasoft

    Advanced Member

  • Miembros
  • PipPipPip
  • 142 posts
  • LocationMéxico

Posted 31 December 2016 - 12:54 PM


delphi
  1. with Query1 do begin
  2. //... hacemos la consulta
  3.  
  4. //verificamos que no esté vacía
  5. if not isEmpty do begin
  6. //Desplegamos los resultamos
  7. end else Label1.caption := 'No existen datos!';
  8. end;

 

Muchas Gracias me ayudo mucho tu ejemplo y a Delphius por el consejo !!

 

Saludos!! 


  • 0




IP.Board spam blocked by CleanTalk.