Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Erstellen und Ausführen eines einfachen Befehls zeigt eine Möglichkeit zum Ausführen eines Befehls. Es gibt eine andere Möglichkeit: Sie können ihn zu einem benannten Befehl machen und dann diesen benannten Befehl direkt für das Connection-Objekt aufrufen (zugewiesen der ActiveConnection-Eigenschaft des Command-Objekts). Das Benennen eines Befehls bedeutet, der eigenschaft Name eines Command-Objekts einen Namen zuzuweisen. Zum 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.
Das folgende Beispiel veranschaulicht dieses Feature.
'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