Insertar una Tabla en Otra

[Plus]

. Cual es la forma más rápida de insertar todos los valores de una tabla en otra tabla de otra base de datos en .mdb ???

[JoseGCB]

Hola espero que esto te sirva
SQL = "Insert Into Tabla_A (campo1,campo2,campo3,campo4......)
values(" & Conexion_Otrabasededatos.Execute "Select campo1,campo2.....from Tabla2" & ")"
Conexion.Execute SQL
No estoy seguro pero creo que debeia funcionar

[Plus]

. Me sale el siguiente error: "Se esperaba un final de instrucción"

sql1=sql1 & " VALUES (" & c1.Execute "Select * FROM Empresa" & ")"
------------------------------------^

[edumferreyra]

La cadena tiene que quedar de esta forma

SQL = "Insert Into Tabla_A (campo1,campo2,campo3,campo4......)
Select campo1,campo2.....from Tabla2 "

Conexion.Execute SQL

no va el values y no va ese execute entre medio

Slds. Edum

[u_goldman]

O si lo que necesitas es copiar todos los datos de esa tabla a una tabla nueva:

Código:

SELECT * INTO tabla_destino FROM tabla_origen

Salu2,

[JoseGCB]

Si lo que quieres es pasar informacion de una base de datos a otra
lo unico que se me ocurre es esto
disculpa lo otro no lo habia probado, era una prueba a ver si funcionaba

Set rst = CONEXION.Execute("Select * from tabla_A")
While Not rst.EOF
cadsql = "Insert into tabla_B (b,bb,bbb) values (" & rst(0) & ",".........")"
CONEXION_OTRABASE_DEDATOS .Execute cadsql, cuantos
rst.MoveNext
Wend

[Plus]

JoseGCB, muchas gracias, así es como lo estoy haciendo, pero era por saber si había alguna forma más rápida, en una sola sentencia o similar.

Iniciado por JoseGCB

Si lo que quieres es pasar informacion de una base de datos a otra
lo unico que se me ocurre es esto
disculpa lo otro no lo habia probado, era una prueba a ver si funcionaba

Set rst = CONEXION.Execute("Select * from tabla_A")
While Not rst.EOF
cadsql = "Insert into tabla_B (b,bb,bbb) values (" & rst(0) & ",".........")"
CONEXION_OTRABASE_DEDATOS .Execute cadsql, cuantos
rst.MoveNext
Wend