State Property Example (VB)

This example uses the State property to display a message while asynchronous connections are opening and asynchronous commands are executing.

'BeginStateVB

    'To integrate this code
    'replace the data source and initial catalog values
    'in the connection string

Public Sub StateX()

   Dim Cnxn1 As ADODB.Connection
   Dim Cnxn2 As ADODB.Connection
   Dim cmdChange As ADODB.Command
   Dim cmdRestore As ADODB.Command
   Dim strCnxn As String
   Dim strSQL As String
   
   ' Open two asynchronous connections, displaying
   ' a message while connecting
   Set Cnxn1 = New ADODB.Connection
   Set Cnxn2 = New ADODB.Connection
   strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
      
   Cnxn1.Open strCnxn, , , adAsyncConnect
   Do Until Cnxn1.State <> adStateConnecting
      Debug.Print "Opening first connection...."
   Loop
   
   Cnxn2.Open strCnxn, , , adAsyncConnect
   Do Until Cnxn2.State <> adStateConnecting
      Debug.Print "Opening second connection...."
   Loop
   
   ' Create two command objects
   Set cmdChange = New ADODB.Command
   cmdChange.ActiveConnection = Cnxn1
   strSQL = "UPDATE Titles SET type = 'self_help' WHERE type = 'psychology'"
   cmdChange.CommandText = strSQL
   
   Set cmdRestore = New ADODB.Command
   cmdRestore.ActiveConnection = Cnxn2
   strSQL = "UPDATE Titles SET type = 'psychology' WHERE type = 'self_help'"
   cmdRestore.CommandText = strSQL
   
   ' Executing the commands, displaying a message
   ' while they are executing
   cmdChange.Execute , , adAsyncExecute
   Do Until cmdChange.State <> adStateExecuting
      Debug.Print "Change command executing...."
   Loop
   
   cmdRestore.Execute , , adAsyncExecute
   Do Until cmdRestore.State <> adStateExecuting
      Debug.Print "Restore command executing...."
   Loop
   
   Cnxn1.Close
   Cnxn2.Close

End Sub
'EndStateVB

State Property Example (VB)

See Also