testing - 在 qtp 中找不到与请求的名称或序号对应的集合中的项目

Question

在某种情况下，我试图在 QTP 中使用选择查询(更具体地说是使用 VB 脚本的 QTP) 但是代码不起作用。

Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")

con.open "Driver={Microsoft ODBC for Oracle};Server=myServer; Uid=USERNAME;Pwd=PASSWORD;"
rs.open "SELECT B.STATUS FROM STUDENT B WHERE B.BATCHCODE='FIRST' ",con

Do while not rs.eof
DataTable.GlobalSheet.AddParameter.RawValue = rs.fields("v1")
rs.movenext
Loop

Release objects
Set rs= nothing
Set con= nothing

请帮助我了解代码的哪一部分导致脚本结果失败。

Answer 1

“在与请求的名称相对应的集合中找不到项目”- 当您尝试引用的记录集中不存在该字段时，会出现此错误!

rs 不会有“v1”，它只有“STATUS”。

  rs.fields("v1")

所以，应该是

rs.fields("STATUS")