Um If que busque um select no banco de dados e me mostre uma mensagem se foi encontrado algo diferente do que eu busquei !

Delphi

Banco de Dados

13/01/2017

Estou precisando de um IF que mostre a seguinte mensagem 'Produto Inativo' , pois quero prencher o meu campo apenas com produtos ativos !
Segue o select que eu estou buscando sem o produto é =A (ativo) ou N=(inativo)
'SELECT * FROM MATMAT WHERE ATIVO = "A"'
Rodrigo Oliveira

Rodrigo Oliveira

Curtidas 0

Melhor post

Raimundo Pereira

Raimundo Pereira

13/01/2017

inicio da função
Function Pesquisa_Registro_Especifico(Script_SQL:String):boolean;
begin
Sua_Query.close;
Sua_Query.SQL.CLEAR;
Sua_Query.SQL.TEXT:=Script_SQL;
Sua_Query.fetchall;

if Sua_Query.recordcount=1 then
begin
result:=true;// encontrou o registro
end
else
begin
result:=false;//não encontrou o registro
end;
// Fim da Função

Para chamar a função

If Pesquisa_Registro_Especifico('SELECT * FROM MATMAT WHERE ATIVO = "A"')=true then
begin
showmessage('Registro encontrado');
end;

Optei pela função pois você poderá usar essa rotina para realizar varias consulta chamando apenas a função e passando o sql.
>> Pesquisa_Registro_Especifico('SELECT * FROM MATMAT WHERE ATIVO = "A"') //Se ele retornar True é porque encontrou 1 Registro.
GOSTEI 1

Mais Respostas

Rafael Brendolan

Rafael Brendolan

13/01/2017

Cria uma Query em memória, coloca esse código no SQL dela, e depois do Open da um Eof nela e vai guardando essas ifnormações em uma string, mostra depois tudo de uma vez pro usuário. Se tiver 30 produtos inativos vai mostrar 30 mensagens? Coloca tudo em um só e separa por coluna.
GOSTEI 0
POSTAR