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