vba 用adodb连接mysql_【VBA研究】Excel VBA利用ADODB访问数据库使用小结

[转自] http://blog.youkuaiyun.com/iamlaosong/article/details/18043433

作者：iamlaosong

▲连接Oracle数据库

Set cnn = CreateObject("ADODB.Connection")

cnn.Open "Provider=msdaora;Data Source=dl580;User Id=emssxjk;Password=emssxjk;"

dl580是tnsnames.ora中配置的服务名。

▲创建记录集recordset

Set rst = CreateObject("ADODB.Recordset")

sqls = "select * from tb_city"

Set rst = cnn.Execute(sqls)

这儿的SQL语句除了查询语句select以外，也可以用insert、update、delete等命令，也可以用truncate table这样的命令。这些SQL语句也可以用command对象完成。command对象还可以进行存储过程的调用并传递参数。

▲记录集结果的引用

Excel VBA 通过ADO取到数据后，有如下引用方式(假定记录集名字为rst)：

1、字段数量：rst.fields.count；

2、字段名称：rst.fields(0).name，0表示第一个字段，其它字段分别是1,2,...rst.fields.count-1；

3、字段值：rst(0)或者rst(0).Value或者rst.fields(0).value࿰