Vbscript 数据库连接中的问题相关记录集表

请在下面找到代码

Function Connect_to_db(Byval mfgprt)

    Dim cnn,rss
    Set cnn = CreateObject("ADODB.Connection")
    Set rss = CreateObject("ADODB.recordset")
    cnn.ConnectionString = "DSN=QTPDSN;Description=desc;UID=;PWD=;APP=QuickTest Professional;WSID=;DATABASE=;"

    cnn.open
    rss = cnn.Execute (""select  UnitPrice  from ProductProfilePrices  where MfPartNumber ='" + mfgprt + "'")

    Connect_to_db=rss(0)
End Function

在这个函数中，如果我用“*”更改查询中的列名称单价，那么它将返回多个值..在这种情况下如何使用rss

就好像我会这样做（用“*”替换单价），然后在运行时填充rss数据获取中的错误。。 请通过同样的操作修改代码

谢谢，

---

Galstar

您可以通过名称引用字段，但是第一个rss应该是一个对象，所以使用Set，字符串连接符也是&:

Set rss = cnn.Execute (""select  UnitPrice, Quantity  " _
& " from ProductProfilePrices  where MfPartNumber ='" & mfgprt & "'")

''Let us say that only one row is returned for mfgprt :

varUnitPrice = rss("UnitPrice")
varQuantity = rss("Quantity")

重新编辑评论

Connect_to_db "AAA", Val1, Val2
MsgBox Val1 & "  " & Val2


Function Connect_to_db(ByVal mfgprt, ByRef Val1, ByRef Val2)
Dim cnn, rss
Set cnn = CreateObject("ADODB.Connection")
Set rss = CreateObject("ADODB.recordset")
cnn.ConnectionString = "DSN=QTPDSN;Description=desc;" _
    & "UID=;PWD=;APP=QuickTest Professional;WSID=;DATABASE=;"

cnn.Open 
rss = cnn.Execute("select  UnitPrice, Quantity  " _
    & " from ProductProfilePrices  where MfPartNumber ='" & mfgprt & "'")

Val1 = rss(0)
Val2 = rss(1)
End Function

---

恐怕我看不出这是怎么回事。你想退货什么？请在您的查询中显示一些数据和您想要返回的内容。现在检查编辑的代码。。在这里，我只访问价格的价值，所以它运行良好。。但如果我也想要数量。。。表示希望返回值…数量和价格。但在这种情况下，连接到\u db=rss（0）将显示错误。。我希望这两个都保存在数据表中。。。。。如何做？？？感谢您的回复…然后如何处理…“连接到\u db=rss（0），因为这是在函数中返回值…如果您希望将多个值返回给其他过程，可以将要返回的名称传递给此函数，也可以返回数组（rss.GetRows）。在上面的示例中，rss（o）=rss（“单价”）rss（1）将是下一个选定的列（字段）。嘿，我明白了你想要传达的意思，即在rss中将值保存为rss（0）=rss（单价）rss（1）=rss（'Quantity'）…现在如何通过不同变量中的函数返回这些值…connect_to_db=rss显示错误，因为这不正确…请帮助我…。首先，为了保存我以前的操作，a=connect_to_db（x），因为我只需要一个列值..但现在我需要两个列值..请给我一些提示：（好的，我添加了一些注释。