Problema em Query de Consulta.
Galera, já pesquisei no forum, mas infelizmente não deram certo as instruções encontradas.
Preciso fazer uma simples consulta.
O problema é que ele encontra o registro, se procuro outro registro ele não faz nada, naum mostra mensagem que encontrou e nem tao pouco atualiza a grid.
Os comandos para pesquisa.
// Pesquisa por nome do cliente
DmPesquisa.Qry_dst_Servico.SQL.Clear;
DmPesquisa.Qry_dst_Servico.SQL.Add(´select * from Os where upper(Cliente) like :parOs´);
with (DmPesquisa.Qry_cds_Servico) do
begin
Params.ParamByName(´parOs´).AsString := ´¬´ + UpperCase(TxtLocalizar.Text) + ´¬´;
Open;
If (RecordCount = 0) then
Application.MessageBox(´Erro 1007 - Nome do Cliente não encontrado !´, ´Procura´, mb_ok + mb_IconWarning);
TxtLocalizar.SetFocus;
end;
end
Comando na query:
Parametro Sql,
select * from os where CodOrcamento like :parOs
Grato pela ajuda.
Preciso fazer uma simples consulta.
O problema é que ele encontra o registro, se procuro outro registro ele não faz nada, naum mostra mensagem que encontrou e nem tao pouco atualiza a grid.
Os comandos para pesquisa.
// Pesquisa por nome do cliente
DmPesquisa.Qry_dst_Servico.SQL.Clear;
DmPesquisa.Qry_dst_Servico.SQL.Add(´select * from Os where upper(Cliente) like :parOs´);
with (DmPesquisa.Qry_cds_Servico) do
begin
Params.ParamByName(´parOs´).AsString := ´¬´ + UpperCase(TxtLocalizar.Text) + ´¬´;
Open;
If (RecordCount = 0) then
Application.MessageBox(´Erro 1007 - Nome do Cliente não encontrado !´, ´Procura´, mb_ok + mb_IconWarning);
TxtLocalizar.SetFocus;
end;
end
Comando na query:
Parametro Sql,
select * from os where CodOrcamento like :parOs
Grato pela ajuda.
Objetivacreator
Curtidas 0
Respostas
Ivonei
02/06/2005
Tente fechar a query antes da rotina.
GOSTEI 0