如何用vb 备份access数据库

Question

将MBD文件拷到你的备份的地方，就形了，不知其它方法。

Answer 1

 mdifrmgzgl.StatusBar1.Panels(2).Text = "正在备份数据库，请稍等……"
 FileCopy App.Path & "\mdb\rsgzmdb.mdb ", "a:\rsgzmdb.mdb"
 Me.MousePointer = 0
 MsgBox "数据库已备份完毕，请一定将软盘保存好！", vbInformation + vbOKOnly
 mdifrmgzgl.StatusBar1.Panels(2).Text = ""
如果你有好方法，请告诉我，谢谢。

Answer 2

DTWUJP(建平)
哦，这样！
但能不能用sql 语句来备份和恢复数据库呢？怎样用backup和 restore这两个sql语句，在vb中不能直接嵌套这两个sql语句。 

Answer 3

Private Sub mnuDBbackup_Click()         '备份数据库
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(App.Path & "\backup\dbbackup.mdb") Then fs.DeleteFile App.Path & "\backup\dbbackup.mdb"
fs.copyfile App.Path & "\mlc.mdb", App.Path & "\backup\dbbackup.mdb"
MsgBox "备份完成!", 64, "数据库备份情况"
End SubPrivate Sub mnuDBrestore_Click()        '恢复数据库
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
dbs.Close
If fs.FileExists(App.Path & "\mlc.mdb") Then fs.DeleteFile App.Path & "\mlc.mdb"
fs.copyfile App.Path & "\backup\dbbackup.mdb", App.Path & "\mlc.mdb"
Set dbs = OpenDatabase(App.Path & "\mlc.mdb")
MsgBox "已恢复上次备份!", 64, "数据库恢复情况"
End Sub

Answer 4

backup和 restore这两个sql语句是用在sqlserver上的，好象access不支持，我也是菜鸟，不知对不对，OLD_VB_FAN(蓝星)的方法和我差不多，不过更规范。

Answer 5

DTWUJP(建平)　这两个SQL语句在SQLSERVER上能用,我也不知道能不能用在ACCESS,有谁知道告诉我一下，谢谢

Answer 6

我是用于ACCESS97的，没问题！

Answer 7

我建议down一个zip控件，将access数据库加密压缩到zip文件中，占空间少，并且可以保密，如果需要zip控件我可以提供

Answer 8

a_geng(独孤)
好啊，我想要这个控件，告诉我下载的网址好吗。
我的email:[email protected]
谢谢