Tabla1.Campo --> Variable --> Tabla2.Campo

[jorevale]

Hola amigos

Tengo dos Tablas (en dos bases diferentes), y la Tabla2 debe actualizarse con los valores de la Tabla1 cuando se cumpla cierta condición.

Ando intentando hacer lo siguiente:

Base1.Tabla1 ---> Variable ---> Base2.Tabla2

Todo se define en tiempo de ejecución. Las cadenas de conexión también se crean a partir de variables.

Pero evidentemente no me funciona. Podéis sugerirme una vía diferente ó el error de ésta?

Gracias



Set CN1 = New Connection
With CN1
' Proveedor de datos Microsoft OLE DB para Microsoft Jet
.Provider = "Microsoft.jet.OLEDB.3.51"
.ConnectionString = VIP1 & VDrive1 & VDir1 & VFile1
End With
Set CN2 = New Connection
With CN2
' Proveedor de datos Microsoft OLE DB para Microsoft Jet
.Provider = "Microsoft.jet.OLEDB.3.51"
.ConnectionString = VIP1 & VDrive1 & VDir1 & VFile2
End With
' Abrir la conexión 1 y el conjunto de registros
CN2.Open
Set RS2 = New Recordset
With RS2
.Source = "Select * from " & VTable2
.ActiveConnection = CN2
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
CN1.Open
Set RS1 = New Recordset
With RS1
.Source = "Select * from " & VTable1
' where rs1.FEC_ENT > VDate1
.ActiveConnection = CN1
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
V = 1
.Open
Do While V = 1
If .EOF Then
Exit Do
V = 0
End If
.MoveFirst
VID_Aviso = RS1.ID_AVISO
VNombre = RS.Nombre
VFijo = .Fijo
VMóvil = .Móvil
VDirección = .Dirección
VLocalidad = .Localidad
' etcetera


If .EOF Then
Exit Do
V = 0
End If
.MoveNext
Loop
End With
End Sub


Private Sub Update()
active Connection = CN2
With RS2
.AddNew
.ID_AVI = VID_Aviso
.Nombre = VNombre
.Fijo = VFijo
.Móvil = VMóvil
.Dirección = VDirección
.Localidad = VLocalidad
End With
active Connection = CN1
End Sub