在什么地方可以找到数据库的备份控件呀！！

Question

把数据库当成普通文件
用fos不就可以了吗！
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim file1, file2 As File
Set file1 = fso.GetFile("c:\vbdb\db\books.mdb")‘你的数据库
file1.Copy ("c:\vbdb\backdb\books.bak")
MsgBox "ok!"
End SubPrivate Sub Command2_Click()
Dim fso As New FileSystemObject
Dim file1, file2 As File
Set file1 = fso.GetFile("c:\vbdb\backdb\books.bak")
file1.Copy ("c:\vbdb\db\books.mdb")
MsgBox "ok!"
Adodc1.Refresh
DataGrid1.Refresh
End Sub
======================QQYY_sj==========================