如何实现在检索数据同时提示“正在检索，请等待...”

Question

我想在数据库检索的时候提示“正在检索，请等待...”的消息，以免用户放弃操作。请问应该怎么办？现在使用了一段代码但是出现问题：必须关闭提示窗口后才能进行下一步的检索，请问有没有什么办法解决这?
Adodc1.RecordSource = "select * from table1"
mymsg = MsgBox("正在检索,请等待...")
Adodc1.Refresh

Answer 1

MsgBox谈出的对话框会使你的程序暂停，直到你有响应为止
你用 MessageBox（API函数）试试
不过我觉得用另外一个label控件或者窗体显示这个提示消息更好，
注意其中要加上DoEvents语句。

Answer 2

直接加一个COMMANDBUTTON控件，并将其VISIBLE 设为FALSE,caption设为:"正在检索,请等待..."用的时候将其VISIBLE设为TRUE ，但关键的一点是
COMMANDBUTTON.visible=true
DOEVENTS之后要加一个DOEVENTS，就可以实现显示

Answer 3

用label，字变成红色，我就是这样做的。加 doevents

Answer 4

在无模式窗体里
起用用下面的代码可以
ShowMessageFrm.msgTxt = "正在加载数据，请稍候……"
ShowMessageFrm.Show vbModal
DoEvents
……
unload showmessagefrm
这样可以，不过在有模式窗体里好像不行呢，有没有办法解决啊

Answer 5

用Command的方法可以了，而且比用Form美观，简单。
Command1.Visible = True
DoEvents
Adodc1.......