DBF PARA ACESS JEITO MAIS FACIL
BDADOS.MDB , se existir a tabela FIN024, APAGA ELA, nao e deletar os registros nao.. é apagar mesmo a tabela inteira. , e importar o arquivo FINAN024.DBF, com todos os dados..
Citação:Amigos, consegui, fui tentando fazer.. ate dar certo.. para quem precisar algum dia, vai ai como fiz..XXXANGELSXXX escreveu:
Pessoal, eu de novo, so que agora pra vcs vai ser facil, facil, vejam bem, tenho que criar um relatorio aqui buscando os dados de um arquivo DBF, mas fazer iss direto no dbf nao to querendo.. pq eles movimentam esse sistema antigo la ainda... entao estava pensando o seguinte, criei uma tabela auxiliar com nome BDADOS.MDB, e nela criei o nome das tabelas que quero importar, exemplo FINAN024, esse finan 024 é o nome de 1 dos dbf que queria importar em tempo de execuçao, ou seja, se ja existir a tabela no meu banco auxiliar, BDADOS.MDB, ele apara ela, e importa esse arquivo FINAN024 novamente para minha tabela, ou seja,
BDADOS.MDB , se existir a tabela FIN024, APAGA ELA, nao e deletar os registros nao.. é apagar mesmo a tabela inteira. , e importar o arquivo FINAN024.DBF, com todos os dados..
| Cabecalho | [/th]
Dim db As Database
Dim mdb As String
Dim sql As String
Dim dbfPath As String
mdb = [Ô]C:\CIMONT\Dados\bdados.mdb[Ô]
Set db = OpenDatabase(mdb, dbDriverComplete, False)
dbfPath = [Ô][ô]C:\mcont\[ô][dBase IV;][Ô]
sql = [Ô]INSERT INTO [SORTED] SELECT * FROM [SORTED.dbf] IN [Ô] & dbfPath
db.Execute sql
db.Close
Set db = Nothing
| Cabecalho | [/th]
