2 Datenbanken synchronisieren - scope_info Fehler

  • VB.NET
  • .NET (FX) 4.5–4.8

    2 Datenbanken synchronisieren - scope_info Fehler

    Guten Tag,

    nun habe ich es endlich nach langer Suche geschafft einen Code zu schreiben, der angeblich meine beiden Datenbanken synchronisieren soll (local und remote) und dann taucht schon gleich der erste Fehler auf.

    Hier der Code (ich entschuldige mich für die Unordentlichkeiten):

    VB.NET-Quellcode

    1. Public Sub ProvisionServer()
    3. Dim serverConn As New SqlConnection("Data Source=(localdb)\MSSQLLocalDB;Initial Catalog=C:\USERS\CHRIS_000\DOCUMENTS\BURSCH_LOKAL.MDF;Integrated Security=True;Connect Timeout=30;Encrypt=False;TrustServerCertificate=True;ApplicationIntent=ReadWrite;MultiSubnetFailover=False")
    5. Dim scope As New DbSyncScope("MySyncScope")
    7. Dim scopeDesc As New DbSyncScopeDescription("MySyncScope")
    9. Dim cusTableDesc As DbSyncTableDescription
    11. cusTableDesc = SqlSyncDescriptionBuilder.GetDescriptionForTable("tb_customer", serverConn)
    13. scopeDesc.Tables.Add(cusTableDesc)
    15. Dim serverProvision As New SqlSyncScopeProvisioning(scopeDesc)
    17. serverProvision.SetCreateTableDefault(DbSyncCreationOption.Skip)
    19. serverProvision.Apply(serverConn)
    21. End Sub
    23. Public Sub ProvisionClient()
    25. Dim clientConn As New SqlConnection("Data Source=(localdb)\MSSQLLocalDB;Initial Catalog=C:\USERS\CHRIS_000\DOCUMENTS\BURSCH.MDF;Integrated Security=True;Connect Timeout=30;Encrypt=False;TrustServerCertificate=True;ApplicationIntent=ReadWrite;MultiSubnetFailover=False")
    27. Dim serverConn As New SqlConnection("Data Source=(localdb)\MSSQLLocalDB;Initial Catalog=C:\USERS\CHRIS_000\DOCUMENTS\BURSCH_LOKAL.MDF;Integrated Security=True;Connect Timeout=30;Encrypt=False;TrustServerCertificate=True;ApplicationIntent=ReadWrite;MultiSubnetFailover=False")
    29. Dim scope As New DbSyncScope("bursch")
    31. Dim scopeDesc As New DbSyncScopeDescription("bursch")
    33. scopeDesc = SqlSyncDescriptionBuilder.GetDescriptionForScope("bursch", serverConn)
    35. Dim clientProvision As New SqlSyncScopeProvisioning(scopeDesc)
    37. clientProvision.Apply(serverConn)
    39. End Sub
    41. Private Sub btn_sync(sender As Object, e As EventArgs) Handles btn_synch.Click
    43. Dim clientConn As New SqlConnection("Data Source=(localdb)\MSSQLLocalDB;Initial Catalog=C:\USERS\CHRIS_000\DOCUMENTS\BURSCH.MDF;Integrated Security=True;Connect Timeout=30;Encrypt=False;TrustServerCertificate=True;ApplicationIntent=ReadWrite;MultiSubnetFailover=False")
    45. Dim serverConn As New SqlConnection("Data Source=(localdb)\MSSQLLocalDB;Initial Catalog=C:\USERS\CHRIS_000\DOCUMENTS\BURSCH_LOKAL.MDF;Integrated Security=True;Connect Timeout=30;Encrypt=False;TrustServerCertificate=True;ApplicationIntent=ReadWrite;MultiSubnetFailover=False")
    47. ProvisionServer()
    48. ProvisionClient()
    50. Dim syncOrchestrator As New SyncOrchestrator
    52. syncOrchestrator.LocalProvider = New SqlSyncProvider("bursch", clientConn)
    54. syncOrchestrator.RemoteProvider = New SqlSyncProvider("bursch", serverConn)
    56. syncOrchestrator.Direction = SyncDirectionOrder.UploadAndDownload
    58. Dim syncStats As SyncOperationStatistics
    60. syncStats = syncOrchestrator.Synchronize
    62. MsgBox(syncStats.UploadChangesTotal)
    63. End Sub


    Und hier dann die Fehlermeldung, sobald ich auf den Button btn_sync klicke:

    Microsoft.Synchronization.Data.DbSyncException: "In der Tabelle '[scope_info]' wurde kein gültiger Bereich mit dem Namen 'bursch' gefunden. Stellen Sie sicher, dass dieser Bereich und in der Konfigurationstabelle '[scope_config]' eine entsprechende gültige Konfiguration vorhanden ist."

    Aber im Code wurde 'bursch' ja erstellt und auch eingetragen, also ist mir keine Lösung eingefallen.
    Ich hoffe jemand kann mir weiterhelfen, da es wirklich dringend ist, dieses Programm fertigzustellen

    Gruß Chris

Facebook
Telefonspende