저장된 프로 시저 클래식 ASP에서 값과 결과 집합을 반환

Question

반환 코드와 결과 집합을 모두 원래 ASP의 저장 프로 시저에서 다시 가져 오려고합니다.

CREATE PROCEDURE CheckEmployeeId 
@EmployeeName nvarchar(255) 
AS 
BEGIN 
    SET NOCOUNT ON; 
DECLARE 
     @Exists  INT 
    , @RowCount  Int = 0 
    , @ReturnValue Int = 1 


SELECT EmployeeId FROM Employees WHERE Name = @EmployeeName 
set @RowCount = @@ROWCOUNT 

if (@RowCount <> 1) 
BEGIN 
    SET @ReturnValue = 2 
END 
ELSE 
BEGIN 
    SET @ReturnValue = 1 
END 

RETURN @ReturnValue 
END 

그래서 ASP에서 나는 반환 값

Set cmd = CreateObject("ADODB.Command") 
with cmd 
    .ActiveConnection = cnnstr 
    .CommandType = adCmdStoredProc 
    .CommandText = "CheckEmployeeId" 
    .Parameters.Refresh 
    .Parameters("@EmployeeName") = EmployeeName 
end with 
cmd.Execute() 
RetVal = cmd.Parameters("@RETURN_VALUE") 

을 얻기 위해 다음 또는이 결과가 설정 얻을 할 수 있습니다.

Set cmd = CreateObject("ADODB.Command") 
with cmd 
    .ActiveConnection = cnnstr 
    .CommandType = adCmdStoredProc 
    .CommandText = "CheckEmployeeId" 
    .Parameters.Refresh 
    .Parameters("@EmployeeName") = EmployeeName 
    Set rst = .Execute() 
end with 

두 가지 방법이 있습니까?

Answer 1

이미 두 개를 결합하면됩니다.

Set cmd = CreateObject("ADODB.Command") 
with cmd 
    .ActiveConnection = cnnstr 
    .CommandType = adCmdStoredProc 
    .CommandText = "CheckEmployeeId" 
    .Parameters.Refresh 
    .Parameters("@EmployeeName") = EmployeeName 
    Set rst = .Execute() 
end with 
'You will need to close the Recordset before returning the RETURN_VALUE. 
RetVal = cmd.Parameters("@RETURN_VALUE") 

서로를 독립적으로 선택할 필요가 없습니다. 유일한 문제는 반환하는 순서이므로 OUTPUT 및 RETURN 값은 반환 된 모든 레코드 집합이 닫힐 때까지 액세스 할 수 없습니다.

저는 개인적으로 2 차원 배열로 저장하여 곧바로 닫는 것이 좋습니다.

Set cmd = CreateObject("ADODB.Command") 
with cmd 
    .ActiveConnection = cnnstr 
    .CommandType = adCmdStoredProc 
    .CommandText = "CheckEmployeeId" 
    .Parameters.Refresh 
    .Parameters("@EmployeeName") = EmployeeName 
    Set rst = .Execute() 
    If Not rst.EOF Then data = rst.GetRows() 
    Call rst.Close() 
end with 
RetVal = cmd.Parameters("@RETURN_VALUE") 

'Access Recordset array 
If IsArray(data) Then 
    'Return first column, first row. 
    Response.Write data(0, 0) 
End If