VB：怎样将查询结果导出到Excel_VB_站长学院_北方站长站

北方站长站

客服热线:0632-5117766

VB：怎样将查询结果导出到Excel

[2007-12-09 00:00:00] 作者：Northz.com 来源：北方站长站

→Tags:结果查询怎样 nRow nCol As Error Exit End Set Dim ←

　　

访谈录:阿里妈妈人气王校内网论坛赵辰

访谈录:阿里妈妈

　　Public Function FillDataArray(asArray(), adoRS As ADODB.Recordset) As Long
　　'将数据送 Excel 函数
　　Dim nRow As Integer
　　Dim nCol As Integer
　　On Error GoTo FillError
　　ReDim asArray(100000, adoRS.Fields.Count)
　　nRow = 0　
　　 For nCol = 0 To adoRS.Fields.Count - 1
　　 asArray(nRow, nCol) = adoRS.Fields(nCol).Name
　　 Next nCol
　　 nRow = 1
　　Do While Not adoRS.EOF
　　 For nCol = 0 To adoRS.Fields.Count - 1
　　 asArray(nRow, nCol) = adoRS.Fields(nCol).Value
　　 Next nCol
　　 adoRS.MoveNext
　　 nRow = nRow + 1
　　Loop
　　nRow = nRow + 1
　　FillDataArray = nRow
　　Exit Function
　　FillError:
　　 MsgBox Error$
　　 Exit Function
　　 Resume
　　End Function

News

info

down

出售手机裁听器,手机跟踪定位系统企业网站，网城，购物网，都市导购，校园网网上书店系统上海电信机房服务器托管,双线主机托管美女图片馆 15G 高清晰图片资源无水印室内装潢材料新产品杰威尔艺术漆收一万ip的美女图片大量收购个人网址导航网站出售网址站PR=4alexa=119,764

下一篇链接:用VB实现数字波形显示程序

上一篇链接:VB入门教程之一

【评论】【打印】【加入收藏】【关闭】 →论坛 →博客 →数据中心

相关新闻

最新站长分类信息

·diguo.cn 超靓域名出售

·北方站长下载，整站出售，ECMS（帝国）程序

·综合性网站及软件服务项目整体转让

·5万左右收有固定收入的站

·会员10万的数码游戏类社区6万出售

·“中国制造业管理在线”整体转让

·低价出售网站程序

·前景广阔互联网项目—企业网络商务电视平台

·中国精品饰品资源网网站转让

·中国音响供应商网网站整体转让

更多>> 看图说事儿

: “印尼黑客”Hmei7频频攻

: YouTube公布07年最热门视

: 迅雷IM通讯软件低调上线

: 腾讯大举封杀.CN域名疑

共有 0 位网友发表了评论此处只显示部分留言点击查看完整评论页面