問題相關的記錄集表中的數據庫連接

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