Apresentando mensagem em consulta SQL?

22/05/2003

1

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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira