参数化连接数据库问题

sufen2315

LR可实现参数化连接数据库,请问各位大侠
QTP是否支持参数化连接数据库
比如每次测试普通电话拆机,必须先连接数据库用SQL查询到在用的允许拆机的号码
然后才能往下执行,如果数据是事先准备好的,很难保证数据的可用性

先谢过在这路过的,留下脚印的,给出宝贵建议的xdjms

fengmingbao

Set con=createobject("adodb.connection")
conset = "这个地方是所要连接的数据库,用户名和密码"

'连接
con.open conset

'测试有没有连上
If  con.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 not  isnull(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 编辑 ]

zte_boy

这个当然可以啊，和项目开发是一样的，没有区别啊

sufen2315