VB中如何备份access？

SBear 2004-09-19 10:22:59

除了filecopy还有什么办法能整个数据库备份？

还有，如何备份某一部分数据？

...全文

164 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

zcm123 2004-09-20

打赏
举报

直接复制mdb文件

sunmoonrock 2004-09-20

打赏
举报

好,顶一下

SBear 2004-09-20

打赏
举报

需要加那些部件？

SBear 2004-09-20

打赏
举报

谢谢

wumylove1234 2004-09-19

打赏
举报

还有?用二进制自已读,自已写.用FSO来操作文件,用我上面的API.
FileCopy是什么?

SBear 2004-09-19

打赏
举报

还是有问题，只能在数据库没打开的情况下才行。

SBear 2004-09-19

打赏
举报

http://community.csdn.net/Expert/topic/3244/3244160.xml?temp=.3823969

已经搞定

wumylove1234 2004-09-19

打赏
举报

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

wumylove1234 2004-09-19

打赏
举报

Option Explicit

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdSave_Click()
Select Case SSTab1.Tab
Case 0
If BackupData(txtPath(0).Text) = True Then
MsgBox "备份文件成功!", vbOKOnly, App.Title
Unload Me
Else
MsgBox "背份文件失败!请检查路径和当前的数据连接!", vbOKOnly, App.Title
Exit Sub
End If
Case 1
If RestoreData(txtPath(1).Text) = True Then
MsgBox "恢复文件成功!", vbOKOnly, App.Title
Unload Me
Else
MsgBox "背份文件失败!请检查路径和当前的数据连接!", vbOKOnly, App.Title
Exit Sub
End If
End Select
End Sub

Private Sub cmdSelect_Click(Index As Integer)

ChDir (App.Path)
cdlBrowser.Filter = "备份文件(*.ZYB)|*.ZYB"
cdlBrowser.CancelError = True
On Error GoTo errhandle:
Select Case Index
Case 0
cdlBrowser.DialogTitle = "保存文件到"
cdlBrowser.FileName = "数据备份" & Format(Date, "yyyy-mm-dd")

cdlBrowser.ShowSave
Case 1
cdlBrowser.FileName = ""
cdlBrowser.DialogTitle = "选择文件"
cdlBrowser.ShowOpen
End Select
If Err.Number <> 0 Then
Exit Sub
Else
If SSTab1.Tab = 0 Then
txtPath(0).Text = cdlBrowser.FileName
ElseIf SSTab1.Tab = 1 Then
txtPath(1).Text = cdlBrowser.FileName
End If
End If
errhandle:
Exit Sub
End Sub

Private Function BackupData(z As String) As Boolean
Dim i As Long
i = CopyFile(MyAppPath & "Data\DB.MDB", z, 0)
If i <> 0 Then
BackupData = True
Else
BackupData = False
End If
End Function

Private Function RestoreData(s As String) As Boolean
Dim i As Long
i = CopyFile(s, MyAppPath & "Data\Temp.MDB", 0)
If i <> 0 Then
i = DeleteFile(MyAppPath & "Data\Db.MDB")
If i <> 0 Then
Name MyAppPath & "Data\Temp.MDB" As MyAppPath & "data\Db.mdb"
RestoreData = True
End If
Else
RestoreData = False
End If
End Function

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{TAB}"
If KeyCode = vbKeyEscape Then Unload Me

End Sub

Private Sub Form_Load()
Set Me.Icon = frmParent.Icon
End Sub

hcyzs 2004-09-19