Comandi denominati
Creazione ed esecuzione di un comando semplice mostra un modo per eseguire un comando. Esiste un altro modo: è possibile impostarlo come comando denominato e quindi chiamare questo comando denominato direttamente nell'oggetto Connection (assegnato alla proprietà activeConnection dell'oggetto Command). Denominare un comando significa assegnare un nome alla proprietà Name di un oggetto Command. Per esempio
objCmd.Name = "GetCustomers"
objCmd.ActiveConnection = objConn
objConn.GetCustomers objRs
Il comando denominato funge da metodo personalizzato sull'oggetto Connection. Il risultato del comando viene restituito come parametro out di questo "metodo personalizzato".
Nell'esempio seguente viene illustrata questa funzionalità.
'BeginNamedCmd
On Error GoTo ErrHandler:
Dim objConn As New ADODB.Connection
Dim objCmd As New ADODB.Command
Dim objRs As New ADODB.Recordset
' Connect to the data source.
Set objConn = GetNewConnection
objCmd.CommandText = "SELECT CustomerID, CompanyName FROM Customers"
objCmd.CommandType = adCmdText
'Name the command.
objCmd.Name = "GetCustomers"
objCmd.ActiveConnection = objConn
' Execute using Command.Name from the Connection.
objConn.GetCustomers objRs
' Display.
Do While Not objRs.EOF
Debug.Print objRs(0) & vbTab & objRs(1)
objRs.MoveNext
Loop
'clean up
objRs.Close
objConn.Close
Set objRs = Nothing
Set objConn = Nothing
Set objCmd = 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
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
'EndNamedCmd