Agregar Filas a DBGrid según Filtro Búsqueda

[ecfisa]

Hola mantraxer21.

Consulta. estoy realizando un formulario de "préstamo de libros" (biblioteca básica) y dentro de ello, tengo un control tEdit llamado "txtfiltro" que realiza una búsqueda exacta de un campo determinado en mi tibQuery (qConsultar).

Código SQL [-]
select * from libros
where
libros.isbn_lib like '%' || :xisbn || '%'

En realidad esa búsqueda no es exácta ya que trae todos los registros cuyos campos "ISBN_LIB" contengan los caracteres enviados en el parámetro ":XISBN". Es decir, eventualmente podría devolver una sola coincidencia, pero es un factor incidental.

Si deseas que la consulta realice una búsqueda exácta de un registro sería:

Código SQL [-]
SELECT * 
FROM LIBROS
WHERE LIBROS.ISBN_LIB = :XISBN

Esta consulta me trae varios datos cómo: "Nombre Autor", "Título Libro", "Codigo ISBN", "Temática", "Ubicación del Libro".

Al usar "*" te devuelve todas las columnas de la tabla "LIBROS".

La consulta:

Código SQL [-]
SELECT * 
FROM LIBROS
WHERE LIBROS.ISBN_LIB = '%' || :XISBN || '%'

Es muy utilizada en búsquedas incrementales (no muy eficientes) la cuál podes podes implementar de este modo:

1) Un TIBQuery asociado a un TDataSource y un TDBGrid asociado al anterior.

TIBDataBase <- TIBTransaction 
          |   
          + <- TIBQuery <- TDataSource <- TDBGrid

2) Agregar un TEdit con este código en su evento OnChange:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  with IBQuery1 do
  begin
    Close;
    SQL.Text:= 'SELECT * FROM LIBROS WHERE ISBN_LIB LIKE :XISBN';
    ParamByName('XISBN').AsString:= '%' + Edit1.Text + '%';
    Open;
  end;
end;

De ese modo a medida que vas ingresando caracteres en el Edit se va filtrando el resultado y se vé reflejado en el DBGrid. Pero no estoy seguro si satisface tu pregunta, estoy infiriendo la respuesta a partir de la consulta SQL de tu mensaje.

Saludos