Question connexe Fiche de jeu d'enregistrements dans la base de données de connectivité

Question

S'il vous plaît trouverez ci-dessous le code ..

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 

Dans cette fonction, si je change un prix unitaire de nom de colonne dans la requête avec « * » il retournera plus d'un valeur .. dans ce cas, comment utiliser rss .....

Comme si je vais le faire (remplacer le prix unitaire par '*'), alors pendant l'exécution il remplit une erreur .. dans la récupération de données rss. s'il vous plaît en faisant de même modifier le code .....

Merci, Galstar

Answer 1

Vous pouvez vous référer aux champs par leur nom, mais d'abord rss doit être un objet, utilisez donc ensemble, aussi la chaîne concaténateur est &:

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") 

EDIT concernant des commentaires

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