Jump to content
Fórum Script Brasil
  • 0

Gerar .txt De Um Banco De Dados Access ?


spyts
 Share

Question

Olá Pessoal,

Sou novo aqui e gostaria de uma ajudinha!!

É o seguinte, eu tenho um sisteminha de cadastro em asp e meu cliente quer ter a possibilidade de gerar um .txt do banco de dados, para poder enviar mailing.

Tipo um botão que gere o txt para ela na tela de administrador!

Se poderem me ajudar eu agradeço muito.

Obrigado!

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0

Verifique o que o administrador vai querer exportar, depois procure entender como funcionam as buscas em bancos de dados, feito isso, veja como se faz uso de FSO.

Dá uma buscada no forúm, tem muita coisa sobre isso já postada.

Verifique o que o administrador vai querer exportar, depois procure entender como funcionam as buscas em bancos de dados, feito isso, veja como se faz uso de FSO.

Dá uma buscada no forúm, tem muita coisa sobre isso já postada.

Link to comment
Share on other sites

  • 0

O Adm irá exportar somente os e-mail´s ! apenas 1 item da tabela...

olha só, este processo esta correto ?

Ele cria um xml, será que se eu colocar txt ele funciona ?

- - - - -

<%

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\login\dados\banco.mdb;"

Set conexao=server.createobject("adodb.connection")

Conexao.open ConnString

SQL="select Nome,Telefone,Email from cadastro"

set rs = conexao.execute(SQL)

Set ObjFSO = CreateObject("Scripting.FileSystemObject")

Set escreve = ObjFSO.CreateTextFile("e:\home\login\web\teste\arq.xml", true) > posso utilizar .txt aqui ?

escreve.write "<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>" & vbcrlf

escreve.write "<internet>" & vbcrlf

do while not rs.eof

escreve.write "<opcoes>" & vbcrlf

for i=0 to rs.fields.count-1

escreve.write "<" & rs.fields(i).name & ">" & rs.fields(i).value & "</" & rs.fields(i).name & ">" & vbcrlf

next

rs.movenext

escreve.write "</opcoes>" & vbcrlf

loop

escreve.write "</internet>" & vbcrlf

Response.write "Arquivo salvo !"

set ObjFSO = nothing

rs.close

conexao.close

set rs = nothing

set conexao = nothing

%>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...