Commandes nommées
Le guide Création et exécution d’une commande simple montre un moyen d’exécuter une commande. Il existe une autre façon : vous pouvez en faire une commande nommée, puis appeler cette commande nommée directement sur l’objet Connection (affecté à la propriété ActiveConnection de l’objet Command). Nommer une commande signifie affecter un nom à la propriété Name d’un objet Command. Par exemple,
objCmd.Name = "GetCustomers"
objCmd.ActiveConnection = objConn
objConn.GetCustomers objRs
La commande nommée agit comme s’il s’agissait d’une « méthode personnalisée » sur l’objet Connection. Le résultat de la commande est retourné en tant que paramètre de sortie de cette « méthode personnalisée ».
L’exemple suivant illustre cette fonctionnalité.
'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