set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[usp_GetLotAttributes]
	@AttrNum int  = NULL,
	@LotID varchar(11) = NULL
AS
SELECT * 
FROM Fab5IE_LastTables.dbo.tblLastTables
WHERE RecordIsOpen = 1 AND (LastAttr = ISNULL(@AttrNum,LastAttr) AND LotNum = ISNULL(@LotID,LotNum))
ORDER BY LastAttr 

Function Fab5IE_GetDataStoredProc(strItem As String, strParamString As String, tgtForData As Variant) As Boolean

'   Local Variables
    Dim adoConn         As New ADODB.Connection
    Dim adoRst          As New ADODB.Recordset
    Dim adoPrm          As ADODB.Parameter
    Dim adoCmd          As command
    Dim strDBConn       As String

    Fab5IE_GetDataStoredProc = False
    On Error GoTo L___ExitEarly

'   Open a connection
    strDBConn = strFab5IE
    adoConn.Open strDBConn

'   Set query
    Set adoCmd = New ADODB.command
    With adoCmd
        .ActiveConnection = adoConn
        .CommandText = strItem
        .CommandType = adCmdStoredProc
    End With
    Set adoPrm = adoCmd.CreateParameter("@AttrNum", adInteger, adParamInput)
    adoCmd.Parameters.Append adoPrm
    Set adoPrm = adoCmd.CreateParameter("@LotNum", adVarChar, adParamInput, 11)
    adoCmd.Parameters.Append adoPrm
    adoCmd.Parameters("@AttrNum") = CInt(Split(strParamString, ",")(0))
    adoCmd.Parameters("@LotNum") = Split(strParamString, ",")(1)

'   Loop the incomming device list and ret template info
    Set adoRst = adoCmd.Execute

'   Disconnect the Recordset
    Set adoRst.ActiveConnection = Nothing

'   Return the Recordset
    Set tgtForData = adoRst

'   Clean up...
  adoConn.Close
'  adoRst.Close
  Set adoConn = Nothing
  Set adoRst = Nothing

    Exit Function
L___ExitEarly:

    Fab5IE_GetDataStoredProc = False

End Function

    Call Fab5IE_GetDataStoredProc("usp_GetLotAttributes", "102,1J5199", adoRst)

quote:

---

Originally posted by iwrk4dedpr

Well....

First off I'm trying to pass in 2 values cause that will be the greatest used method. With the two values I should have a recordset of 1 item but it keeps sending back -1 or and empty recordset.

However, I may at any given time want to leave 1 or both items NULL so that I get a complete listing.

But nothing is working? What do I need to check?

---