Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Actualizar o banco de dados
Message
De
30/09/2003 07:27:00
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brésil
 
 
À
29/09/2003 14:24:20
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00833246
Message ID:
00833405
Vues:
26
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!
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform