Benannte Befehle
Im Abschnitt Erstellen und Ausführen eines einfachen Befehls wird eine Möglichkeit zum Ausführen eines Befehls gezeigt. Es gibt noch eine andere Möglichkeit: Sie können den Befehl zu einem benannten Befehl machen und dann direkt für das Connection-Objekt aufrufen (der ActiveConnection-Eigenschaft des Command-Objekts zugewiesen). Das Benennen eines Befehls bedeutet, der Name-Eigenschaft eines Command-Objekts einen Namen zuzuweisen. Beispiel:
objCmd.Name = "GetCustomers"
objCmd.ActiveConnection = objConn
objConn.GetCustomers objRs
Der benannte Befehl fungiert als „benutzerdefinierte Methode“ für das Connection-Objekt. Das Ergebnis des Befehls wird als Out-Parameter dieser „benutzerdefinierten Methode“ zurückgegeben.
Diese Funktion wird anhand des folgenden Beispiels veranschaulicht.
'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