Problema con filtros en Replicas parciales
Hola todos:
Estoy haciendo mis primeros pasos en el uso de replicas en Access desde VB6.
Puedo generar el archivo de replica parcial facilmente, sin embargo cuando
trato de adicionar un filtro obtengo el siguiente error:
Invalid expresion in the ReplicaFilter property
El codigo de mi programa es el siguiente:
Set jet = New JRO.Replica
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Datos\MiBase.mdb;"
cnn = cnn & "Mode=share Deny Read|Share Deny Write"
jet.ActiveConnection = cnn
If jet.ReplicaType = jrRepTypeNotReplicable Then jet.MakeReplicable
'Crea replica
jet.CreateReplica "C:\Datos\BaseReplica.mdb", "Mi replica", jrRepTypePartial, jrRepVisibilityGlobal, -1, jrRepUpdFull
jet.RetentionPeriod = 1000
Set jet = Nothing
'Crear filtro
Set jet = New JRO.Replica
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Datos\BaseReplica.mdb;"
cnn = cnn & "Mode=share Deny Read|Share Deny Write"
jet.ActiveConnection = cnn
jet.Filters.Append "Alumnos", jrFilterTypeTable, "Curso = '01'"
Set jet = Nothing
Agradeceria que alguien me dijera que tengo mal.
Gracias, de antemano
Rodrigo Chavez
|