Copiar uma tabela para outra no access

Question

Preciso copiar uma tabela para outra com um banco access.

Pensei em executar uma query assim :

INSERT INTO DATABASEDESTINO.dbo.TABELA
SELECT *
FROM DATABASEORIGEM.dbo.TABELA

mas preciso executar via código e não sei como seria.

alguém sabe me dizer ?

Answer 1

Dim cn as New Data.OleDb.OleDbConnection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\CTCRI-STUDENTS\Rajeev R Nair\Rajeev.Dept.ESS\Variety Finder\Variety Finder\Tuber.accdb"

Dim cmd as New Data.OleDb.OleDbCommand("INSERT INTO TabelaDestino SELECT * FROM TabelaOrigem" , con);

        
cn.Open()
cmd.ExecuteNonQuery()

Answer 2

Sim é isso mesmo que eu quero, só que a conexão origem é uma e a destino é outra porque estou copiando uma tabela de um determinado banco de dados  para outro banco de dados destino. A tabela origem tem o mesmo layout da destino.

Answer 3

Dim AccessConn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test Files\BancoDestino.mdb")

AccessConn.Open()
Dim AccessCommand As New System.Data.OleDb.OleDbCommand("INSERT INTO [Catlog] SELECT * FROM [MS Access;DATABASE=C:\Test Files\BancoOrigem.mdb;].[Catlog]", AccessConn)

AccessCommand.ExecuteNonQuery()
AccessConn.Close()

Marque como útil se foi de ajuda!