Database Synchronization with the Microsoft Sync Framework: Listing 1.
Calling the custom synchronization library from Visual Basic.
Public Sub Sample_SQLStandard_SQLExpress_Sync()
Dim dbSS8_SX8_TT_SyncInfo As New DatabaseSyncInfo
Dim dbSS8_SX8_TT_Helper As SynchronizationHelper
dbSS8_SX8_TT_SyncInfo.LocalConnectionString =
My.Settings.SQLServerTrackingTablesConnectionString
dbSS8_SX8_TT_SyncInfo.LocalDriverType = eSyncDriverType.SQLServer
dbSS8_SX8_TT_SyncInfo.RemoteConnectionString =
My.Settings.SQLExpressTrackingTablesConnectionString
dbSS8_SX8_TT_SyncInfo.RemoteDriverType = eSyncDriverType.SQLServer
dbSS8_SX8_TT_SyncInfo.ScopeName = My.Settings.ScopeName
dbSS8_SX8_TT_SyncInfo.FillSyncTables(My.Settings.SyncTables)
dbSS8_SX8_TT_Helper = New SynchronizationHelper(dbSS8_SX8_TT_SyncInfo)
Dim SyncStats As Microsoft.Synchronization.SyncOperationStatistics =
dbSS8_SX8_TT_Helper.DoSync(Nothing)
'Display SyncStats to user if desired
'The DoSync() parameter is an optional ListBox to show in-progress
status information if desired
End Sub
About the Author
Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].