参数化连接数据库问题
LR可实现参数化连接数据库,请问各位大侠QTP是否支持参数化连接数据库
比如每次测试普通电话拆机,必须先连接数据库用SQL查询到在用的允许拆机的号码
然后才能往下执行,如果数据是事先准备好的,很难保证数据的可用性
先谢过在这路过的,留下脚印的,给出宝贵建议的xdjms Set con=createobject("adodb.connection")
conset = "这个地方是所要连接的数据库,用户名和密码"
'连接
con.open conset
'测试有没有连上
Ifcon.state=0 Then
msgbox"DB Connection Failed"
End If
'配置要执行的SQL语句
Set recordSet1=createobject("adodb.recordset")
sql1="select * from Table where 1=2"
recordSet1.open sql1,con
'从结果中取出你想要的列里面的值, 并把它们存到Action 1
DataTable.LocalSheet.AddParameter "电话号码", ""
i=1
while notisnull(recordSet1) and not recordSet1.EOF
DataTable.GetSheet("Action1").SetCurrentRow i
DataTable.GetSheet("Action").GetParameter("电话号码").value= recordSet1("电话号码")
recordSet2.movenext
i=i+1
WEND
'关闭连接
con.close
Set con=nothing
这个时候已经从DB里面取出了数值,我把他们存在LOCALSHEET, 看你的要求应该是从这些数里面随机的选一个,然后继续测试.
你可以把他们存在数组里面,再定义一个随机数去对应数组里的某一个.
但愿对你有帮助
[ 本帖最后由 fengmingbao 于 2008-10-21 12:44 编辑 ] 这个当然可以啊，和项目开发是一样的，没有区别啊 :victory: :hug:
页:
[1]
