一直想研究如何使用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"表三个字段的值并打印出来.
值得注意的是,操作完毕后必须关闭数据库连接,并置空相关的变量,这是一个好的编程习惯.