[Resolvido] Gerar um arquivo txt com dados de uma tabela access

[Papelaria Modelo 0]

Pessoal gostaria do auxilio de vocês para criar um arquivo texto a partir de uma tabela de um banco dados access via código ASP, sei que tem que usar o comando FSO, só que não sei criar o código para isso alguém pode me ajusar ??

[augustoclaro 2]

olha este tutorial que eu fiz, acho que vai ajudar bastante!

^^

Tutorial

[xanburzum 169]

você deve ler o banco de dados, faz sua consulta necessária, e insere os recordsets no txt atraves do writeline do FSO.

[Papelaria Modelo 0]

olha este tutorial que eu fiz, acho que vai ajudar bastante!

^^

Tutorial

Augusto agradeço sua informação mas na verdade eu já tinha visto algo sobre o assunto na internet, é que não tenho base mesmo, sou contabilista e fuço em algumas coisas para facilitar meu dia a dia eu consigo ler os código e depois mudar alguma coisa, só que não sei implementar a parte de ele pegar o meu banco de dados ler as informações e depois jogar para o arquivo txt.

 

Se você tiver algo parecedido pode ser nem que seja um campo só que tenho certeza que consigo implemtar os demais campos..

[Papelaria Modelo 0]

você deve ler o banco de dados, faz sua consulta necessária, e insere os recordsets no txt atraves do writeline do FSO.

Xanburzum, por acaso, é que não tenho base mesmo, sou contabilista e fuço em algumas coisas para facilitar meu dia a dia eu consigo ler os código e depois mudar alguma coisa, só que não sei implementar a parte de ele pegar o meu banco de dados ler as informações e depois jogar para o arquivo txt.

 

Se você tiver algo parecedido pode ser nem que seja um campo só que tenho certeza que consigo implemtar os demais campos.., vou tentar analizar tudo que vcs estão me postando, para ver se consigo chegar a algum resultado mas agradeço antecipadamente se tiver algo conforme expliquei acima.

[augustoclaro 2]

usa assim cara:

 

<%
set conn = server.createobject("adodb.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("banc.mdb")
set rs = server.createobject("adodb.recordset")

rs.open "select * from tabela",conn,3,3
set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
set arquivo = objFSO.CreateTextFile(server.mappath("arquivo"),true)
do until rs.eof
arquivo.WriteLine(rs("campo"))
rs.movenext
loop
arquivo.close
%>

Espero ter ajudado...

[Papelaria Modelo 0]

usa assim cara:

 

<%
set conn = server.createobject("adodb.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("banc.mdb")
set rs = server.createobject("adodb.recordset")

rs.open "select * from tabela",conn,3,3
set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
set arquivo = objFSO.CreateTextFile(server.mappath("arquivo"),true)
do until rs.eof
arquivo.WriteLine(rs("campo"))
rs.movenext
loop
arquivo.close
%>

Espero ter ajudado...

Augusto, deu certo, mas somente um detalhe, está gerando linha por linha como faço para gerar tudo em uma linha só um campo após o outro, prometo que na conclusão com êxito eu posto aqui o código com todos os detalhes, e seus méritos...

[Mário Monteiro 179]

em vez de WriteLine use write apenas

[Papelaria Modelo 0]

em vez de WriteLine use write apenas

 

Olá Mário fiz o que você falou só que agora está gerando todos os registros em uma só linha

na verdade preciso que gere todos os campos em uma só linha mas após terminar os campos pule

para a proxima linha e inicie outro registro, exemplo:

 

000012009030150110000010000000000001

000022009030150110000010000000000001

000032009030200110000020000000000001

 

Segue abaixo o código:

 

<%
set conn = server.createobject("adodb.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("\HEXTRAS\dados\bdados.mdb")
set rs = server.createobject("adodb.recordset")

rs.open "select * from horasextras",conn,3,3
set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
set arquivo = objFSO.CreateTextFile(server.mappath("\hextras\dados\hextras.txt"),true)
do until rs.eof

arquivo.Write(rs("cod_empregado"))
arquivo.Write(rs("competencia"))
arquivo.Write(rs("cod_evento"))
arquivo.Write(rs("tipo_processo"))
arquivo.Write(rs("valor"))
arquivo.Write(rs("cod_empresa"))

rs.movenext
loop
arquivo.close
%>

[Mário Monteiro 179]

no ultimo campo use o writeline entao

 

é logica simples um pula linha e outro nao

[Papelaria Modelo 0]

Mário deu certinho, assim que terminar vou postar o código aqui, agradeço antecipadamente você e aos outros colegas que me ajudaram Muito Obrigado.

[Papelaria Modelo 0]

Bom pessoal aqui está um código que gera um arquivo "txt" apartir de uma tabela em ACCESS, redondinho com a contribuição dos Colegas

Mário Monteiro, Augusto Claro, Xanburzum.

 

<%
set conn = server.createobject("adodb.connection")

'Caminho Banco de Dados
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("\HEXTRAS\dados\bdados.mdb")
set rs = server.createobject("adodb.recordset")

'Selecionando a tabela com os campos
rs.open "select * from horasextras",conn,3,3
set objFSO = Server.CreateObject("Scripting.FileSystemObject") 

'Caminho e nome do arquivo que vai ser criado
set arquivo = objFSO.CreateTextFile(server.mappath("\hextras\hextras.txt"),true)
do until rs.eof

'Campos que vão ser gerados dentro do arquivo texto
arquivo.Write(rs("cod_empregado"))
arquivo.Write(rs("competencia"))
arquivo.Write(rs("cod_evento"))
arquivo.Write(rs("tipo_processo"))
arquivo.Write(rs("valor"))
arquivo.Writeline(rs("cod_empresa"))

rs.movenext
loop
arquivo.close
%>

Obrigado pela contribuição..

[xanburzum 169]

maravilha parabéns...

coloca no laboratório de script,tb

[Mário Monteiro 179]

parabens por ter resolvido

 

abraços