|
‘数据库连接
Set con=createobject("adodb.connection")
con.open"DRIVER={Microsoft ODBC for Oracle};UID=**;PWD=**;SERVER=..;"
Set rs=createobject("adodb.recordset")
sql="select * from t"
rs.open sql,con
'获取数据库中数据并赋值到QTP中global表
i=1
while not rs.eof
logname = rs("logname").value
logpasswd=rs("logpasswd").value
datatable.setcurrentrow(i)
datatable.value("name","Global")=logname
datatable.value("passwd","Global")=logpasswd
i=i+1
rs.movenext
wend
Browser("..").Page("..").WebEdit("loginName").Set DataTable("name", dtGlobalSheet)
Browser("..").Page("..").WebEdit("password").SetSecure DataTable("passwd", dtGlobalSheet)
Browser("..").Page("..").WebButton("提交").Click
Browser("..").Page("..").Link("登出").Click
要实现的是:通过global表中的数据(不同的用户名密码)登陆系统
现在情况是:执行时只能登陆一次,并且是数据库中最后一对用户名和密码能登陆
请问怎样才能将数据库中所有的数据能成功执行登陆操作 |
|