Copiar muchos registros de una a otra tabla ASP

[Jokin]

Saludos:

A ver si me pueden ayudar. Quisiera una página (o si alguien la tiene un código, mejor), con el que poder pasar información de una tabla a otra (Access).

Por ejemplo, dos BDs:

BD1

(Tabla)Personal
(Campos) ID___Nombre___Apellidos___DNI

BD2

(Tabla)Gente
(Campos) ID___Nombre___Apellidos___DNI

Y por medio de una página ASP, poder elegir:

* El nombre de la BDs (que puede cambiar, con lo que supongo que habría que configurar conexiones)
* El nombre de las Tablas (origen/destino)
* Elección de las celdas a copiar (20/50...)

No se, igual pido una burrada, pero me gustaría poder hacerlo sin tener que bajarme las BD a mi PC.

Alguien me ha entendido ;)

[Jokin]

Tengo instalado el table editor...nose si puede valer para realizar el trasvase de datos pero tiene una opción llamada Run a Query desde donde quizás se pueda generar un código en SQL. No lo se.

Cualquier cosa para realizar trasvases de datos (no de agua ;) ).

[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

[Jokin]

Gracias, le echaré un vistazo, aunque lo que necesito más que pasar o copiar la estructura son los datos.

Ya suponía que era complicado. Gracias de todas maneras

[AlZuwaga]

no, si lo que hace es eso (copiar los datos de una bd a la otra). cuando dije la "misma estructura" no me refería a que crea una nueva estructura idéntica a la anterior sino que la tabla destino debe ser una réplica de la origen

[Jokin]

Gracias dazuaga,


Entonces tengo que tener en la tabla de destino la misma estructura, pero podrá tener esta tabla de destino más campos, no?

De todas maneras merece la pena probar ya que a la BD origen no le hace daño, no?

Gracias dazuaga

P.D.: Sigo pensando que tiene que haber algún programa código que lo haga todo, hasta limpiar