7491
社区成员
急！急!急!access备份问题，高手请进！
在access97环境中作vba.
想备份当前数据库（整个工程包括数据表都在这个start.mdb中），界面设计为点击按钮将整个mdb备份出来，使用
.............
filecopy "d:\work project\start.mdb","d:\bak.mdb"
.............
出现错误'70';
请问如何解决？如果这个方法不行，那如何事件相应功能？
多谢了！
想备份当前数据库（整个工程包括数据表都在这个start.mdb中），界面设计为点击按钮将整个mdb备份出来，使用
.............
filecopy "d:\work project\start.mdb","d:\bak.mdb"
.............
出现错误'70';
请问如何解决？如果这个方法不行，那如何事件相应功能？
多谢了！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
wamlaw 2003-05-19
谢谢！
jadehong 2003-05-19
我是扩展为。ZL的文件，你换成.MDB就可以了，
建议你在备份之前要压缩数据库。
引用JRO
Dim JRO3 As JRO.JetEngine
Set JRO3 = New JRO.JetEngine
JRO3.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=jcrj;Data Source=" & App.Path & "\sjcl.zl", _
"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=jcrj;Data Source=" & App.Path & "\sjcl2003.zl"
Kill App.Path & "\sjcl.zl"
Name App.Path & "\sjcl2003.zl" As App.Path & "\sjcl.zl"
建议你在备份之前要压缩数据库。
引用JRO
Dim JRO3 As JRO.JetEngine
Set JRO3 = New JRO.JetEngine
JRO3.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=jcrj;Data Source=" & App.Path & "\sjcl.zl", _
"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=jcrj;Data Source=" & App.Path & "\sjcl2003.zl"
Kill App.Path & "\sjcl.zl"
Name App.Path & "\sjcl2003.zl" As App.Path & "\sjcl.zl"
wamlaw 2003-05-19
上面的方法不行啊，我试了。是'70'读写错误
:(
:(
jadehong 2003-05-19
在此之前你要引用……runtime ……
On Error Resume Next
Dim filesystemobject As Object
Set filesystemobject = CreateObject("scripting.filesystemobject")
Cdg1.Filter = "筑龙备份文件(*.ZL)|*.ZL"
Cdg1.ShowSave
Dim fname As String
fname = Cdg1.FileName
If fname <> "" Then
filesystemobject.CopyFile App.Path & "\data\zlgys.ZL", fname
MsgBox "备份成功！请将[" & fname & "]文件保存好！", vbOKOnly + vbInformation
End If
On Error Resume Next
Dim filesystemobject As Object
Set filesystemobject = CreateObject("scripting.filesystemobject")
Cdg1.Filter = "筑龙备份文件(*.ZL)|*.ZL"
Cdg1.ShowSave
Dim fname As String
fname = Cdg1.FileName
If fname <> "" Then
filesystemobject.CopyFile App.Path & "\data\zlgys.ZL", fname
MsgBox "备份成功！请将[" & fname & "]文件保存好！", vbOKOnly + vbInformation
End If
饮水需思源 2003-05-19
filecopy "d:\workpr~1\start.mdb","d:\bak.mdb"
这样试试
这样试试
深度：嵌入式系统的软件架构设计！ 关注、星标公众号，直达精彩内容来源：嵌入式云IOT技术圈| veryarm1. 前言嵌入式是软件设计领域的一个分支，它自身的诸多特点决定了系统架构师的选择，同时它的一些问题又具有相当的通...
一些重要的面试题！ 最后，不管采取何种方案，请时刻牢记单例的三大要点： 线程安全 延迟加载 序列化与反序列化安全 参考资料 《Effective Java（第二版）》 《深入理解Java虚拟机——JVM高级特性与最佳实践（第二版）》 2.java选择排序...
关于硬盘的一切! 关于硬盘的一切!(结构-发展-参数-维护-修复)一：目录如下 二：浅谈硬盘发展史 三：硬盘“空间”与“文件大小”秘密 ...十：高手:挽救硬盘的几个方法 十一：厂家维修硬盘的方法 十二：第三方软件的修复原理 十三：学...
