EXCEL的VBA通过SSH连接MYSQL

mysql_connect()函数用于连接数据库，注意，是小写，大写是不行的哦 他有3个参数 第一个：是mysql数据库所在服务器地址，有2种情况，一种是：你的连接数据库的代码文件和mysql数据库，那么，这个参数可以是localhost、127.0.0.1这两种都行，mysql数据库端口默认是3306，连接的时候可以省略，但如果mysql'数据库端口不是这个，那这个参数还要加上端口，比如，localhost:3305、127.0.0.1:3305这样第二种情况就是，你的程序代码在A服务器，msyql在B服务器，这样，这个参数就是mysql数据库所在服务器的ip地址 第二个参数是mysql数据库的登录用户，比如：root 第三个参数是mysql数据库的登录用户的密码，比如123456，当然，如果mysql数据库相应的登录用户，没有设置密码，那么这个参数可以留空，但不能省略 至于双引号单引号的问题，没有多大差别，单引号双引号都行，如果非要说有差别的话，就是，php会查找双引号内的变量进行编译 给你举个例子： $a = 10echo '数字是：$a'//这个使用了单引号，那么输出结果就是： 数字是$a echo "数字是：$a"//这个使用了双引号，所以输出结果就是：数字是10 差别就是这个 一般来说，php中，如果引号内没有变量的使用，那就用单引号，这样有利于php的优化

编写Excel VBA工具，连接并 *** 作Mysql 数据库。

系统环境：

OS：Win7 64位 英文版

Office 2010 32位 英文版

1、VBA连接MySql前的准备

Tools--->References..---->引用

勾选Microsoft ActiveX Data Objects 2.8 Librarys 和Microsoft ActiveX Data Objects Recordset 2.8 Librarys

2、安装Mysql ODBC连接服务

下载连接：https://dev.mysql.com/downloads/connector/odbc

注意：这里使用32位的版本

下载上图中Windows(x86,32-bit),Zip Archive版本，在测试中，使用64位的版本无法连接到Mysql

把下载上述文件拷贝放到资源管理器里，放到合适位置，解压，点击里面的install.bat批处理文件。

从“控制面板”--->“管理工具”---->ODBC,打开以后，从这个里面无法看到Mysql的驱动，实际上使用的是下面32位的ODBC驱动

C:\Windows\SysWOW64\文件夹下的odbcca32.exe

3.连接示例   

Sub TestConnectTodb()    Dim conn As ADODB.Connection    Dim rs As ADODB.Recordset    Set conn = New ADODB.Connection    Set rs = New ADODB.Recordset    conn.ConnectionString = "Driver={MySQL ODBC 5.3 Unicode Driver}Server=localhostPort=3306Database=db_hptmsUid=rootPwd=123456OPTION=3"    conn.Open    rs.Open "select fdEmpNo,fdEmpName from tbUser", conn    With ThisWorkbook.Worksheets("MySqlData")         .Visible = True         .Range("a1:b1").Value = Array("EmpNo", "EmpName")         .Range("A2").CopyFromRecordset rs         .Activate    End With    rs.Close: Set rs = Nothing    conn.Close: Set conn = Nothing    MsgBox "处理完毕", vbOKOnly, "提示信息"End Sub

上述示例经过测试，可以正常连接到Mysql数据库，这里注意使用的ODBC连接的版本是32位，在测试中，使用64位的，始终无法正常打开连接。

---