access数据库备份

2005-03-19 05:06:20 335 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

access数据库备份与还原问题由于本人一开始学习数据库是sql sever ,现在开发用access 2003,所以在做数据库的备份与还原时，第一意识就是利用sql语句来实现，但出现了错误，说“无效的inserted ,update.delete,select”,我就意识到可能是不支持backup和restore这样的sql关键字，可能在access中不支持，但自己感觉还是不相信，从网上和图书馆查找利用sql语句来实现的信息，阅读详情

如何备份和恢复有密码的 ACCESS 2000

...全文

有限元法（Finite Element Method，FEM）原理详解有限元法( FEM )是一种流行的方法，用于数值求解工程和数学建模中出现的微分方程。阅读详情

xiaoMONKEY

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

xiaoMONKEY 2005-03-21

打赏
举报

问题还没有解决
　下面是我的代码　
我觉得不是　FILECOPY　有问题，而是VB6.0不支持拷ACCESS　2000的问题,各位有何高见？
bakfilename = Trim(Text1.Text)
If Me.Caption = "备份数据库" Then
On Error GoTo ss
If Len(Dir(bakfilename)) > 0 Then
If MsgBox("此文件已存在，是否替换？", 1 + 32, "询问窗口") = 1 Then
Fwait.Show
Fwait.Refresh
Kill bakfilename '删除已存在同名文件
Else
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
End If
FileCopy App.Path + "\CY.mdb", Trim(Text1.Text)
MsgBox "数据库已成功备份！", 0 + 48, "提示"
Unload Fwait
Unload Me
Exit Sub
ss:
MsgBox Err.Description
Unload Fwait
Unload Me
Else
On Error GoTo xx
If MsgBox("恢复前请先作好备份，确定恢复吗？", 1 + 32, "询问提示") = 1 Then
Else
Unload Me
Exit Sub
End If
Fwait.Show
Fwait.Refresh
If Len(Dir(bakfilename)) <= 0 Then
MsgBox "源文件不存在，不能恢复！", 0 + 16, "提示"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
Unload Fwait
Exit Sub
End If

Kill App.Path + "\CY.mdb"
FileCopy Trim(bakfilename), App.Path + "\CY.mdb"
MsgBox "数据库已成功恢复！", 0 + 48, "提示"
Unload Fwait
Unload Me
Exit Sub
xx:
Unload Fwait
MsgBox Err.Description
Unload Me
End If

xiaoMONKEY 2005-03-21

打赏
举报

怎么还没人回呀,再顶

xiaoMONKEY 2005-03-21

打赏
举报

怎么没人回呀，各位帮帮忙

vbnewplay 2005-03-19

打赏
举报

Dim itmX, key As String '定义字符串变量
Dim a As Integer '定义整型变量
Private Sub Form_Load()
Option1.Value = True
Dir1_Change
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
'添加数据备份卡到列表中
ListView1.ListItems.Clear
If File1.ListCount <> 0 Then
a = 0
Do While File1.ListIndex < File1.ListCount - 1
File1.ListIndex = a
key = File1.FileName
Set itmX = ListView1.ListItems.Add(, , key, 1)
a = a + 1
Loop
End If
Label1.Caption = Dir1.Path & "\" & File1.FileName
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Label1.Caption = Dir1.Path & "\" & File1.FileName '获取路径
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then
'备份数据库
If File1.ListCount <> 0 Then
FileCopy Trim(Label1.Caption), Date & "备份卡" & File1.FileName
Me.MousePointer = 0
MsgBox "数据已备份完毕！"
key = Date & "备份卡" & File1.FileName
Set itmX = ListView1.ListItems.Add(, , key, 1)
End If
End If
If Option2.Value = True Then
'恢复指定路径下的数据库
If File1.ListCount <> 0 Then
FileCopy ListView1.SelectedItem, File1.FileName
Me.MousePointer = 0
MsgBox "数据已恢复完毕！"
Else
MsgBox "请选择要恢复的数据！"
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub

xiaoMONKEY 2005-03-19

打赏
举报

我拷的时候弹出无权限操作的提示，这怎么解决？

yangao 2005-03-19

打赏
举报

access数据库备份

相关推荐