如何制作与远端数据库连接时的"Loading，正在连接数据库..."这种类型的对话框？请帮忙.

Question

不用知道连接花费的时间，这样的思路可以吗？
on error goto Err1
'显示正在连接对话框
...
Connection1.Open
'关闭对话框
....
Err1:
msgbox "数据库连接失败"

Answer 1

不知道"pengcheng"是哪一位，但你知道用哪个API么?那么有谁知道如何制作这个效果的呢？高手请进。

Answer 2

你不一定要用时间呀。
你可以得到，你的数据总量吧。
然后可以配合状态条的value值。

Answer 3

但不是很多与远端数据库连接时，都有这样一个"Loading..."对话框么？难道vb做不出来么。

Answer 4

设置ConnectionTimeout
然后模拟一个loading窗口，

Answer 5

用Ado为例子，通过下面这种方法就可以。不可能提前知道具体的连接时间，道理很简单，因为网络环境是不确定，就是Sql server也经常是连接了很长时间最后才 报告无法连接的。注意设置好Connection对象的timeout属性！ 
Function bConnectionSuccess () as boolean
   On error goto Errhand
   Connecionstr="........"
   
   cn.Open Connection 
    
   msgbox "连接成功!"
   bConnectionSuccess =true 
   Exit function
Errhand:
   msgbox "无法连接网络"
 End Function