USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Gerar Arquivo texto! URGENTE!!!!
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 06/11/2008 15:19 hs         
Por favor, alguem poderia me ajudar? É um pouco urgente!!!
Eu tenho algumas informações no meu banco SQL e preciso atraves dessas informações gerar um arquivo texto. Mas não faço idéia por onde começar! Será que alguem poderia me ajudar?????
Por exemplo... Na linha 01 do arquivo texto vai o CNPJ, na linha 2 vai a data... E assim por diante!!! Obrigada!!!
   
Juliana T.
SÃO PAULO
SP - BRASIL
Postada em 06/11/2008 16:31 hs         
Preciso pelo menos saber como eu faço pra exportar dados de um banco para o txt...
no excel eu faria:
Set exclApp = CreateObject("Excel.Application")
Set exclsheet = CreateObject("Excel.Sheet")
Set exclBook = exclApp.Workbooks.Add
Set exclsheet = exclBook.Worksheets(1)
 
e no txt????
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 06/11/2008 17:52 hs            
   
Danilo
não registrado
ENUNCIADA !
Postada em 06/11/2008 20:30 hs   

Tenho este exemplo com Banco de Dados Access, é só alterar a conexão para SQL.

'define variáveis
Dim fs As Scripting.FileSystemObject
Dim texto As Scripting.TextStream
Dim sql As String
Dim contador As Long

'monta consulta sql selecionando o codigo e nome do autor
sql = "Select IDCliente , Nome FROM Clientes "

'abre o banco de dados e o recordset
Set db = opendatabase(Text1.Text)
Set rs = db.openrecordset(sql)

'cria um objeto filesystemobject
Set fs = New Scripting.FileSystemObject
Set texto = fs.OpenTextFile(Text2.Text, ForWriting, True)

'Percorre o recordset até o seu final exportando os dados selecionados
Do Until rs.EOF
  texto.Write rs!IDCliente & ";" & rs!Nome & vbCrLf

  'atualiza contador
  contador = contador + 1
  rs.MoveNext

Loop

'Fecha os objetos e libera variáveis

texto.Close
Set texto = Nothing
Set fs = Nothing
rs.Close
Set rs = Nothing

MsgBox "Total de Registros Exportados : " & contador

Espero ter ajudado

   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 03/09/2009 14:05 hs            
Eu uso exatamente como o Danilo colocou.
 
vlu//
   
Júnior MJC
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 06/09/2009 13:02 hs            
tem uma maneira muito simples q utilizo quando quero fazer um arquivo texto com tabulação tipo layout de banco e etc. vc utiliza o comando open, no help do vb ele utiliza a função para imprimir para LPT1, é só mudar para o destino  e nome do arquivo texto, e não esquece do close no final do arquivo.
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página