Resync Method Example (VB)

This example demonstrates using the Resync method to refresh data in a static recordset.

'BeginResyncVB
Public Sub ResyncX()

   Dim strCnn As String
   Dim rstTitles As ADODB.Recordset

   ' Open connections.
      strCnn = "Provider=sqloledb;" & _
      "Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "

   ' Open recordset for Titles table.
   Set rstTitles = New ADODB.Recordset
   rstTitles.CursorLocation = adUseClient
   rstTitles.CursorType = adOpenDynamic
   rstTitles.LockType = adLockBatchOptimistic
   rstTitles.Open "Titles", strCnn, , , adCmdTable

   ' Change the type of the first title in the recordset.
   rstTitles!Type = "database"

   ' Display the results of the change.
   MsgBox "Before resync: " & vbCr & vbCr & _
      "Title - " & rstTitles!title & vbCr & _
      "Type - " & rstTitles!Type

   ' Resync with database and redisplay results.
   rstTitles.Resync
   MsgBox "After resync: " & vbCr & vbCr & _
      "Title - " & rstTitles!title & vbCr & _
      "Type - " & rstTitles!Type

   rstTitles.CancelBatch
   rstTitles.Close

End Sub
'EndResyncVB

Resync Method Example (VB)

See Also