Visual Basic code Toggle source code

Imports RedGate.SQL.Shared
Imports RedGate.SQLCompare.Engine
Imports RedGate.SQLDataCompare.Engine
Imports RedGate.SQLDataCompare.Engine.ResultsStore
 
 
Module Test
Sub test()
Dim e As New SyncNow( "D:\TLHORT\Misc Files\SF- Sync.sdc")
e.Synchronize()
End Sub
End Module
 
Public Class SyncNow
Dim pathToProjectFile As String
 
Dim project As RedGate.SQLDataCompare.Engine.Project
Dim db1, db2 As Database
Dim mappings As SchemaMappings
Dim session As ComparisonSession
Dim livedb As LiveDatabaseSource
 
Dim provider As SqlProvider
Dim block As ExecutionBlock
 
Dim executor As BlockExecutor
Public Sub New( ByVal PhysicalPathToProjectFile As String)
Me.pathToProjectFile = PhysicalPathToProjectFile
 
 
End Sub
 
Public Sub Synchronize()
Try
Compare()
GetScript()
ExecuteScript()
Catch ex As Exception
Throw
Finally
session.Dispose()
block.Dispose()
End Try
End Sub
 
Private Sub Compare()
project = project.LoadFromDisk(pathToProjectFile)
 
Dim db1 As New Database
Dim db2 As New Database
 
livedb = DirectCast(project.DataSource1, LiveDatabaseSource)
db1.RegisterForDataCompare(livedb.ToConnectionProperties(), Options.Default)
 
 
livedb = DirectCast(project.DataSource2, LiveDatabaseSource)
db2.RegisterForDataCompare (livedb.ToConnectionProperties(), Options.Default)
 
 
mappings = New SchemaMappings
mappings.Options = project.Options
 
'The table mappings are NOT imported from the project file
mappings.CreateMappings(db1, db2)
project.ReplayUserActions(mappings)
session = New ComparisonSession
session.Options = project.Options
session.CompareDatabases(db1, db2, mappings)
End Sub
 
Private Sub GetScript()
provider = New SqlProvider
block = provider.GetMigrationSQL(session, True)
End Sub
 
Private Sub ExecuteScript()
executor = New BlockExecutor
executor.ExecuteBlock(block, livedb.ServerName, livedb.DatabaseName, livedb.IntegratedSecurity , livedb.UserName, livedb.Password)
 
End Sub
 
End Class