"Aubrey" <Aubrey@discussions.microsoft.com> wrote in message
news:2F4F23EF-3F58-44CD-8620-4BBA107F649F@microsoft.com...
> Ouch! At least now I do not feel 'so dumb'. Maybe PSS will be helpful now
> that we are so far. Nothing but dead ends in the past ...
>
> Aubrey
>
> "Hilary Cotter" wrote:
>
> > this is to create the job, not to start it. I've been puzzling for a
good
> > long while on trying to figure out how to start it.
> >
> > --
> > Hilary Cotter
> > Looking for a SQL Server replication book?
> > http://www.nwsu.com/0974973602.html
> >
> > Looking for a FAQ on Indexing Services/SQL FTS
> > http://www.indexserverfaq.com
> >
> > "Aubrey" <Aubrey@discussions.microsoft.com> wrote in message
> > news:9D3A8AF9-7A89-4BCA-B3A4-0D564D00C217@microsoft.com...
> > > I adapted Hilary's DMO Example, and have tried
ReplCtrl\VB\ReplSamp.vbp
> > ....
> > >
> > > WHAT CODE DO I NEED to .Initialize .Run .Terminate the SQLMerge?
> > >
> > >
> > > Subscription was created using Windows Synchronization Manager,
> > > Administrator Account on WinXPPro Laptop. VB is running in MS Access
XP
> > > Runtime .ade
> > >
> > > CODE looks good, but is still missing 'something'
> > >
> > > DMO Example -- last line is
> > > objMergePullSubscriptions.Add objMergPullSubscription
> > >
> > > Obviously FAILS because 'The subscription already exists.'
> > >
> > >
> > > AIRCODE; Run via VPN to namedserver
> > >
> > > Option Compare Database
> > > Option Explicit
> > >
> > > Private Sub cmdMergePublication_Click()
> > > 'On Error GoTo Err_cmdMergePublication_Click
> > >
> > > Const SQLDMOSubscription_Anonymous = 2
> > > Const SQLDMOReplSecurity_Normal = 0
> > > Const SQLDMOReplSecurity_Integrated = 1
> > > Const SQLDMOSubscription_All = 3
> > > Const SQLDMOMergeSubscriber_Default = 2
> > >
> > > Dim objServer, objReplication, objReplicationDatabases,
> > objReplicationDatabase
> > > Dim objMergePullSubscription, objMergePullSubscriptions,
> > > objReplicationSecurity
> > > Set objServer = CreateObject("SQLDMO.SQLServer")
> > > objServer.Connect ".", "sa", "nyrv%fa"
> > >
> > > Set objReplication = objServer.Replication
> > > Set objReplicationDatabases = objReplication.ReplicationDatabases
> > > Set objReplicationDatabase = objReplicationDatabases("CareSQL50207")
> > > Set objMergePullSubscription =
> > CreateObject("SQLDMO.MergePullSubscription2")
> > > Set objReplicationSecurity =
objMergePullSubscription.DistributorSecurity
> > >
> > > objReplicationSecurity.SecurityMode = SQLDMOReplSecurity_Normal
> > > objReplicationSecurity.StandardLogin = "sa"
> > > objReplicationSecurity.StandardPassword = "d23&tmv"
> > >
> > > With objMergePullSubscription
> > > .AltSnapshotFolder = "C:\temp\"
> > > .Distributor = "GSHSBS2000"
> > > .DistributorSecurity.SecurityMode = SQLDMOReplSecurity_Normal
> > > .DistributorSecurity.StandardLogin = "sa"
> > > .DistributorSecurity.StandardPassword = "nyrv%fa"
> > >
> > > .Publisher = "GSHSBS2000"
> > > .PublicationDB = "CareSQL50207"
> > > .Publication = "CareSQL50207"
> > > .PublisherSecurity.SecurityMode = SQLDMOReplSecurity_Normal
> > > .PublisherSecurity.StandardLogin = "sa"
> > > .PublisherSecurity.StandardPassword = "nyrv%fa"
> > >
> > > .SubscriberType = SQLDMOMergeSubscriber_Default
> > > .SubscriptionType = SQLDMOSubscription_Anonymous
> > > .SubscriberSecurityMode = SQLDMOReplSecurity_Normal
> > > .SubscriberLogin = "sa"
> > > .SubscriberPassword = "d23&tmv"
> > > .UseFTP = False
> > > End With
> > >
> > > Set objMergePullSubscriptions =
> > objReplicationDatabase.MergePullSubscriptions
> > >
> > > '$$$$$ STOPS here: [MS][ODBC][SQLServer] The subscription already
exists.
> > > objMergePullSubscriptions.Add objMergePullSubscription
> > >
> > > Set objMergePullSubscription = Nothing
> > > Set objMergePullSubscriptions = Nothing
> > > Set objReplicationDatabases = Nothing
> > > Set objReplication = Nothing
> > > Set objServer = Nothing
> > >
> > > Exit_cmdMergePublication_Click:
> > > Exit Sub
> > > Err_cmdMergePublication_Click:
> > > MsgBox Err.Description
> > > Resume Exit_cmdMergePublication_Click
> > > End Sub
> > >
> > > --
> > > TIA
> > > Aubrey Kelley
> >
> >
> >

"Hilary Cotter" wrote:

> this is to create the job, not to start it. I've been puzzling for a good
> long while on trying to figure out how to start it.
>
> --
> Hilary Cotter
> Looking for a SQL Server replication book?
> http://www.nwsu.com/0974973602.html
>
> Looking for a FAQ on Indexing Services/SQL FTS
> http://www.indexserverfaq.com
>
> "Aubrey" <Aubrey@discussions.microsoft.com> wrote in message
> news:9D3A8AF9-7A89-4BCA-B3A4-0D564D00C217@microsoft.com...
> > I adapted Hilary's DMO Example, and have tried ReplCtrl\VB\ReplSamp.vbp
> ....
> >
> > WHAT CODE DO I NEED to .Initialize .Run .Terminate the SQLMerge?
> >
> >
> > Subscription was created using Windows Synchronization Manager,
> > Administrator Account on WinXPPro Laptop. VB is running in MS Access XP
> > Runtime .ade
> >
> > CODE looks good, but is still missing 'something'
> >
> > DMO Example -- last line is
> > objMergePullSubscriptions.Add objMergPullSubscription
> >
> > Obviously FAILS because 'The subscription already exists.'
> >
> >
> > AIRCODE; Run via VPN to namedserver
> >
> > Option Compare Database
> > Option Explicit
> >
> > Private Sub cmdMergePublication_Click()
> > 'On Error GoTo Err_cmdMergePublication_Click
> >
> > Const SQLDMOSubscription_Anonymous = 2
> > Const SQLDMOReplSecurity_Normal = 0
> > Const SQLDMOReplSecurity_Integrated = 1
> > Const SQLDMOSubscription_All = 3
> > Const SQLDMOMergeSubscriber_Default = 2
> >
> > Dim objServer, objReplication, objReplicationDatabases,
> objReplicationDatabase
> > Dim objMergePullSubscription, objMergePullSubscriptions,
> > objReplicationSecurity
> > Set objServer = CreateObject("SQLDMO.SQLServer")
> > objServer.Connect ".", "sa", "nyrv%fa"
> >
> > Set objReplication = objServer.Replication
> > Set objReplicationDatabases = objReplication.ReplicationDatabases
> > Set objReplicationDatabase = objReplicationDatabases("CareSQL50207")
> > Set objMergePullSubscription =
> CreateObject("SQLDMO.MergePullSubscription2")
> > Set objReplicationSecurity = objMergePullSubscription.DistributorSecurity
> >
> > objReplicationSecurity.SecurityMode = SQLDMOReplSecurity_Normal
> > objReplicationSecurity.StandardLogin = "sa"
> > objReplicationSecurity.StandardPassword = "d23&tmv"
> >
> > With objMergePullSubscription
> > .AltSnapshotFolder = "C:\temp\"
> > .Distributor = "GSHSBS2000"
> > .DistributorSecurity.SecurityMode = SQLDMOReplSecurity_Normal
> > .DistributorSecurity.StandardLogin = "sa"
> > .DistributorSecurity.StandardPassword = "nyrv%fa"
> >
> > .Publisher = "GSHSBS2000"
> > .PublicationDB = "CareSQL50207"
> > .Publication = "CareSQL50207"
> > .PublisherSecurity.SecurityMode = SQLDMOReplSecurity_Normal
> > .PublisherSecurity.StandardLogin = "sa"
> > .PublisherSecurity.StandardPassword = "nyrv%fa"
> >
> > .SubscriberType = SQLDMOMergeSubscriber_Default
> > .SubscriptionType = SQLDMOSubscription_Anonymous
> > .SubscriberSecurityMode = SQLDMOReplSecurity_Normal
> > .SubscriberLogin = "sa"
> > .SubscriberPassword = "d23&tmv"
> > .UseFTP = False
> > End With
> >
> > Set objMergePullSubscriptions =
> objReplicationDatabase.MergePullSubscriptions
> >
> > '$$$$$ STOPS here: [MS][ODBC][SQLServer] The subscription already exists.
> > objMergePullSubscriptions.Add objMergePullSubscription
> >
> > Set objMergePullSubscription = Nothing
> > Set objMergePullSubscriptions = Nothing
> > Set objReplicationDatabases = Nothing
> > Set objReplication = Nothing
> > Set objServer = Nothing
> >
> > Exit_cmdMergePublication_Click:
> > Exit Sub
> > Err_cmdMergePublication_Click:
> > MsgBox Err.Description
> > Resume Exit_cmdMergePublication_Click
> > End Sub
> >
> > --
> > TIA
> > Aubrey Kelley
>
>