Importar dados do PC para WEB

[Jônatas 0]

Eu preciso de importar algumas informações de uma tabela .DBF (que está no PC) para minha base de dados em Access (que está na web).

 

PS. Existem algumas condições, por exemplo: Importar todos os clientes que comecem com a letra 'J'...

 

 

Quem puder me ajudar...

 

[]'s :)

[Jônatas 0]

Ninguem sabe como, não??

[jissa 0]

O código abaixo exporta alguns arquivos .do dbase para o Access, usando o nome dos arquivos como nomes de tabelas, o resto é com voce.... Boa Sorte.... Dim File, Conn, RSConst ReadOnly = TrueBaseDir = "c:\windows\desktop"DBFFile = BaseDirNewMDBFile = 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.closenext