Resync 方法范例

Resync 方法范例

該范例說明如何使用 Resync 方法刷新靜態(tài)記錄集中的數(shù)據(jù)。

Public Sub ResyncX()

   Dim strCnn As String

   Dim rstTitles As ADODB.Recordset

   ' 打開連接。

      strCnn = "Provider=sqloledb;" & _

      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

   ' 打開標題表的記錄集。

   Set rstTitles = New ADODB.Recordset

   rstTitles.CursorType = adOpenStatic

   rstTitles.LockType = adLockBatchOptimistic

   rstTitles.Open "titles", strCnn, , , adCmdTable

   ' 更改記錄集中第一個標題的類型。

   rstTitles!Type = "database"

   ' 顯示更改結(jié)果。

   MsgBox "Before resync: " & vbCr & vbCr & _

      "Title - " & rstTitles!Title & vbCr & _

      "Type - " & rstTitles!Type

   ' 再次與數(shù)據(jù)庫同步并重新顯示結(jié)果。

   rstTitles.Resync

   MsgBox "After resync: " & vbCr & vbCr & _

      "Title - " & rstTitles!Title & vbCr & _

      "Type - " & rstTitles!Type

   rstTitles.CancelBatch

   rstTitles.Close

End Sub