首先QTP要连接MySql 先确保机器上有MySql的数据源 没有的话去网上下一个装上吧!
  我这里用的是Mysql 5.1的数据源 ,装完后,在桌面新建一个TXT文档,然后修改后缀改为udl,变成了数据链接这样子,打开它,你会发现《提供程序》内没有Mysql这个名字的程序 ,但是在windows的管理工具数据源内能找Mysql 5.1的名字也可以添加,后来找了好久才知道原来Mysql在数据链接内是叫 Miceosoft OLE DB Provider for ODBC Drivers 这个名字。
  现在找到了名字 接下来是设置《连接》的属性,数据源名称可以随意填写,下面的用户名和密码需要MySql的管理人员给权限。当都设置好了,点击测试连接,显示连接成功的话是能正常启动了。

  上面配置好了以后,我们用记事本的方式打开*.udl,里面有这些内容 我们只需要复制红线那部分,这部分为链接地址

  好了,接下来进入编写阶段了
  实现功能
1:读取数据库 USER_ 表内的 SCREEN 和 SEREENNAME 这两列下含有"test_"字符串的数据,
2:循环写入一个登陆界面,实现正确登陆
3:验证点,登陆完毕后主界面会有一个对象内显示 Welcome test01! ,用描述性编程找到该对象获取其中我所需要的属性值进行验证
Dim conn
Dim name
Dim sql
Dim suu
Dim inn '检查字段
SystemUtil.Run "http://192.168.0.233/web/guest/home"
'这一段是复制当时记事本里的那一段语句 这段语句有个问题是 自己要手动往里添加用户密码噢 所以我再里面加了一个Password=1111
Mysql="Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Password=1111;Data Source=sqltest"
'select screenName,screenName from user_ where screenName like 'test__';
'这段话表示说 搜索数据库内 USER_ 表内 screenName,screenName 这2个列里面所有包含 test 的数据
sql="select screenName,greeting from user_ where screenName like 'test__';"
Set conn=CreateObject("ADODB.CONNECTION")
conn.Open Mysql
If conn.State<>0 Then
Reporter.ReportEvent micPass,"连接成功","连接成功"
else
Reporter.ReportEvent mimicFail,"连接失败","连接失败"
End If
Set res=CreateObject("ADODB.Recordset")
res.Open sql,conn,1,1 '1,1表示只读;1,3表示插入数据;2,3表示修改数据
res.MoveFirst'使游标指向第一个记录
sum=""
'res.EOF表示游标到达后一行
While Not res.EOF
'读取整个表内的所有数据
'    For i=0 to res.Fields.Count-1'str.Fields.Count表示字段个数
'     sum=sum& res(i) & " " '把整个记录显示出来
'   Next