QTP连接MySQL操作

一直想研究如何使用QTP连接MySQL数据库的问题,因为MySQL属于开源DB,所以其ODBC驱动也自然不会在系统中预先为你存在.所以想使用MySQL的话,还得事先费点周折.

Windows ODBC数据源的管理:

本人的是Windows7 64-bit系统, ODBC数据源的访问路径与Vista基本一致.

具体路径为:Control Panel > System and Security > Administrative Tools > Data Source(ODBC)

打开ODBC后,添加MySQL ODBC驱动即可. MySQL ODBC驱动到网上可以很方便的下载安装,安装成功后会自动添加到ODBC数据源的Driver页下.

具体如何下载安装以及添加MySQL ODBC数据源,不作赘述.

下面提供一个具体的QTP连接MySQL的例子：

本例中以数据"test"以及其中的"bed"表为例，进行操作演示：

Dim cnn, strCnn, Rst

strCnn = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=test;USER=root;PASSWORD=123;Option=3"
Set cnn = CreateObject("ADODB.connection")
cnn.Open strCnn
Set Rst = CreateObject("ADODB.Recordset")
Rst.Open "select * from bed", Cnn
Rst.MoveFirst
While Rst.EOF <> true
 print Rst("ID")& "   " & Rst("EnrollID")&  "   " & Rst("DromID")& chr(13) & chr(10)
 Rst.MoveNext
Wend

Rst.Close
Cnn.Close

Set Rst = nothing
Set Cnn = nothing

本例很简单,主要操作就是连接MySQL数据库,同时查询"test"库中的"bed"表三个字段的值并打印出来.

值得注意的是,操作完毕后必须关闭数据库连接,并置空相关的变量,这是一个好的编程习惯.