Connection.Cancel-Methode (DAO)

Gilt für: Access 2013, Office 2013

Syntax

Ausdruck . Abbrechen

Ausdruck Eine Variable, die ein Connection -Objekt darstellt.

Bemerkungen

Verwenden Sie die Cancel-Methode , um die Ausführung eines asynchronen Execute - oder OpenConnection-Methodenaufrufs zu beenden (d. a. die Methode wurde mit der Option dbRunAsync aufgerufen). Cancel gibt einen Laufzeitfehler zurück, wenn dbRunAsync in der Methode, die Sie beenden möchten, nicht verwendet wurde.

Wenn Sie nach einem Cancel-Methodenaufruf versuchen, auf das Objekt zu verweisen, das durch einen asynchronen OpenConnection-Aufruf erstellt worden wäre (also das Connection-Objekt, über das Sie die Cancel-Methode aufgerufen haben), tritt ein Fehler auf.

Beispiel

In diesem Beispiel werden die StillExecuting-Eigenschaft und die Cancel-Methode verwendet, um ein Connection-Objekt asynchron zu öffnen.

    Sub CancelConnectionX() 
     
     Dim wrkMain As Workspace 
     Dim conMain As Connection 
     Dim sngTime As Single 
     
     Set wrkMain = CreateWorkspace("ODBCWorkspace", _ 
     "admin", "", dbUseODBC) 
     ' Open the connection asynchronously. 
     
     ' Note: The DSN referenced below must be configured to 
     ' use Microsoft Windows NT Authentication Mode to 
     ' authorize user access to the Microsoft SQL Server. 
     Set conMain = wrkMain.OpenConnection("Publishers", _ 
     dbDriverNoPrompt + dbRunAsync, False, _ 
     "ODBC;DATABASE=pubs;DSN=Publishers") 
     
     sngTime = Timer 
     
     ' Wait five seconds. 
     Do While Timer - sngTime < 5 
     Loop 
     
     ' If the connection has not been made, ask the user 
     ' if she wants to keep waiting. If she does not, cancel 
     ' the connection and exit the procedure. 
     Do While conMain.StillExecuting 
     
     If MsgBox("No connection yet--keep waiting?", _ 
     vbYesNo) = vbNo Then 
     conMain.Cancel 
     MsgBox "Connection cancelled!" 
     wrkMain.Close 
     Exit Sub 
     End If 
     
     Loop 
     
     With conMain 
     ' Use the Connection object conMain. 
     .Close 
     End With 
     
     wrkMain.Close 
     
    End Sub