Шаг 62 - Свойство ReplicaID

Описание
Возвращает 16-байтовое значение, однозначно определяющее реплику базы данных (только в рабочей области Microsoft Jet).

Значение
Возвращаемое значение является значением типа GUID, однозначно определяющим реплику или основную реплику.

Замечания
Данное значение автоматически создается ядром базы данных Microsoft Jet при создании новой реплики.
Значение свойства ReplicaID каждой реплики (и основной реплики) сохраняется в системной таблице "MSysReplicas".

Пример
Следующая программа создает реплику из основной реплики Борей.mdb, а затем возвращает код ReplicaID, автоматически создаваемый ядром базы данных Microsoft Jet. (Если вы еще не создали основную реплику базы данных "Борей", обратитесь к примеру для свойства Replicable или замените в программе имя базы данных на имя существующей основной реплики).

Sub MakeReplicaReplicaIDX()

	Dim dbsNorthwind As Database
	Dim prpReplicaID As Property
	Dim dbsReplica As Database  
	Set dbsNorthwind = OpenDatabase("Борей.mdb")
	' Создает новую реплику.
	dbsNorthwind.MakeReplica "Nwreplica2.mdb",  "вторая реплика"
	dbsNorthwind.Close
	' Открывает новую реплику, чтобы прочитать значение ReplicaID.
	Set dbsReplica = OpenDatabase("Nwreplica2.mdb")
	Debug.Print dbsReplica.ReplicaID
	dbsReplica.Close

End Sub

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