3 replies to this topic

[Augusto Flávio]

Boa tarde amigos.,


Algume poderia me informar onde obtenho um script para importar dados de um arquivo txt para uma base access ?

Agradeço

Augusto Flávio

[DiegoCoruja]

Estou no trampo e não estou com script aqui, mas tem sim uma maneira, eu tive essa necessidade mas o problema é que se for um arquivo muito grande vai ter problema para subir por causa do timeout, eu fiz uma "gambiarra" com dos para fazer o loader das bases e tambem tenho o script, mas falo para você ir pesquisando por timeout do asp!

até mais tarde

[Augusto Flávio]

BOm dia meu amigo,


MInha intenção é importar dados de um relogio de ponto, que gera txt. Ficarei muito grato se puder me ajudar.

Se resolver meu problema, terá uma porcentagem do primeiro sistema que vender.


Augusto Flávio.

[DiegoCoruja]

Seque o código testado com access
[codebox]
<%
'Função de Ler o arquivo texto e fazer insert na tabela do access


'conexao
'-----------------------------------------------
Set bd = Server.CreateObject("ADODB.Connection")
localbd = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("banco.mdb")
bd.Open localbd
if err.number <> 0 then
Response.Write "erro na conexao"
end if

'parametros
'-----------------------------------------------
'caminho
str_arquivo = server.MapPath("teste.txt")

'delimitado
str_delimitador = "|"


'Cria o objeto
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

'Verificando e inserindo
'-----------------------------------------------
If fso.FileExists(str_arquivo) Then

Set TXT = FSO.OpenTextFile(str_Arquivo)

while (not txt.AtEndOfStream)
campo = txt.readLine
'Response.write campo & chr(13)& "<br>"
ar_camp = split(campo,str_delimitador)
str_id = ar_camp(0)
str_nome = ar_camp(1)
str_data = ar_camp(2)
str_telefone = ar_camp(3)
sql = "INSERT INTO CARREGA VALUES (" & STR_ID & ",'" & STR_NOME & "','"& STR_DATA &"','" & STR_TELEFONE & "')"
bd.Execute (sql)
Set ar_camp = nothing
sql = ""
wend
if err.number <> 0 then
Response.Write "erro ao fazer o insert"
Response.End
end if
Response.Write "campos inseridos"
txt.close
bd.Close
Set bd = Nothing
Set fso = Nothing
Else
response.write "Arquivo não encontrado !!!"
End If





%>
[/codebox]

Com esse código você pode adicionar uma pagina para colocar o endereço do arquivo para loader ou até definir uma pasta padrão onde ficará gardado os arquivos txt

Edição feita por: DiegoCoruja, 17/09/2009, 13:19.