Fórum Problema em Query de Consulta. #283717
02/06/2005
0
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
Curtir tópico
+ 0
Responder
Posts
03/06/2005
Ivonei
Tente fechar a query antes da rotina.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)