vba连接数据库

Question

由于公司要求我写开发中需要的小工具，用vba写，对excel进行相关操作。需要连接mysql，请各位同僚告诉我vba连接mysql的步骤和相关代码。

Answer 1

可以在网上查到。自己查查吧！关键字是：VBA MySQL

Answer 2

1、到mysql网站，下载ODBC驱动，安装！
2、到控制面板|管理工具|我的数据源 里面配置ODBC数据源！
3、在VB里面用ado引用2中设置的数据源！ 

Answer 3

 Dim conn As ADODB.Connection '定义ADO连接对象
 Dim rs As ADODB.Recordset '定义ADO记录集对象
 
    
Function GetConnection(servername As String, dbname As String, username As String, userpwd As String)
   
    Dim connstr As String
    Set conn = CreateObject("ADODB.Connection") '创建ADO连接对象
    'Set rs = CreateObject("ADODB.Recordset")
    
    conn.CommandTimeout = 15 '设置超时时间
    
    'connstr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & servername & ";Database=" & dbname & ";Uid=" & username & ";Pwd=" & userpwd & ";Stmt=set names GBK"
    connstr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=127.0.0.1;Database=test;Uid=root;Pwd=123456;Stmt=set names utf-8"
    conn.ConnectionString = connstr
    conn.Open
    
    'Dim strsql As String
    'strsql = "select count(*) from tbl_user"
    'Set rs = conn.Execute(strsql)
    'Dim num As String
    'num = rs.Fields.Item(0).Value
    'MsgBox num
 End Function