数据库备份

[l999]

我备份数据库用 FileCopy dd1.mdb, mulu
mulu 是目录名
可我的程序什么也没有反应
数据库也没有成功
cnn2.close
数据库也关闭了,
请问谁知道原因.
请帮我改一下
还有数据库的恢复怎么写
数据库是access

[cqq_chen]

看VB自带的例子visdata,上有很详细的说明。
如果刚开始学习VB的数据库编程，而且是对ACCESS进行操作，最好用一些时间把这个例子看懂了，这样VB操作ACCESS数据库也就没有什么可以难住你的了。

[shipL]

引用 FSO对象
Dim CopyMdb As FileSystemObject
Set CopyMdb = New FileSystemObject
'复制文件为tmp
CopyMdb.CopyFile "" & App.Path & "\datakey.bin", "" & App.Path & "\tmp.bin"

[neo40]

此段代码可用做数据库备份

Dim ss As New ADODB.Connection
Dim db As DAO.Database

Set db = CreateDatabase(App.Path + "\savedb.mdb", dbLangGeneral, dbEncrypt)
db.Close
Set db = Nothing

ss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mydbname.mdb;"
ss.Open
ss.Execute "select * into " + App.Path + "\savedb.tablename from mytbl"
ss.Close
Set ss = Nothing

[hzybc]

filecopy 源文件 目标文件

源文件和目标文件应含有路径和文件名，你没有加目标文件的文件名

[l999]

Dim fso As FileSystemObject
Set fso = New FileSystemObject

If Option1.Value = 1 Then
fso.CopyFile "" & App.Path & "\db1.mdb", "" & App.Path & "\db2.mdb"

Else
If Option2.Value = 1 Then

fso.CopyFile "" & App.Path & "\db1.mdb", "" & mulu & "\ db1.mdb"

End If
End If
我用上面的代码也没有反应
不知道错在哪，
mulu是通过dirlistbox选的路径， 然后传给mulu的
上面的兄弟
我的代码错在哪里