VB中如何备份access?

SBear 2004-09-19 10:22:59
除了filecopy还有什么办法能整个数据库备份?

还有,如何备份某一部分数据?
...全文
163 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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
  • 打赏
  • 举报
回复
使用select * into backuptable in "c:\backup\backup.mdb" from tablename where id=...

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧