Public Sub CreateRep()
' microsoft Jet and Replication Objects 2.6 Library
Dim repMaster As New JRO.Replica
If (Dir("d:\temp\Replica of Northwind.mdb") <> "") Then Kill _
("D:\temp\Replica of Northwind.mdb")
repMaster.ActiveConnection = "D:\temp\Northwind.mdb"
If repMaster.ReplicaType = jrRepTypeNotReplicable Then
Set repMaster.ActiveConnection = Nothing
repMaster.MakeReplicable "D:\temp\Northwind.mdb", False
End If
If (Dir("d:\temp\myTestRep.mdb") <> "") Then Kill _
("d:\temp\myTestRep.mdb")
repMaster.CreateReplica "d:\temp\myTestRep.mdb", "My Full Replica1", jrRepTypeFull, jrRepVisibilityGlobal
End Sub
'==
sekali dibuat replicate, maka replicate tak bisa non aktifkan .. mungkin ada cari nya ? ![]()
'====
--- In belajar-access@yahoogroups.com, imam safari <imam_safari_hidayat@...> wrote:
>
> wah sip banget pak CGSATU
> itukan syncronnya pakai klik biasa gimana kalau memakai tombol botton
> vba nya untuk menjalankan hal tersebut
>
> --- Pada Kam, 5/5/11, CGSATU cgsatu@... menulis:
>
> Dari: CGSATU cgsatu@...
> Judul: [belajar-access] database replication
> Kepada: belajar-access@yahoogroups.com
> Tanggal: Kamis, 5 Mei, 2011, 1:06 AM
>
>
>
>
>
>
>
> Â
>
>
>
>
>
>
>
>
>
> Â
> Malam-malam (atau sebenarnya sudah pagi ya..) gak bisa tidur, coba nulis mengenai Database Replication...silakan dinikmati....
> Â
> http://mugi.or.id/blogs/elang/archive/2011/05/05/maintain-your-ms-access-database-and-application-with-replication.aspx
> Â
> cgsatu
>
__._,_.___
No comments:
Post a Comment