Шаг 75 - Метод Synchronize

Описание
Синхронизирует две реплики (только для баз данных Microsoft Jet).

базаДанных.Synchronize путь, обмен

Параметры
базаДанных
Объектная переменная, представляющая объект Database, который является репликой.
путь
Выражение или переменная типа String, содержащая путь к реплике, с которой будет синхронизирована базаДанных. Расширение имени .mdb указывать необязательно.
обмен
Необязательный. Константа, указывающая, в каком направлении производится синхронизация изменений двух баз данных.

Замечания
Данный метод используется для обмена данными и изменениями структуры между двумя базами данных. Для того чтобы обмен стал возможен, обе базы данных должны иметь одинаковые структурные уровни. Например, экспорт, задаваемый константой dbRepExportChanges, может вызвать предварительную передачу изменений макета в текущую реплику, даже при том условии, что данные будут передаваться только из реплики базаДанных в файл путь.
Реплика, определяемая аргументом путь, должна принадлежать к тому же набору реплик. Если обе реплики имеют одинаковые значения свойства ReplicaID или имеют статус основной реплики, попытка синхронизации приводит к ошибке.
При синхронизации двух реплик через сеть Internet необходимо задать константу dbRepSyncInternet. В этом случае следует задать в аргументе путь вместо сетевого пути адрес URL (Uniform Resource Locator).
Не допускается синхронизация частичных реплик с другими частичными репликами. Дополнительные сведения см. в разделе справки для метода PopulatePartial.
Для синхронизации через сеть Internet требуется диспетчер репликации, входящий в комплект разработчика Microsoft Office 97, Developer Edition.

Пример
Следующие примеры используют метод Synchronize для демонстрации одностороннего и двухстороннего обмен данными между двумя компонентами набора реплик. Для выполнения этих примеров необходимо преобразовать базу данных Борей.mdb в основную реплику (см. свойство Replicable), и создать реплику этой базы данных с именем Nwreplica.mdb. При необходимости, измените имя реплики в собственной программе или создайте реплику с помощью метода MakeReplica.

Sub SendChangeToReplicaX()

	Dim dbsNorthwind As Database

	' Открывает реплицированную базу данных Борей.mdb.
	Set dbsNorthwind = OpenDatabase("Борей.mdb")
	' Передает изменения данных или структуры в реплику.
	dbsNorthwind.Synchronize "Nwreplica.mdb", dbRepExportChanges
	dbsNorthwind.Close
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 14.03.2002