DMo Example of merge replication

I purchased the SQL DMO book that Mark Allison participated in writing. I
read the chapter on merge replication , however, the chapter only discusses
the setup / config of merge replication. I am interested in the code where a
user would click a button and start a pull subscription. Does anyone have
any examples to share or guidance?
Paul - the first link doesn't work and the second one is a link to info about
the ActiveX object.
I am looking for info specifically on SQL DMO and merge replication.
Any other ideas?
"MSSQLServerDeveloper" wrote:

> I purchased the SQL DMO book that Mark Allison participated in writing. I
> read the chapter on merge replication , however, the chapter only discusses
> the setup / config of merge replication. I am interested in the code where a
> user would click a button and start a pull subscription. Does anyone have
> any examples to share or guidance?
>
|||The first link works - it's just that the text has wrapped in the message. I
don't know of a specifically SQLDMO script which initializes or synchronizes
replication, but the ActiveX object is designed for specifically this use.
Rgds,
Paul Ibison SQL Server MVP, www.replicationanswers.com
(recommended sql server 2000 replication book:
http://www.nwsu.com/0974973602p.html)
|||try something like this
Option explicit
Const SQLDMOSubscription_Anonymous = 2
Const SQLDMOReplSecurity_Normal = 0
Const SQLDMOReplSecurity_Integrated = 1
Const SQLDMOSubscription_All = 3
Const SQLDMOMergeSubscriber_Default = 2
dim objServer,objReplication,objReplicationDatabases,o bjReplicationDatabase,
objMergePullSubscription,objMergePullSubscriptions , objReplicationSecurity
set objServer = CreateObject("SQLDMO.SQLServer")
objServer.Connect
"SubscriberServerName","sa","PaulIbisonIsADoofusAn dHeDancesLikeAGurl"
set objReplication=objServer.Replication
set objReplicationDatabases=objReplication.Replication Databases
set objReplicationDatabase=objReplicationDatabases("su b")
set objMergePullSubscription=CreateObject("SQLDMO.Merg ePullSubscription2")
set objReplicationSecurity=objMergePullSubscription.Di stributorSecurity
objReplicationSecurity.SecurityMode=SQLDMOReplSecu rity_Normal
objReplicationSecurity.StandardLogin="sa"
objReplicationSecurity.StandardPassword="PaulIbiso nIsADoofusAndHeDancesLikeA
Gurl"
with objMergePullSubscription
.AltSnapshotFolder="C:\temp\"
.Distributor="PublisherServerName"
.DistributorSecurity.SecurityMode=SQLDMOReplSecuri ty_Normal
.DistributorSecurity.StandardLogin="sa"
..DistributorSecurity.StandardPassword="PaulIbison IsADoofusAndHeDancesLikeAGu
rl"
.Publisher= "PublisherServerName"
.PublicationDB="pubs"
.Publication="test"
.PublisherSecurity.SecurityMode=SQLDMOReplSecurity _Normal
.PublisherSecurity.StandardLogin="sa"
.PublisherSecurity.StandardPassword="se1cure#"
.SubscriberType =SQLDMOMergeSubscriber_Default
.SubscriptionType = SQLDMOSubscription_Anonymous
.SubscriberSecurityMode=SQLDMOReplSecurity_Normal
.SubscriberLogin="sa"
.SubscriberPassword="PaulIbisonIsADoofusAndHeDance sLikeAGurl"
.UseFTP=False
end with
set objMergePullSubscriptions=objReplicationDatabase.M ergePullSubscriptions
objMergePullSubscriptions.Add objMergePullSubscription
set objMergePullSubscription=Nothing
set objMergePullSubscriptions=Nothing
set objReplicationDatabases=Nothing
set objReplication=Nothing
set objServer=Nothing
Hilary Cotter
Looking for a SQL Server replication book?
http://www.nwsu.com/0974973602.html
"MSSQLServerDeveloper" <MSSQLServerDeveloper@.discussions.microsoft.com>
wrote in message news:AAE00CF7-C4FD-48D2-A815-FF60B824D249@.microsoft.com...
> I purchased the SQL DMO book that Mark Allison participated in writing. I
> read the chapter on merge replication , however, the chapter only
discusses
> the setup / config of merge replication. I am interested in the code
where a
> user would click a button and start a pull subscription. Does anyone have
> any examples to share or guidance?
>
|||Hilary - Thanks very much - I'll give it a try. Not til next week, but I
will keep you posted. Regards
"Hilary Cotter" wrote:

> try something like this
> Option explicit
> Const SQLDMOSubscription_Anonymous = 2
> Const SQLDMOReplSecurity_Normal = 0
> Const SQLDMOReplSecurity_Integrated = 1
> Const SQLDMOSubscription_All = 3
> Const SQLDMOMergeSubscriber_Default = 2
> dim objServer,objReplication,objReplicationDatabases,o bjReplicationDatabase,
> objMergePullSubscription,objMergePullSubscriptions , objReplicationSecurity
> set objServer = CreateObject("SQLDMO.SQLServer")
> objServer.Connect
> "SubscriberServerName","sa","PaulIbisonIsADoofusAn dHeDancesLikeAGurl"
> set objReplication=objServer.Replication
> set objReplicationDatabases=objReplication.Replication Databases
> set objReplicationDatabase=objReplicationDatabases("su b")
> set objMergePullSubscription=CreateObject("SQLDMO.Merg ePullSubscription2")
> set objReplicationSecurity=objMergePullSubscription.Di stributorSecurity
> objReplicationSecurity.SecurityMode=SQLDMOReplSecu rity_Normal
> objReplicationSecurity.StandardLogin="sa"
> objReplicationSecurity.StandardPassword="PaulIbiso nIsADoofusAndHeDancesLikeA
> Gurl"
> with objMergePullSubscription
> .AltSnapshotFolder="C:\temp\"
> .Distributor="PublisherServerName"
> .DistributorSecurity.SecurityMode=SQLDMOReplSecuri ty_Normal
> .DistributorSecurity.StandardLogin="sa"
> ..DistributorSecurity.StandardPassword="PaulIbison IsADoofusAndHeDancesLikeAGu
> rl"
> .Publisher= "PublisherServerName"
> .PublicationDB="pubs"
> .Publication="test"
> .PublisherSecurity.SecurityMode=SQLDMOReplSecurity _Normal
> .PublisherSecurity.StandardLogin="sa"
> .PublisherSecurity.StandardPassword="se1cure#"
> .SubscriberType =SQLDMOMergeSubscriber_Default
> .SubscriptionType = SQLDMOSubscription_Anonymous
> .SubscriberSecurityMode=SQLDMOReplSecurity_Normal
> .SubscriberLogin="sa"
> .SubscriberPassword="PaulIbisonIsADoofusAndHeDance sLikeAGurl"
> .UseFTP=False
> end with
> set objMergePullSubscriptions=objReplicationDatabase.M ergePullSubscriptions
> objMergePullSubscriptions.Add objMergePullSubscription
> set objMergePullSubscription=Nothing
> set objMergePullSubscriptions=Nothing
> set objReplicationDatabases=Nothing
> set objReplication=Nothing
> set objServer=Nothing
>
> --
> Hilary Cotter
> Looking for a SQL Server replication book?
> http://www.nwsu.com/0974973602.html
> "MSSQLServerDeveloper" <MSSQLServerDeveloper@.discussions.microsoft.com>
> wrote in message news:AAE00CF7-C4FD-48D2-A815-FF60B824D249@.microsoft.com...
> discusses
> where a
>
>
|||btw - I like the password.
"Hilary Cotter" wrote:

> try something like this
> Option explicit
> Const SQLDMOSubscription_Anonymous = 2
> Const SQLDMOReplSecurity_Normal = 0
> Const SQLDMOReplSecurity_Integrated = 1
> Const SQLDMOSubscription_All = 3
> Const SQLDMOMergeSubscriber_Default = 2
> dim objServer,objReplication,objReplicationDatabases,o bjReplicationDatabase,
> objMergePullSubscription,objMergePullSubscriptions , objReplicationSecurity
> set objServer = CreateObject("SQLDMO.SQLServer")
> objServer.Connect
> "SubscriberServerName","sa","PaulIbisonIsADoofusAn dHeDancesLikeAGurl"
> set objReplication=objServer.Replication
> set objReplicationDatabases=objReplication.Replication Databases
> set objReplicationDatabase=objReplicationDatabases("su b")
> set objMergePullSubscription=CreateObject("SQLDMO.Merg ePullSubscription2")
> set objReplicationSecurity=objMergePullSubscription.Di stributorSecurity
> objReplicationSecurity.SecurityMode=SQLDMOReplSecu rity_Normal
> objReplicationSecurity.StandardLogin="sa"
> objReplicationSecurity.StandardPassword="PaulIbiso nIsADoofusAndHeDancesLikeA
> Gurl"
> with objMergePullSubscription
> .AltSnapshotFolder="C:\temp\"
> .Distributor="PublisherServerName"
> .DistributorSecurity.SecurityMode=SQLDMOReplSecuri ty_Normal
> .DistributorSecurity.StandardLogin="sa"
> ..DistributorSecurity.StandardPassword="PaulIbison IsADoofusAndHeDancesLikeAGu
> rl"
> .Publisher= "PublisherServerName"
> .PublicationDB="pubs"
> .Publication="test"
> .PublisherSecurity.SecurityMode=SQLDMOReplSecurity _Normal
> .PublisherSecurity.StandardLogin="sa"
> .PublisherSecurity.StandardPassword="se1cure#"
> .SubscriberType =SQLDMOMergeSubscriber_Default
> .SubscriptionType = SQLDMOSubscription_Anonymous
> .SubscriberSecurityMode=SQLDMOReplSecurity_Normal
> .SubscriberLogin="sa"
> .SubscriberPassword="PaulIbisonIsADoofusAndHeDance sLikeAGurl"
> .UseFTP=False
> end with
> set objMergePullSubscriptions=objReplicationDatabase.M ergePullSubscriptions
> objMergePullSubscriptions.Add objMergePullSubscription
> set objMergePullSubscription=Nothing
> set objMergePullSubscriptions=Nothing
> set objReplicationDatabases=Nothing
> set objReplication=Nothing
> set objServer=Nothing
>
> --
> Hilary Cotter
> Looking for a SQL Server replication book?
> http://www.nwsu.com/0974973602.html
> "MSSQLServerDeveloper" <MSSQLServerDeveloper@.discussions.microsoft.com>
> wrote in message news:AAE00CF7-C4FD-48D2-A815-FF60B824D249@.microsoft.com...
> discusses
> where a
>
>
|||Hilary,
what makes me think you're getting that Friday feeling?
Paul
|||was it the virus I emailed you? The postings I have being doing in your name
in alt.bedwetting? The huge amount of spam I have been sending out in your
name?
Please help me figure this one out?
Hilary Cotter
Looking for a SQL Server replication book?
http://www.nwsu.com/0974973602.html
"Paul Ibison" <Paul.Ibison@.Pygmalion.Com> wrote in message
news:071101c4ffe3$937a9580$a501280a@.phx.gbl...
> Hilary,
> what makes me think you're getting that Friday feeling?
> Paul
|||Ah,
so you're the reason I keep getting orders for caseloads
of Viagra and penile extension operations. Might have
known. Anyway, must dash - it's 7:15 on Friday evening,
there's nobody else here and I'm the mug who'se doing the
database rollouts.
Paul
|||um...that wasn't me - must have been your wife!
Hilary Cotter
Looking for a SQL Server replication book?
http://www.nwsu.com/0974973602.html
"Paul" <anonymous@.discussions.microsoft.com> wrote in message
news:077b01c4ffed$3e18a0f0$a501280a@.phx.gbl...
> Ah,
> so you're the reason I keep getting orders for caseloads
> of Viagra and penile extension operations. Might have
> known. Anyway, must dash - it's 7:15 on Friday evening,
> there's nobody else here and I'm the mug who'se doing the
> database rollouts.
> Paul
>