抢分啦:怎么在备份(恢复)数据库时加个进度条?
由于数据量很大,所以在备份(恢复)时很慢。为了做到人性化操作,怎么在备份(恢复)数据库时加个进度条? 问题点数:50、回复次数:13Top
1 楼ql_mf(ql_mf)回复于 2002-05-22 09:08:28 得分 5
在循环中将ProgressBar的Max属性值设置微循环次数Top
2 楼cmsoft(韦小宝是我的老乡)(草根在路上)回复于 2002-05-22 09:23:33 得分 0
备份数据就是一个SQL语句,怎会有循环啊?Top
3 楼daryl715(上善若水)回复于 2002-05-22 09:26:02 得分 5
可以检查备份的多少,来决定value值
比如说复制的记录数Top
4 楼cmsoft(韦小宝是我的老乡)(草根在路上)回复于 2002-05-22 09:30:19 得分 0
我怎样在CommonDialog1确定后呼出别外一个窗体呢?Top
5 楼cmsoft(韦小宝是我的老乡)(草根在路上)回复于 2002-05-22 10:09:59 得分 0
不能解决吗?我用一个窗体代替进度条来实现它,不过不行啊,我的代码是这样的,请看看
Private Sub Cmd_Bak_Click()
Dim Sql As String, Rs As New ADODB.Recordset
Dim SaveUrl As String
Cmd_Bak.Visible = False
Cmd_Cancel.Visible = False
Lbl.Visible = True
SaveUrl = frmMain.CommonDialog1.FileName
Sql = "Backup database jxc to Disk='" & SaveUrl & "'"
Set Rs = Gadocn_app.Execute(Sql)
Set Rs = Nothing
Gadocn_app.Close
Unload Me
End Sub
我用让Lbl.Visible = True
Lbl里的内容显示出来,等数据备份完也再unload me
而我的还没备份完就unload me 了,怎样在备份完了后unload me啊?Top
6 楼water_j(随心所欲)回复于 2002-05-22 10:44:16 得分 5
你用什么方法备份(恢复)数据库?
如果是用SQL SERVER提供的对象中里面有个事件。。。COMPLETE什么的
在里面使用ProgressBar控件就行!Top
7 楼lphonex(行者)回复于 2002-05-22 10:46:32 得分 10
你可以这样:
Dim cmm As New ADODB.Command
SaveUrl = frmMain.CommonDialog1.FileName
sql = "Backup database jxc to Disk='" & SaveUrl & "'"
With cmm
.ActiveConnection = Gadocn_app '(你应该把它定义为ADODB.CONNECTION 吧)
.CommandText = strsql
.Execute , , adAsyncExecute
Lbl.Visible = True
Do While .State = adStateExecuting
DoEvents
Loop
Unload Me
End With
Top
8 楼iamluodong(嗨)回复于 2002-05-22 11:03:42 得分 5
根据备份设备的大小,备份/恢复类型,设置Max值
Top
9 楼windancer(^_^)回复于 2002-05-22 11:24:58 得分 5
但是怎么在备份的时候设置progressbar的value呢,根据备份的记录数吗?Top
10 楼xyxy617(年糕)回复于 2002-05-22 12:28:15 得分 5
这必须用到线程,比较难实现Top
11 楼tomjoule()回复于 2002-05-22 12:33:32 得分 5
同意最高层的:在循环中将ProgressBar的Max属性值Top
12 楼my_yier(快乐一人)回复于 2002-05-22 13:21:20 得分 5
为什么不能用一个动画来表示呢?MS不是用一个手电筒来查找某些东西吗???Top
13 楼cmsoft(韦小宝是我的老乡)(草根在路上)回复于 2002-05-22 13:30:32 得分 0
怎一个动画法?给点提示先Top




