Llamar a un procedimiento almacenado con un comando

Puede usar un comando para llamar a un procedimiento almacenado. El ejemplo de código al final de este tema hace referencia a un procedimiento almacenado en la base de datos de ejemplo Northwind, denominada CustOrdersOrdersOrders, que se define de la siguiente manera.

CREATE PROCEDURE CustOrdersOrders @CustomerID nchar(5) AS  
SELECT OrderID, OrderDate, RequiredDate, ShippedDate  
FROM Orders  
WHERE CustomerID = @CustomerID  
ORDER BY OrderID  

Consulte la documentación de SQL Server para obtener más información sobre cómo definir y llamar a procedimientos almacenados.

Este procedimiento almacenado es similar al comando usado en parámetros del objeto comando. Toma un parámetro de identificador de cliente y devuelve información sobre los pedidos de ese cliente. En el siguiente ejemplo de código, se utiliza este procedimiento almacenado como fuente para un Recordset de ADO .

El uso del procedimiento almacenado le permite acceder a otra funcionalidad de ADO: la colección Parameters del método Refresh. Con este método, ADO puede rellenar automáticamente toda la información sobre los parámetros requeridos por el comando en tiempo de ejecución. Hay una penalización de rendimiento en el uso de esta técnica, ya que ADO debe consultar el origen de datos para obtener información sobre los parámetros.

Existen otras diferencias importantes entre el ejemplo de código siguiente y el código de Parámetros de objeto de comando, donde se especificaron manualmente los parámetros. En primer lugar, este código no establece la propiedad Prepared en True porque es un procedimiento almacenado de SQL Server y está precompilado por definición. En segundo lugar, la propiedad CommandType del objeto Command cambió a adCmdStoredProc en el segundo ejemplo para informar a ADO de que el comando era un procedimiento almacenado.

Por último, en el segundo ejemplo, el índice debe hacer referencia al parámetro al establecer el valor, ya que es posible que no conozca el nombre del parámetro en tiempo de diseño. Si conoce el nombre del parámetro, puede establecer la nueva propiedad NamedParameters del objeto Command en True y hacer referencia al nombre de la propiedad. Es posible que se pregunte por qué la posición del primer parámetro mencionado en el procedimiento almacenado (@CustomerID) es 1 en lugar de 0 (objCmd(1) = "ALFKI"). Esto se debe a que el parámetro 0 contiene un valor devuelto del procedimiento almacenado de SQL Server.

'BeginAutoParamCmd  
    On Error GoTo ErrHandler:  
  
    Dim objConn As New ADODB.Connection  
    Dim objCmd As New ADODB.Command  
    Dim objParm1 As New ADODB.Parameter  
    Dim objRs As New ADODB.Recordset  
  
    ' Set CommandText equal to the stored procedure name.  
    objCmd.CommandText = "CustOrdersOrders"  
    objCmd.CommandType = adCmdStoredProc  
  
    ' Connect to the data source.  
    Set objConn = GetNewConnection  
    objCmd.ActiveConnection = objConn  
  
    ' Automatically fill in parameter info from stored procedure.  
    objCmd.Parameters.Refresh  
  
    ' Set the param value.  
    objCmd(1) = "ALFKI"  
  
    ' Execute once and display...  
    Set objRs = objCmd.Execute  
  
    Debug.Print objParm1.Value  
    Do While Not objRs.EOF  
        Debug.Print vbTab & objRs(0) & vbTab & objRs(1) & vbTab & _  
                    objRs(2) & vbTab & objRs(3)  
        objRs.MoveNext  
    Loop  
  
    ' ...then set new param value, re-execute command, and display.  
    objCmd(1) = "CACTU"  
    Set objRs = objCmd.Execute  
  
    Debug.Print objParm1.Value  
    Do While Not objRs.EOF  
        Debug.Print vbTab & objRs(0) & vbTab & objRs(1) & vbTab & _  
                    objRs(2) & vbTab & objRs(3)  
        objRs.MoveNext  
    Loop  
  
    'clean up  
    objRs.Close  
    objConn.Close  
    Set objRs = Nothing  
    Set objConn = Nothing  
    Set objCmd = Nothing  
    Set objParm1 = Nothing  
    Exit Sub  
  
ErrHandler:  
    'clean up  
    If objRs.State = adStateOpen Then  
        objRs.Close  
    End If  
  
    If objConn.State = adStateOpen Then  
        objConn.Close  
    End If  
  
    Set objRs = Nothing  
    Set objConn = Nothing  
    Set objCmd = Nothing  
    Set objParm1 = Nothing  
  
    If Err <> 0 Then  
        MsgBox Err.Source & "-->" & Err.Description, , "Error"  
    End If  
'EndAutoParamCmd  
  
'BeginNewConnection  
Private Function GetNewConnection() As ADODB.Connection  
    Dim oCn As New ADODB.Connection  
    Dim sCnStr As String  
  
    sCnStr = "Provider='SQLOLEDB';Data Source='MySqlServer';" & _  
             "Integrated Security='SSPI';Initial Catalog='Northwind';"  
    oCn.Open sCnStr  
  
    If oCn.State = adStateOpen Then  
        Set GetNewConnection = oCn  
    End If  
  
End Function  
'EndNewConnection  

Consulte también

Artículo de Base de conocimientos 117500