转自:微点阅读 https://www.weidianyuedu.com
"以下代码用于32位系统,Office 2003,环境,MySql版本5.1
"在使用前需要先安装MySql的驱动,进行正确配置
"注意:必须给出正确的服务器名,数据库名,表名,数据库连接的用户名,密码
选项显式
Dim Cnn作为ADODB.Connection"定义ADO连接对象
Dim记录为ADODB.Recordset"定义ADO记录集对象
"连接到数据库
函数CnnOpen(ByVal ServerName As String,ByVal DBNam