在备份文件，或复制文件时如何使用进度条ProgressBar1？

Question

下面是备份文件时代码
Private Sub backupdb_Click()
        Dim sql As String
        sql = Targetpath + "\test.BAK"
        SqlStmt = "BackUp DataBase YJERP To Disk= '" & sql & "'   with init"
        QueryExt (SqlStmt)
End Sub

我想在备份数据库的时候使用ProgressBar1来显示进度，能否给段代码？

Answer 1

使用SQLDMO备份，PercentComplete事件
http://www.sqldev.net/sqldmo/SQL-DMO.NETEventsVB.htm

---

http://feiyun0112.cnblogs.com/

Answer 2

feiyun0112大哥，我用vb6.0，不是vb.net，能行吗？

Answer 3

feiyun0112大哥，我用vb6.0，不是vb.net，能行吗？

一样

---

http://feiyun0112.cnblogs.com/

Answer 4

feiyun0112大哥，我用vb6.0，不是vb.net，能行吗？

一样

---

http://feiyun0112.cnblogs.com/

 

Imports System.Runtime.InteropServices
Imports SQLDMO
这两句都用不了，vb6中

Answer 5

feiyun0112大哥，我用vb6.0，不是vb.net，能行吗？

一样

---

http://feiyun0112.cnblogs.com/

还好，引用了sqldmo.dll所有的函数都能用了

Answer 6

feiyun0112大哥，我用vb6.0，不是vb.net，能行吗？

一样

---

http://feiyun0112.cnblogs.com/

 

Imports System.Runtime.InteropServices
Imports SQLDMO
这两句都用不了，vb6中

VB6不需要这，这是导入命名空间

---

http://feiyun0112.cnblogs.com/