数据备份的问题(在线等待)
我做数据备份的时候用以下的代码
do case
case thisform.combo1.value="myclass"
select 1
ff=alltrim(thisform.text1.value)
if file(ff)
lnotice=messagebox('在该目录下已经存在该文件,是否用新文件覆盖原文件',65,'提示信息')
if lnotice=1
delete file &ff
copy to &ff
messagebox("数据备份成功!",48,"提示")
endif
else
copy to &ff
messagebox("数据备份成功!",48,"提示")
endif
省略其他代码.......
生成的表文件 就是myclass10-27.dbf 和myclass10-27.FPT 就是原来的表文件加上当前的日期作为备份文件的名称.
现在出了一个问题:
有一个表单数据环境使用的是myclass.dbf 如果把这个文件删掉 然后用刚刚备份的myclass10-27.dbf 和myclass10-27.fpt 文件修改成myclass.dbf myclass.fpt
放在myclass所在的地方 那么系统就会提示"表'myclass.dbf'没有标记为属于'个人资料'数据库.是否创建后台连接以进行标记' 不管点是,还是否 都会出错.但是要是使用WINDOWS 'ctrl+c'复制的表文件就可以用,而且也不会出现上面所说的错误.
有没有好的办法解决这个问题,或者有更好的备份数据的代码支持导入导出的功能
我的EAMIL;ada987@sina.com 收到就给分.