3 respuestas en este tema

[Koalasoft]

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

delphi

        with Query1 do          
          begin
            Close;
            SQL.Clear;
            SQL.Add('SELECT * FROM ONT.db ');
            SQL.Add('WHERE NUMERO_ONT=:'+ Edit1.Text);
           Open;
          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..

[Delphius]

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,

[enecumene]

delphi

with Query1 do begin
 //... hacemos la consulta
 
 //verificamos que no esté vacía
 if not isEmpty do begin
   //Desplegamos los resultamos
 end else Label1.caption := 'No existen datos!';
end;

[Koalasoft]

delphi

with Query1 do begin
 //... hacemos la consulta
 
 //verificamos que no esté vacía
 if not isEmpty do begin
   //Desplegamos los resultamos
 end else Label1.caption := 'No existen datos!';
end;

 

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

 

Saludos!!