| Pregunta: | 29618 - BASES DE DATOS REPLICADAS |
| Autor: | Alexandro Munoz |
| Disculpen ya he hecho replicable la base de datos, y la logre abrir desde una segunda máquina, ya cree la replica de la base de datos en la segunda maquina, pero en esa replica yo no puedo aplicar la propiedad OpenRecordset para abrir una tabla de la base de datos, que supuestamente se debió copiar al crear la replica. Cabe destacar que las tablas no estan relacionadas. Anexo una pequeña parte del código donde tengo el problema:
Public Sub main() Dim cont As Integer ' Declaracion de tablas y conexión de Base de datos Set Citetab = OpenDatabase("\\jchable\c\sistema\citetab.mdb", True) On Error GoTo ABRIRREPLICA Citetab.MakeReplica ("c:\Sistema\Citetab2.mdb"), "2a. Replica" ABRIRREPLICA: Citetab2 = OpenDatabase("C:\sistema\Citetab2.mdb") 'En la siguiente líneas es donde me marca error en la aplicacion de la propiedad Set Inventario = Citetab2.OpenRecordset("Inventario") Set Asignacion = Citetab2.OpenRecordset("Asignacion") | |
| Respuesta: | Wilfredo Pérez Velázquez |
| Hola colega,
Según veo tienes las líneas cuando se provoca un error al abrir la primera base de datos o al realizar su réplica. No deberían estar seguido de Citetab.MakeReplica ("c:\Sistema\Citetab2.mdb"), "2a. Replica" Set Inventario = Citetab2.OpenRecordset("Inventario") Set Asignacion = Citetab2.OpenRecordset("Asignacion") exit sub ABRIRREPLICA: ' Tratamiento del error pues la rutina de error es para cuando te falla la conexión o la réplica. No veo porque tiene que estar la apertura de dos recordset al producirse un error, difernecia esto, es decir, si se provoca un error tratalo aparte y si no pues abres las dos tablas como te muestro con anterioridad... | |