[Resolvido] Exportar para TXT

[Lucas Pereira 0]

opa!!

eae rapaziada! fmz?

to tentando exporta uns dadso do BD pra um txt meu codigo ta assim...

 

<% 
DIM StringDeConexao, Conexao , GravarTxt , GerarTx
Dim rs, Texto, ObjFSO, TextoStr, rsbusca, fso
StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("../master.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao rsbusca = "SELECT * FROM Livros"
set rs = Conexao.execute(rsbusca) Set GerarTxt = Server.CreateObject("Scripting.FileSystemObject")
Set GravarTxt = GerarTxt.CreateTextFile(Server.MapPath("Teste.txt"),True)
While NOT rs.EOF
GravarTxt.Write(rs("Nf") & rs("Ctrc") & rs("Manifesto") & rs("DataEntrega"))
GravarTxt.Close
rs.movenext
Wend 
response.redirect "categoria.asp"
%>

mais ta dando o erro...

 

 

Microsoft VBScript runtime error '800a005b'

 

Object variable not set /romaneios/exporta_txt.asp, line 14

 

alguem pode me ajuda ai?

[Public2004 79]

Eu não sei qual é a linha 14, mas você fecha o arquivo somente após o loop, ex:

While NOT rs.EOF
GravarTxt.Write(rs("Nf") & rs("Ctrc") & rs("Manifesto") & rs("DataEntrega"))
rs.movenext
Wend 
GravarTxt.Close

[Lucas Pereira 0]

opa!!

 

era isso mesmo!!

 

resolvido!!

 

vlw kra!!