Fórum Busca por ADOQuery (Locate ou outra forma) #150291

troque os nomes dos campos pelos campos que estão na rotina abaixo.



with dm.qryGeral do
begin
close;
sql.Clear;
sql.Text := ´select a.codEmissora, a.descrEmissora ´ +
´ from ´ +
´ emissora a, captacao b ´ +
´ where ´ +
´ a.codEmissora = b.codEmissora ´ +
´ and a.codEmissora = :param´;
Parameters.ParamByName(´param´).Value := DBGrid1.DataSource.DataSet.Fields[0].AsString; // nesta linha você não altera nada
open;

if not IsEmpty then
begin
informacao(´A emissora ´ + edEmissora.Text + ´ não poderá ser excluída, pois está relacionada com captação!´);
abort;
end;
end;

--------------------

procedure TfrmTemplate.informacao(mensagem: string);
begin
application.MessageBox(pchar(mensagem), ´Atenção!´, MB_Ok + MB_ICONWARNING);
end;

Essa rotina verifica algum relacionamento de uma tabela da minha base de dados antes de realmente deletar o registro, caso haja alguma informação, ele avisa, caso constrário passa batido e vai para a deleção.

Neste caso também vai funcionar com você, mas coloque o sql para realizar a pesquisa . Eu esqueci de montar o sql para você, então, aqui vai.

basta substituir o código abaixo pelo código do sql que coloquei na minha pesquisa

Select CPF from nomeTabela where CPJ = :param