【QTP】QTP连接Mysql数据库测试

  这里使用的是win 7系统

  首先创建ODBC

  打开“控制面板->管理工具->数据源(ODBC)”,弹出对话框,选择“系统DSN”,点击添加按钮。

  【QTP】QTP连接Mysql数据库测试

  弹出对话框后选择“MySQL ODBC 5.1 Driver”,如下所示:

  【QTP】QTP连接Mysql数据库测试

  设置MySQL连接如下,然后点击OK按钮。

  【QTP】QTP连接Mysql数据库测试

  在QTP中的专家视图中加入代码如下

  Dim Conn '定义一个数据库连接串

  Set Conn=CreateObject("ADODB.Connection")

  'Const

  ConnectionString="DSN=mysql_Mail;DATABASE=webscan;PWD=test83;PORT=3306;SERVER=172.16.100.83;UID=testiiscan"

  'DATABASE:数据库名,PWD:数据库密码,PORT:数据库端口,SERVER:数据库IP,UID:数据库用户

  Const ConnectionString="Driver={Mysql ODBC 5.1

  Driver};DATABASE=webscan;PWD=test83;PORT=3306;SERVER=172.16.100.83;UID=test"

  Conn.Open ConnectionString '打开数据库连接

  If Conn.State<>0

  Then ’判断数据库连接是否成功

  Reporter.ReportEvent micPass,"testing","连接数据库成功"

  else

  Reporter.ReportEvent micFail,"testing","连接数据库失败"

  End If

  '点击F5运行后可以看到结果

  Set Rs=CreateObject("ADODB.Recordset") '生成记录集对象

  sql="Select * from userlist where email='1@1.com'" '从数据中查询记录

  Rs.Open sql,conn,1,3

  '执行sql语句,记录可以自由移动,单数记录处于只读模式

  If (not Rs.eof ) Then

  Rs.MoveFirst

  MsgBox Rs("point")

  '取得字段为USER_ID的记录,游标定义在第一行,所以取得的是该字段所在行的第一行数据

  MsgBox Rs(1)

  MsgBox Rs(2)

  MsgBox Rs(3)

  end if

  '上面的是显示出数据库中某个字段的数据,下面是对比数据库中某个字段中的数据