Chamar um procedimento armazenado como um método em um objeto Connection
Você pode chamar um procedimento armazenado como se fosse um método nativo no objeto Connection aberto associado. Isso é semelhante a chamar um comando nomeado no objeto Connection.
O exemplo de código do Visual Basic a seguir chama um procedimento armazenado no banco de dados de exemplo Northwind chamado CustOrdersOrders, que está listado aqui novamente para sua conveniência.
CREATE PROCEDURE CustOrdersOrders @CustomerID nchar(5) AS
SELECT OrderID, OrderDate, RequiredDate, ShippedDate
FROM Orders
WHERE CustomerID = @CustomerID
ORDER BY OrderID
O exemplo de código a seguir demonstra como chamar um procedimento armazenado como se fosse um método nativo em um objeto Connection aberto associado.
Const DS = "MySQLServer"
Const DB = "Northwind"
Const DP = "SQLOLEDB"
Dim objConn As New ADODB.Connection
Dim objRs As New ADODB.Recordset
Dim objComm As New ADODB.Command
ConnectionString = "Provider=" & DP & _
";Data Source=" & DS & _
";Initial Catalog=" & DB & _
";Integrated Security=SSPI;"
' Connect to the data source.
objConn.Open ConnectionString
' Set a stored procedure
Set objComm.ActiveConnection = objConn
' Execute the stored procedure on
' the active connection object...
' "ALFKI" is the required input parameter,
' objRs is the resultant output variable.
objComm(1) = "ALFKI"
Set objRs = objComm.Execute
' Display the result.
Debug.Print "Results returned from sp_CustOrdersOrders for ALFKI: "
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 objComm = Nothing