| Sub JROCreatePartial() Dim repFull As New JRO.Replica Dim repPartial As New JRO.Replica ' Create partial replica. repFull.ActiveConnection = ".\NorthWind.mdb" repFull.CreateReplica ".\FY96.mdb", "Partial Sales Replica", jrRepTypePartial Set repFull = Nothing ' Create an expression based filter in the partial replica. ' The PopulatePartial method requires an exclusive connection repPartial.ActiveConnection = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=.\FY96.mdb;Mode=Share Exclusive" repPartial.Filters.Append "Customers", jrFilterTypeTable, "Region = 'CA'" ' Create a filter based on a relationship in the partial replica. repPartial.Filters.Append "Orders", jrFilterTypeRelationship, "CustomersOrders" ' Repopulate the partial replica based on the filters. repPartial.PopulatePartial ".\NorthWind.mdb" Set repPartial = Nothing End Sub |
Replica, Create Partial |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design