您的位置:程序门 -> vb -> 数据库(包含打印,安装,报表)



filecopy 语句没执行 请问 是 什么 原因


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


filecopy 语句没执行 请问 是 什么 原因[已结贴,结贴人:aruima]
发表于:2007-04-23 16:31:25 楼主
我的语句如下   我准备实现数据、库的备份,保存到指定的位置
可是没执行   ,也没有提示错误   ,请问   错误在那里阿  
on   error   resume   next

cmndlog.action   =   2     '//保存对华框
savefile   =   cmndlog.filename     '//   获取保存路径
namefile   =   cmndlog.filetitle     '//获取保存的名子  
targetf   =   savefile            
if   namefile   =   " "   then
      msgbox   "没有给备份的数据库命名 ",   ,   "提示信息 "
      exit   sub
else
      openfile   =   "\\chenrf\共享文档\资料系统\资料库.mdb "
      filecopy   openfile,   targetf
      msgbox   "资料库备份成功 ",   ,   "备份成功 "
end   if
发表于:2007-04-23 16:57:331楼 得分:8
on   error   resume   next
--
把这条去了,错误才能出得来啊!!
发表于:2007-04-23 17:00:112楼 得分:0
取掉后   也没有错误提示
也没执行备份
发表于:2007-04-23 17:09:283楼 得分:0
去掉后显示拒绝的权限   这是怎么回事啊   怎么修改啊
发表于:2007-04-23 17:10:334楼 得分:6
filecopy   openfile,   targetf     设置断点检查是否执行了代码!
发表于:2007-04-23 17:20:245楼 得分:6
没有写权限!或文件已经打开(其它用户)!
发表于:2007-04-26 10:09:326楼 得分:0
是我没关闭数据库   就备份了


快速检索

最新资讯
热门点击