Connect-PI - Seu Canal de Suporte em TI

Postador por Anônimo

Usando Filtro de Busca de registro com SQL dentro do fonte com DB FireBird.

Primeiramente dentro do Form corrente da busca crie uma variável que pode ser global do tipo String. Lembrando que esse recurso é usado com o componente IBDataset ou IBQuery.
var StrSql : String;

Crie um Edit para inserir o texto para filtrar e um Button ou SpeedButton pra acionar o filtro. No evento OnClick do Botão voce insere o código a baixo:

strSql := 'Select * From tabela; //Tabela é a tabela que se ser procurar
strSql := strSql + ' Where campo a ser procurado Like ';
strSql := strSql + #39 + '%' + Edit.Text + '%' + #39; //componente pra inserir a busca
strSql := strSql + ' Order by campo asc'; // Ordenacao do resultado da busca que é opcional;
IBDataset_Tabela.Close; //
IBDataset_Tabela.SelectSQL.Clear;
IBDataset_Tabela.SelectSQL.Add(strSql);
IBDataset_Tabela.Open;

Obs: Para melhor viasualização, coloque um DBGrid apontando para a tabela do banco