VBA_输出SQL查询数据-创新互联

Option Explicit Sub 输出数据表(strSql As String, Work As String) '传值处理 ''''''''''''''''''''''''''''''''''''''''''' Dim data As New 数据库 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sht As Worksheet Dim i As Integer Dim Lm As Integer Dim h As Integer Set sht = ThisWorkbook.Worksheets(Work) cn.Open data.SQL数据库 '循环查询到的列名，把列名的数量定义循环。 rs.Open strSql, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中 i = 0 Lm = rs.Fields.Count '列名的数量定义 While i < Lm     sht.Cells(2, i + 1) = rs.Fields(i).Name '列名读取     i = i + 1 'i加1，准备把下一记录相关字段的值保存到工作表的下一行 Wend rs.Close '关闭记录集 ''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' '循环数据表 rs.Open strSql, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中 i = 3     Do While Not rs.EOF         h = 1         While h - 1 < Lm '当数据指针未移到记录集末尾时，循环下列操作             sht.Cells(i, h) = rs(rs.Fields(h - 1).Name) '把当前字段2的值保存到sheet1工作表的第i行第2列             h = h + 1         Wend         rs.MoveNext '把指针移向下一条记录         i = i + 1     Loop rs.Close '关闭记录集

创新互联-专业网站定制、快速模板网站建设、高性价比西乌珠穆沁网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式西乌珠穆沁网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖西乌珠穆沁地区。费用合理售后完善，十年实体公司更值得信赖。

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

网页标题：VBA_输出SQL查询数据-创新互联
链接地址：https://www.cdcxhl.com/article12/coeigc.html

成都网站建设公司_创新互联，为您提供品牌网站制作、面包屑导航、定制网站、网站建设、网页设计公司、动态网站

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联