假设你的大数据量表取名“信息表”,如下程序将可以帮助你将它按要求导出。
use 信息表
count to 记录数
首记录=1
for t=1 to ceiling(记录数/5000)
if t*5000>记录数
末记录=记录数
else
末记录=t*5000
endif
表名=iif(t<10,"0"+allt(str(t))+".xls",allt(str(t))+".xls")
copy to &表名 xls for recn()>=首记录.and.recn()<=末记录
首记录=末记录+1
endf
如果你对命令不熟悉,建议你直接用复制加粘贴的办法来创建这个程序文件,运行后就可以在你的默认目录下生成你所需要的全部Excel表文件了。
select * from sourceTab into cursor tmpS order by yourKeyField
pgCount = CEILING(RECCOUNT('tmpS')/5000)
cnt = 1
DO while cnt <= pgCount
SELECT * FROM tmpS INTO CURSOR tmpI WHERE BETWEEN(RECNO().(cnt-1)*5000+1,cnt*5000)
COPY TO ('Data_'+ALLTRIM(STR(cnt))) xl5
cnt = cnt +1
ENDFOR
USE IN tmpI
USE IN tmpS
USE IN sourceTab
*该程序没有经过调试, 提供一个思路而已。
你为什么不能用access呢?