现在的位置: 主页 > 联系方式 > 文章列表

使用ado自动化组件连接Excel,运行查询语句

作者:石家庄绿之洲商贸有限公司 来源:www.365tt315.com 未知发布时间:2017-09-09 10:33:43
使用ado自动化组件连接Excel,运行查询语句 很多情况下,ado往往是用来处理数据库的,但其实它同样也可以处理excel,因为excel带有数据源,只要有数据源就可以使用ado来进行自动化控制。来看一下例子:

表:

username[列名]

QTP

xifeijian

China

脚本:

‘强制变量声明

Option Explicit

‘声明conn数据库链接对象和rs结果集对象

Dim conn,rs

‘声明数据库链接字符串

Dim connectionString : connectionString =”DSN=Excel Files;DBQ=D:\xifeijian.xls;”

‘声明sql执行语句

Dim sqlString : sqlString = “select * from [Sheet1$]”

‘创建ado组件对象

Set conn = CreateObject(“adodb.connection”)

‘打开数据库

conn.Open connectionString

‘执行sql语句并获得结果集

Set rs = conn.Execute(sqlString)

‘遍历结果集中的username字段的数据

While Not rs.EOF

MsgBox rs.Fields(“username”).Value

rs.MoveNext

Wend

‘关闭结果集

rs.Close

‘关闭数据库

conn.Close

‘释放对象

Set sqlString = Nothing

Set connectionString = Nothing

Set rs = Nothing

Set conn =Nothing

企业建站2800元起,携手武汉肥猫科技,做一个有见地的颜值派!更多优惠请戳:荆门网站制作 http://jingmen.666rj.com

上一篇:获取罗辑思维每天的微信语音(python) 下一篇:最后一页