VBS中连接Mysql数据库方法

(1) 首先给出连接数据库的VB代码
Dim adoConn ‘定义ADO连接对象
Dim ConnectionStr ‘定义数据库连接字符串
‘获取数据库连接字符串
ConnectionStr = “DSN=Mysql;DESCRIPTION={?????};SERVER=192.168.94.71;UID=root;PWD=root;PORT=3306;DATABASE=student”
‘获取数据库查询语句
sqlStr = “select * from information where CompanyNumber = ‘18854’ ”
‘创建数据库连接对象
Set adoConn = CreateObject(“adodb.Connection”)
‘利用数据库连接字符串打开数据库
adoConn.Open ConnectionStr
‘执行sql语句并返回对应的结果集
Set adoRst = adoConn.Execute(sqlStr)
‘获得结果集中年龄字段的值
MsgBox adoRst.Fields.Item(“Salary”).Value
‘关闭数据库
adoConn.Close
‘释放数据库对象
Set adoConn = Nothing
(2) 本篇文章重点要介绍的如何对ODBC进行配置
ConnectionStr = “DSN=Mysql;DESCRIPTION={?????};SERVER=192.168.94.71;UID=root;PWD=root;PORT=3306;DATABASE=student”，这句话哪里来的？其实就是对odbc进行配置后生成的。方法如下:
1)在电脑上随便建立一个文本文件，将它的后缀改成udl。如图所示:

(2)双击该文件。
按照图片所示进行操作:

下一步:

下一步:

点击新建，选择系统数据源，下一步。
在这里需要说明一下:
如果你的界面中没有出现这一项，就说明你的电脑中没有安装 mysql的odbc驱动，自己到百度搜索安装就行。
下一步:
点击test看看能不能连接成功
如果能连接成功，就点击OK就行。
建立好以后，就可以在下图中看到你创建的连接实例。

这个就是以后需要连接的数据库了。
接下来就可以看到编译框中出现的内容，这就是我们的连接字符串，就是这么来的。

随后将这个字符串copy到你的代码中运行就可以。
如下图: