como hace una busqueda en mi dbgrid

[marcoszorrilla]

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if query1.IsEmpty then
   ShowMessage('No hay Registros que mostrar')
   else
   ShowMessage('Hay Registros que mostrar');
  end;

Un Saludo.

[[Nbull]]

Hola Lepe, nada quería decirte que muchas gracias que me ha funcionado muy bien, lo único que en el código que pusiste había que quitar el 'upper' que pusiste delante del campo Nombre, el código funcionando se quedaría así:

Código Delphi [-]
if radiobutton1.checked then begin // Si hemos decidido filtrar por el nombre...
   Form1.Query2.Close();
   // Utilizo quotedStr para ponerle comillas simple a la cadena (en el caso 
//que sea de tipo string  
   Form1.Query2.SQL.Text := 'SELECT * FROM agenda WHERE Nombre Like 
'+quotedStr(uppercase('%'+Edit1.Text+'%'));
   Form1.Query2.Open();
   Form1.Query2.Locate('Nombre',edit1.Text,[lopartialkey, locaseinsensitive]);

Nada Lepe muchas gracias de nuevo y que pases buena tarde.

Un Saludo

[[Lepe]]

No se ha dicho que gestor de bases de datos estas usando, en una búsqueda ultrarápida http://www.brettb.com/SQL_Help_Chang...Upper_Case.asp
se ve que esa función pertenece al sql y si funciona.

El motivo de incluir esa función es para que se encuentre el texto de búsqueda, tanto en mayusculas como en minusculas.

Ahora mismo solo te encontrará los que esten escritos en mayusculas.

Saludos de nuevo.