您所在位置：主题：合并数据库,提示文件正在使用
thirdli
[专家分：0] 发布于 2009-10-17 03:24:00
在表单中用一个摁钮,实现同样字段的数据库的合并到xxx这个数据库中,摁钮的click事件如下
fname=getfile('dbf')
if file(fname)
use
use xxx
use &fname
insert into xxx sele * from &fname
use
Messagebox('数据合并成功',64,'系统提示')
else
Messagebox('用户已取消',64,'系统提示')
return
endif
结果合并第一个数据库,再合并其他的数据库时,就会提示,"文件正在使用"
fname=getfile('dbf')
if file(fname)
use
use xxx
use &fname
insert into xxx sele * from &fname
use
Messagebox('数据合并成功',64,'系统提示')
else
Messagebox('用户已取消',64,'系统提示')
return
endif
结果合并第一个数据库,再合并其他的数据库时,就会提示,"文件正在使用"