在QTP中怎样调用数据库中的返回值

spxsjd

使用数据库取值函数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

你连上数据库后,其实可以直接把record数据集内数据,加上循环

没有蛀牙

能不能再定义一个数组
然后把函数返回值附值给数组
Dim array()
array()=GetAllData(columnname)

denisye

现在一直很忙，很久没上51了..............
你是谁？竟然用这个函数？连GetAllDate名字都不改，真懒啊..............
这道题是考你SQL，你先看一下数据库的结构，看一下返回值的类型，就明白的了。

jiangbinchao

这断代码能运行吗？ Do while  record(cloum)<>false这句过不了吧！