Error cuando inserto datos de una tabla a otra
Publicado por anonymous (24 intervenciones) el 27/04/2018 13:00:08
Buenos días, quiero que la tabla bienes_inmuebles si tiene cambios que sea sobrescrita con los datos de la tabla bienes_temporal. Me sale un error y no me inserta los cambios. bienes_temporal viene de otra base de datos que anexo. No sé por qué puede ser el error, de una tabla a otra los campos claves se repiten y sospecho que sea eso, pero mi intención es que esos mismos registros sean actualizados con cambios. Pongo el código que estoy usando:
Anexar dos tablas iguales de distintas bases de datos: (kk.bienes_inmuebles --> catalogo.bienes_temporal)
Anexar dos tablas iguales de distintas bases de datos: (kk.bienes_inmuebles --> catalogo.bienes_temporal)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub cmd_anexar_bienes_Click()
Dim rutaBDExt As String
Dim miSQL As String
Dim DBExt As Database
Dim reg As Recordset
'RUTA DE LA BASE HA ANEXAR
rutaBDExt = "C:\Users\Alberto\Desktop\kk.accdb"
'INSERT INTO <nombreTabla> SELECT <campos a anexar> FROM <nombreTablaExterna> IN '<rutaBDExterna>'
miSQL = "INSERT INTO bienes_temporal SELECT * FROM bienes_inmuebles IN '" & rutaBDExt & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL miSQL
DoCmd.SetWarnings True
MsgBox "Anexión realizada correctamente", vbInformation, "BIENES INMUEBLES"
DoCmd.Close
'Ahora sobrescribimos los datos de la tabla catalogo.bienes_inmuebles por catalogo.bienes_temporal
miSQL = "INSERT INTO bienes_inmuebles SELECT * FROM bienes_temporal"
DoCmd.RunSQL miSQL
' ---AQUI ES CUANDO OCURRE EL ERRROR---
End Sub
Valora esta pregunta
0