标题: 在QTP中怎样调用数据库中的返回值 [打印本页] 作者: spxsjd 时间: 2007-4-25 14:44 标题: 在QTP中怎样调用数据库中的返回值 使用数据库取值函数GetAllData从数据库中读取登录数据,函数返回值是数组,那么在action中Username\Password是怎样调用函数返回值,请各位指点一下.GetAllData函数如下:
function GetAllData(columnname )
Dim ts, s,GetUserName,Table
Set con=createobject ("adodb.connection")
con.open "Driver=SQL Server;Server=192.168.111.123;UID=sa;PWD=autotdserver;APP=Quick Test Pro;DataBase=scenariote"
Set record=createobject("adodb.recordset")
sql="select * from QTPTraining"
record.open sql,con
i=0
Do while record(columnname)<>False
ReDim Preserve arr(i)
arr(i)=record(columnname)
record.movenext
if record.eof=true then
exit do
end if
i=i+1
loop
record.close
set record=nothing
con.close
set con=nothing
GetAllData=arr
end function作者: xiaonan 时间: 2007-4-28 16:09
你连上数据库后,其实可以直接把record数据集内数据,加上循环作者: 没有蛀牙 时间: 2007-4-28 18:00
能不能再定义一个数组
然后把函数返回值附值给数组
Dim array()
array()=GetAllData(columnname)作者: denisye 时间: 2007-5-8 22:31
现在一直很忙，很久没上51了..............
你是谁？竟然用这个函数？连GetAllDate名字都不改，真懒啊..............
这道题是考你SQL，你先看一下数据库的结构，看一下返回值的类型，就明白的了。作者: jiangbinchao 时间: 2007-6-9 19:02
这断代码能运行吗？ Do while record(cloum)<>false这句过不了吧！