VB里面怎样把ADO查询所得纪录集快速Export到Excel表

dongdacun 2000-09-08 05:49:00
VFP里直接用扩展SQL语句可以,VB里不知咋办,当然不是启动OLE对象了,那样太慢,也太难看,请大哥们指教
...全文
102 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
ezwyj 2000-09-13
  • 打赏
  • 举报
回复
dim i as integer ,j as integer
set x1app=createobject("excel.application")
x1app.visible=true
set x1book=x1app.workbooks.add
set x1book=x1book.worksheets(1)
adodata1.recordset.movefirst
adodata1.recordset.movelast
zs1=adodata1.recordset.recordcount
adodata1.recordset.movefirst
i=0
do while adodata1.recordset.eof=false
for j=0 to 8
if isnull(datagrid1.text)=false then
x1sheet.cells(i+1,j+1)=adodata1.recordset(j)
end if
next j
adodata1.recordset.movenext
i=i+1
loop

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧