Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Actualizar o banco de dados
Message
From
30/09/2003 07:27:00
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brazil
 
 
To
29/09/2003 14:24:20
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00833246
Message ID:
00833405
Views:
27
Olá Pedro!

Como o Hilmar falou, guarde suas tabelas antigas em um diretório à parte como, por exemplo, C:\Temp. E tente o seguinte:
If File("C:\Temp\Tab1.dbf")
   Use Tab1   && Abra a nova tabela
   Use C:\Temp\Tab1 Alias TabTemp In 0   && Tabela antiga
   Append From TabTemp
   
   Use In TabTemp
   Use In Tab1
Endif
Outra maneira e que talvez seja melhor de se fazer é utilizar a função Adir() e com isto pegar todas as tabelas antigas e depois através dela abrir as novas e aplicar o append from.
lnQtdArq = Adir(laArq, "C:\Temp\*.dbf")
For I = 1 To lnQtdArq
   Use (laArq(1, 1)) Alias TabN && Abre a tabela nova
   lcTabVelha = "C:\Temp\" + laArq(1, 1)
   Use (lcTabVelha) Alias TabV In 0
   Append From TabV

   Use In TabV
   Use In TabN
Endif
Espero que isto o ajude.
Até mais.
Erick
Força Sempre!
Strength Always!
Previous
Reply
Map
View

Click here to load this message in the networking platform