VB备份\还原ACCESS数据代码是什么?

Question

VB备份\还原ACCESS数据代码是什么?

Answer 1

简单的就用filecopy写一下就行了下面是Access数据库压缩修复备份函数
Sub BackupMdb(ByVal dbSource As String, ByVal dbBack As String)    Dim miJRO As jro.JetEngine
    Set miJRO = New jro.JetEngine
    miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & dbSource & ";" _
        & "Jet OLEDB:Database Password=123", _
    "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & dbBack & ";" _
        & "Jet OLEDB:Database Password=123"
End Sub'记住引用JRO

Answer 2

Dim snewname As String
Dim sbakfile As String
On Error Resume Next
snewname = Text1.Text
sdatabase = snewname
Me.MousePointer = 11
sbakfile = Left$(sdatabase, Len(sdatabase) - 3) & "bak"
FileCopy sdatabase, sbakfile
Me.MousePointer = 0
MsgBox "数据已备份完毕"这是我备份的代码,备份不上去,请问错在哪,我想备份个自己定义的文件名

Answer 3

你指定路径啊
调试时候On Error Resume Next ，不然出错都不提示
好好看看filecopy函数的用法

Answer 4

你要指定文件路径 
调试时候不要On Error Resume Next ，不然出错都不提示 
好好看看filecopy函数的用法