求一个vb备份Access的代码的例子！

[cdsun]

如题！

[tztz520]

就用filecopy复制整个.MDB文件就可以了

[dwyao]

我用的就FileCoyy.

[ryuginka]

是啊

[daisy8675]

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195584
Private Sub CmdBackup_Click()

If Conn.state <> adStateClosed Then Conn.Close

If DoBackup(txtPath.Text) Then
MessageBox "資料備份完成！"
Else
MessageBox "備份資料時發生錯誤錯誤！"
End If
Conn.Open
Unload Me

End Sub

'-- 備份這個數據庫
Public Function DoBackup(ByVal strDestinationPath As String) As Boolean
On Error Resume Next
Dim lFileOp As Long
Dim lResult As Long
Dim lFlags As Long
Dim SHFileOp As SHFILEOPSTRUCT
Dim strSourceDir As String
Dim strDestinationDir As String

BackupFolderName = strDestinationPath & "BackUPAccess - " & Format(Date, "yyyymmdd")

MkDir BackupFolderName

lFileOp = FO_COPY
lFlags = lFlags And Not FOF_SILENT
lFlags = lFlags Or FOF_NOCONFIRMATION
lFlags = lFlags Or FOF_NOCONFIRMMKDIR
lFlags = lFlags Or FOF_FILESONLY

With SHFileOp
.wFunc = lFileOp
.pFrom = AppPath & "datas\test.mdb" & vbNullChar
.pTo = BackupFolderName & "\test.mdb"
.fFlags = lFlags
End With
lResult = SHFileOperation(SHFileOp)

DoBackup = lResult = 0

End Function

[cdsun]

daisy8675(莫依)

为什么你要这样写阿MessageBox 害得我检查了半天

我正在研究中

[cdsun]

daisy8675(莫依) 的不好用

还是查看了 tztz520(午夜逛街)老兄的原来的例子成功了
结帖