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

Question

请找到下面的代码..

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

Answer 1

您可以通过名称引用的领域，但首先RSS应该是一个对象，所以使用设置，也字符串连接符是&：

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