标签：02 VBA rs ODBC Excel MySQL ADODB conn

 

1、配置Windows连接驱动ODBC

因为是访问MySQL，则对应的ODBC驱动由MySQL厂商发布

https://dev.mysql.com/downloads/connector/odbc/

 

这里系统位数有个坑，要下载32位版

安装64位版后执行VBA脚本却告诉我找不到ODBC驱动，想半天才知道系统位数原因

https://yebd1h.smartapps.cn/pages/blog/index?blogId=108721206&_swebfr=1&_swebFromHost=baiduboxapp

又或者因为连接参数不对

 

安装ODBC驱动之后，找到【管理工具】

把下面这个地址粘贴的【资源管理器】的地址栏上直接访问

控制面板\系统和安全\管理工具

分为64位和32位，双击32位

可以看到驱动列表中有了MySQL的驱动

 

可以新建一个【用户DSN】来测试

 

 

2、Excel的VBA配置

找到VBA开发工具，引用菜单

 

追加VBA的数据库访问对象

 

追加两项引用：

Mircosoft ActiveX Data Objects 6.1 Library
Mircosoft ActiveX Data RecordSet 6.0 Library

 

3、编写VBA执行脚本

然后可以在VBA中编写数据库访问脚本：

Sub 连接本地Mysql()
    '///1. 引用ADO类库：前期或者后期绑定
    Dim conn As ADODB.connection
    Set conn = New ADODB.connection '以上两句可简写Dim con As New ADODB.Connection

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset '以上两句可简写Dim rs As New ADODB.Connection
    
    '///2. ADO建立对数据源的链接
    '可简写con.Open "Driver={MySQL ODBC 8.0 Unicode Driver};Server=192.168.1.139;DB=test;UID=root;PWD=abc;OPTION=3;"
    conn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=127.0.0.1;Port=3308;DB=my-info;UID=root;PWD=123456;OPTION=3;"
    conn.Open
    
    '///3. ADO执行SQL语言。
    rs.Open "select * from application_website", conn '使用结果集对象执行sql语句
    Range("A2").CopyFromRecordset rs '将数据输出到工作表，不包含字段名
    
    MsgBox ("连接成功！" & vbCrLf & "数据库状态：" & conn.State & vbCrLf & "数据库版本：" & conn.Version)
    conn.Close
    Set conn = Nothing
End Sub

 

脚本执行结果

 

标签：02,VBA,rs,ODBC,Excel,MySQL,ADODB,conn
来源： https://www.cnblogs.com/mindzone/p/15943281.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。