QTP连接mysql

QTP连接mysql的方法如下:

下载一个mysql的驱动,然后进入控制面板设置好数据源!

连接数据库的代码如下:

Browser("TestLink - Login").Page("TestLink - Login").WebEdit("login").Set "xing"
Browser("TestLink - Login").Page("TestLink - Login").WebEdit("password").SetSecure "4a5431e5ab48dff2edee6594b6d6"
Dim Cnn, Rst, strCnn

strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=testlink;USER=root;Option=3"
Set Cnn = CreateObject("ADODB.connection")
Cnn.Open strCnn
Set Rst = CreateObject("ADODB.Recordset")
Rst.Open "select * from users", Cnn

Rst.MoveFirst
While Rst.EOF<>true
 msgbox Rst.fields("login")
 Rst.MoveNext
Wend
Rst.Close
Cnn.Close

Set Rst = Nothing
Set Cnn = Nothing

Browser("TestLink - Login").Page("TestLink - Login").WebButton("Login").Click