Importação de dados - dBase e Access

O código abaixo exporta alguns arquivos .DBF do dbase para o Access, usando o nome dos arquivos como nomes de tabelas:

Dim File, Conn, RS
Const ReadOnly = True
BaseDir     = "c:\windows\desktop"
DBFFile     = BaseDir
NewMDBFile  = BaseDir & "\zero.mdb"

Set Conn    = CreateObject("DAO.DBEngine.35").Workspaces(0)
Set DBFConn = Conn.OpenDatabase( DBFFile, True, ReadOnly, "dBase III;")
Set NewMDB  = Conn.CreateDatabase( NewMDBFile, ";LANGID=0x0409;CP=1252;COUNTRY=0" )
set NewMDB  = Conn.OpenDatabase  ( NewMDBFile )

For i = 0 To DBFConn.tabledefs.count - 1
    response.write(   "Merging database " & DBFConn.tabledefs(i).name & ".DBF..." )
    NewMDB.Execute(   "SELECT * INTO ["   & DBFConn.tabledefs(i).name & "] " & _
       " FROM [dBase III;DATABASE=" & BaseDir & ";].[" & DBFConn.tabledefs(i).name & "]" )
    set rs = NewMDB.openRecordset( "SELECT count(*) from " & DBFConn.tabledefs(i).name )
    response.write( "<b>" & rs( 0 ) & " records merged</b><br>" & chr( 13 ) )
    rs.close
next

Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...