Copiar muchos registros de una a otra tabla ASP

[AlZuwaga]

Te paso un script que lo que hace es duplicar el contenido de una tabla de una BD a otra con exactamente la misma estructura :

Código:

'### Codigo de Victor Garay
Dim base_de_datos1, base_de_datos2, tabla1, tabla2, ConnVBa, ConnVB, Tabla_source, Tabla_target, registros_exportados
base_de_datos1 = "base.mdb"
tabla1 = "Localidades" 
		
base_de_datos2 = "base_MOD.mdb"
tabla2 = "Localidades"
		
set connVBa = server.createobject("ADODB.Connection") 'Base de datos 'Source'
set Tabla_source = server.CreateObject("ADODB.Recordset")
connVBa.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(base_de_datos1)
Tabla_source.open "SELECT * from " & tabla1 & " where ID_MUNICIP = '"&VarIdMuni&"'",connVBa,3,2
		
set connVB = server.createobject("ADODB.Connection") ' Base de datos 'Target'
set Tabla_target = server.CreateObject("ADODB.Recordset") 
connVB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(base_de_datos2)
Tabla_target.open "SELECT * from " & tabla2 & " where ID_MUNICIP = '"&VarIdMuni&"'",connVB,3,2
		
On error resume next
registros_exportados = 0
do while not Tabla_source.eof
registros_exportados = registros_exportados + 1
Tabla_target.addnew
for i=0 to Tabla_source.fields.count-1 
Tabla_target(i) = Tabla_source(i)
Next
Response.Write "Exportando registro # " & registros_exportados & "<br>"
Tabla_target.update
Tabla_source.movenext
Loop
		
Tabla_target.close 
Set Tabla_target = nothing
connVB.close
Set connVB = nothing
		
Tabla_source.close 
Set Tabla_source = nothing
connVBa.close
Set connVBa = nothing 

Response.Write "Finalizando"

espero te sirva