Notifications
Clear all

copiar tabelas por vba

2 Posts
2 Usuários
0 Reactions
864 Visualizações
 poy
(@poy)
Posts: 16
Active Member
Topic starter
 

preciso copiar determinadas tabelas de um banco para outro.

Primeiro, fiz o drop das tabelas no banco receptor.

Depois executei a rotina abaixo, mas está dando erro pois a tabela não se encontra mais na tabela de nomes do banco original.

Como posso fazer isso ?

For Each tbdf In db.TableDefs

If tbdf.Name = "Balancete" Or tbdf.Name = "BalanceteAnual" Or tbdf.Name = "Resumo" Or tbdf.Name = "ResumoMensal" Or tbdf.Name = "Fluxo" Or tbdf.Name = "FluxoAnual" Or tbdf.Name = "Fluxo ResumoAnual" Or tbdf.Name = "CustoOper1" Or tbdf.Name = "CustoOper2" Or tbdf.Name = "CustoOper3" Or tbdf.Name = "CustoOper_temporaria" Then

ssql = ""
ssql = "SELECT [" & tbdf.Name & "].* INTO ["
ssql = ssql & tbdf.Name & "] IN '" & "C:Sifiger_Dados.mdb'"
ssql = ssql & " FROM [" & tbdf.Name & "] IN '" & path & "'"

dbs.Execute ssql

End If

Next tbdf

 
Postado : 11/04/2014 1:37 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi onde está o erro, mau uma pergunta:
Porque não importar as tabelas pelo próprio Access, é mais rápido e preciso.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/04/2014 2:20 pm