VBA_输出SQL查询数据

Option ExplicitSub 输出数据表(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 < Lmsht.Cells(2, i + 1) = rs.Fields(i).Name '列名读取i = i + 1 'i加1，准备把下一记录相关字段的值保存到工作表的下一行
Wend
rs.Close '关闭记录集
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'循环数据表
rs.Open strSql, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
i = 3Do While Not rs.EOFh = 1While h - 1 < Lm '当数据指针未移到记录集末尾时，循环下列操作sht.Cells(i, h) = rs(rs.Fields(h - 1).Name) '把当前字段2的值保存到sheet1工作表的第i行第2列h = h + 1Wendrs.MoveNext '把指针移向下一条记录i = i + 1Loop
rs.Close '关闭记录集

转载于:https://blog.51cto.com/gongxi/1918523

VBA_输出SQL查询数据相关推荐

SQL查询数据并插入新表
SQL查询数据并插入新表 --如果接受数据导入的表已经存在 insert into 表 select * from tablename--如果导入数据并生成表 select * into 表 from ...
数据库实验三 SQL查询数据
实验三 SQL查询数据实验目的熟练掌握使用SQL查询语言.完成各类查询操作(单表查询,连接查询,嵌套查询,集合查询). 实验内容现有一个单位内部的小型图书借阅系统,假设每本图书的数量无限制,并且 ...
03 SQL查询数据实验报告
03 SQL查询数据实验报告 ...
实验三 SQL查询数据
SQL查询数据一.实验目的熟练掌握使用SQL查询语言.完成各类查询操作(单表查询,连接查询,嵌套查询,集合查询). 二.实验原理基于数据库系统概论,熟悉实验环境,熟悉SQL查询数据等本次实验的基 ...
pythonpandas用sql查询数据表_python pandas read_sql_query使用记录
版本: 系统win 10 ,python 3.5, pandas:0.25.0 解决问题: 读取到的数据为科学计数法,然后转换成整数影响精度. pandas 使用 read_sql_query: p ...
pythonpandas用sql查询数据表_pandas从数据库读取数据
因为本周有一个是需要使用pandos做一个数据分析的需求,所以在这里做一下记录. Python中用Pandas进行数据分析,最常用的就是Dataframe数据结构, 这里我们主要介绍Pandas如何读 ...
统计出库数，sql查询数据，sqldf做透视表，循坏处理数据
#设置工作路径 D:\资料\天富盈\天富盈\erp\erp录入 setwd("D:\\资料\\程序文档")#设置文件名 path="C:\\Users\\Jarvis\\ ...
Oracle表明明存在SQL查询数据提示表不存在异常
今天同事遇到一个很奇怪的问题,恢复了一个数据库,表明明存在,用PLSQL和sqlplus都试过了,SQL语句select * from 表名,查询数据,却提示表名不存在异常然而,使用select * ...
查看SQL查询数据所话费时间
通过下面语句可以查看某查询语句查询数据所话费的时间在select查询语句前加: declare @d datetime set @d=getdate() 并在selec查询t语句后加: select ...

VBA_输出SQL查询数据

VBA_输出SQL查询数据相关推荐

最新文章

热门文章