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

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Exportar tabela para um arquivo texto (usando controle DATA)
Postada em 25/6/2002 por Jonas            
Private Sub cmdGerarArquivoTexto_Click()

Dim Linha As String
    
    Open App.Path & "     exto.txt" For Output As #1
    
    Data1.Recordset.MoveMin
    
    Do While Not Data1.Recordset.EOF
        Linha = ""
        Linha = Data1.Recordset.Fields(0) & _
        Space(4 - Len(Data1.Recordset.Fields(0))) 'Usa-se o Space para as colunas estarem sempre alinhadas no txt
        Linha = Linha & Data1.Recordset.Fields(1) & _
        Space(20 - Len(Data1.Recordset.Fields(1)))
        Print #1, Linha
        Data1.Recordset.MoveNext
    Loop
    
    Close #1

    MsgBox "Arquivo gerado com êxito." & Chr(13) _
    & "Foram gerados " & pBar.Max & " registros.", vbInformation
    Data1.Refresh
    
End Sub
 


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