Problemas al añadir lel resultado de una consulta a una tabla
Publicado por Miguel (281 intervenciones) el 19/01/2017 12:15:49
Te este modulo para inserta los datos de una consulta en una tabla. El nombre de las tablas se lo paso como parámetros. Origen son los datos de la consulta y Copia la tabla donde cargar el resultado de la consulta.
Adjunto la consulta de "Origen" y la estructura de "Copia"
En la consulta el Campo "IdOrigen" lo suprimo de las dos tablas de la consulta.
Al ejecutar el módulo me da siempre error. ¿Puede ser por suprimir el PRIMARY KEY de la tabla principal?.
Gracias y un saludo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Module modCopiaTablas
Public Sub copiaTabla(ByVal copia As String, ByVal origen As String)
Try
If CuentaReg(copia) > 0 Then
Dim sql2 As String = "DELETE FROM " & copia
Dim cmd1 As New OleDbCommand(sql2, cn)
cmd1.ExecuteNonQuery()
End If
Dim sql1 As String = "INSERT INTO " & copia & " Select * From " & origen
Dim cmd As New OleDbCommand(sql1, cn)
cmd.ExecuteNonQuery()
Finally
close()
End Try
End Sub
End Module
Adjunto la consulta de "Origen" y la estructura de "Copia"
En la consulta el Campo "IdOrigen" lo suprimo de las dos tablas de la consulta.
Al ejecutar el módulo me da siempre error. ¿Puede ser por suprimir el PRIMARY KEY de la tabla principal?.
Gracias y un saludo
- Consulta.zip(106,8 KB)
- Tabla-Copia.zip(227,3 KB)
Valora esta pregunta
0
