Resync Method Example (ADO)


		Contents Index Topic Contents

Resync Method Example

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

Public Sub ResyncX()

	Dim strCnn As String
	Dim rstTitles As ADODB.Recordset

	' Open connections.
	strCnn = "driver={SQL Server};server=srv;" & _
		"uid=sa;pwd=;database=pubs"

	' Open recordset for titles table.
	Set rstTitles = New ADODB.Recordset
	rstTitles.CursorType = adOpenStatic
	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