急!急!急!access备份问题,高手请进!

wamlaw 2003-05-19 01:38:03
在access97环境中作vba.
想备份当前数据库(整个工程包括数据表都在这个start.mdb中),界面设计为点击按钮将整个mdb备份出来,使用
.............
filecopy "d:\work project\start.mdb","d:\bak.mdb"
.............

出现错误'70';
请问如何解决?如果这个方法不行,那如何事件相应功能?

多谢了!
...全文
32 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过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"
回复
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
回复
饮水需思源 2003-05-19
filecopy "d:\workpr~1\start.mdb","d:\bak.mdb"
这样试试
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-19 01:38
社区公告
暂无公告