QTP中读取SQL数据库例子
上一篇 /
下一篇 2009-03-05 12:42:39
/ 个人分类：QTP学习
Browser("aaa").Page("bbb").WebEdit("username").Set DataTable("Pname", dtGlobalSheet)
username = Browser("aaa").Page("bbb").WebEdit("username").GetROProperty("value")
Browser("aaa").Page("bbb").WebEdit("password").SetSecure "447bc007c1401dd4511996463d35fd01"
Browser("aaa").Page("bbb").WebButton("登 录").Click
Dim res,sql，dtvalue
'创建两个对象
Set Res=createobject("adodb.recordset")
Set Cmd=createobject("adodb.command")
'设置数据库连接，例子是连接的sql数据库，Initial Catalog是在本机上配置的ODBC数据源名称ata Source中IP后面一定要加上,1443，
'不然会报连无效；
Cmd.activeconnection="Provider =SQLOLEDB;User ID =sa; PWD=sa; Initial Catalog=documan_ch; Data Source=localhost,1433"
'使用 CommandType 属性设置命令类型；
Cmd.CommandType = 1
sql="select * from TBLUser where USR_Name='"&username&"'"
'使用 CommandText 属性定义命令（例如SQL语句）的可执行文本
Cmd.CommandText = sql
MsgBox sql
Set res = Cmd.Execute()
'该例子的结果为一行记录。下面是三种方法获取这一行结果各列的值，索引是从0开始，USR_Name代表的是列名。
'如果结果集中包含有多行记录，那么可以使用res.recordCount取得总记录行数，可以使用res.movenext移动到下一行，
'而res(i)这个时候是返回一行记录了，索引也是从0开始。
MsgBox TRIM(res.Fields(3))
MsgBox Trim(res.Fields("USR_Name"))
MsgBox (res(1))
dtvalue =Trim(res.Fields("USR_Name"))
'下面是判断从数据库读取到的用户和输入的是否一致，只校验了一个字段，可以校验多个字段
If Trim(username) = dtvalue Then
Report.ReportEvent micpass "成功"
Else
Report.ReportEvent micfail "不成功"
End If
Set res =Nothing
Set Cmd.ActiveConnection=Nothing
Set Cmd =Nothing
收藏
举报
TAG:
