主题:请教将access转换成excel代码
fdxxhjc
[专家分:0] 发布于 2010-09-16 20:28:00
若e:\下有一个t.mdb,且在t.mdb中有一个表为ab,请教将t.mdb中的表ab中的记录转换成e:\下的一个cd.xls文件的代码如何,谢谢
回复列表 (共1个回复)
沙发
sywzs [专家分:5650] 发布于 2010-09-17 14:31:00
用下面的代码试试看。
nD=SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb)};dbq=T.mdb;pwd=")
IF nD <=0
MESSAGEBOX("数据库连接失败!",16, '错误信息')
ELSE
nT=SQLEXEC(nD,"SELECT * FROM ab","TEMP")
IF nT <=0
MESSAGEBOX("读取数据错误!",16, '错误信息')
ENDIF
COPY TO cd xl5
ENDIF
SQLDISCONNECT(nD)
我来回复