Resync 方法范例

该范例说明如何使用 Resync 方法刷新静态记录集中的数据。

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"   ' 显示更改结果。
   MsgBox "Before resync: " & vbCr & vbCr & _
      "Title - " & rstTitles!Title & vbCr & _
      "Type - " & rstTitles!Type   ' 再次与数据库同步并重新显示结果。
   rstTitles.Resync
   MsgBox "After resync: " & vbCr & vbCr & _
      "Title - " & rstTitles!Title & vbCr & _
      "Type - " & rstTitles!Type   rstTitles.CancelBatch
   rstTitles.CloseEnd Sub