Apresentando mensagem em consulta SQL?

22/05/2003

2

Possuo a Seguinte consulta SQL:


LBMensagem.Caption:=´Consulta em Processo!´;
QueConsulta.SQL.Active:=False;
QueConsulta.SQL.Clear;
QueConsulta.SQL.Add(´Select Codigo, Nome ... From Tab....... Where ..´);
QueConsulta.Params[0].AsString:=EdCodigo.Text;
QueConsulta.SQL.Active:=True;
QueConsulta.ExecSQL;
LbMensagem.Caption:=´´;

Deveria quando realiza a consulta, aparecer o texto no Label, mas não está aparecendo, alguem ai sabe como forçar o aparecimento da mensagem para que o usuário saiba que a consulta está em processo?


Grato pela Ajuda :!:


Responder

Posts

22/05/2003

Ramerhy

Faça o seguinte:
Logo após o
LBMensagem.Caption:=´Consulta em Processo!´;
coloque:
LBMensagem.Refresh;
Application.ProcessMessages;


Isso deve resolver...


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar