Apresentando mensagem em consulta SQL?
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 :!:
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 :!:
Wall
Curtidas 0
Respostas
Ramerhy
22/05/2003
Faça o seguinte:
Logo após o
LBMensagem.Caption:=´Consulta em Processo!´;
coloque:
LBMensagem.Refresh;
Application.ProcessMessages;
Isso deve resolver...
Logo após o
LBMensagem.Caption:=´Consulta em Processo!´;
coloque:
LBMensagem.Refresh;
Application.ProcessMessages;
Isso deve resolver...
GOSTEI 0