Pessoal, boa tarde...

 

Eu sou novo na area programação, na verdade eu fiz um curso de VB na Impacta, e uso muito pouco. Eu trabalho como analista de suporte e também presto serviços, e agora eu preciso exportar todo o cadastro de uma folha de pagamento .mdb para .txt

e importar em outro programa.

O problema é que eu precisaria de umas dicas de como fazer isso usando o access.

 

desde já agradeço a atenção de todos.

 

Valeu!

 

 

Se vc vai usar o ACCESS utilize

Arquivo

     Salvar Como/Exportar (OK)

              Na Opção Salvar_como Tipo escolher Text Files

 

Veja este exemplo.

 

 

    Dim dbCnn As ADODB.Connection
    Set dbCnn = New Connection
    dbCnn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & "E:TesteTeste.mdb" & ";"
   
    Dim rs As ADODB.Recordset
   
   
    Dim sLine As String
    Dim sArrayTexto() As String
   
    On Error GoTo TrataErro
    dbCnn.BeginTrans
    Open "E:TesteICadCli.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, sLine
            sArrayTexto() = Split(sLine, ";")
           
            dbCnn.Execute "Insert into Clientes(Codigo,Nome,Fone)" & _
                "Values('" & sArrayTexto(0) & "','" & sArrayTexto(1) & "','" & sArrayTexto(2) & "')"
        Loop
    Close #1
    dbCnn.CommitTrans
   
    Set rs = New Recordset
    rs.Open "Select * From Clientes", dbCnn
   
    Open "E:TesteECadCli.txt" For Append Shared As #1
        Do While Not rs.EOF
            Print #1, rs("Codigo") & ";" & rs("Nome") & ";" & rs("Fone")
            rs.MoveNext
        Loop
    Close #1
   
TrataErro:
    If Err Then
        dbCnn.RollbackTrans
        MsgBox Err.Description
        Err.Clear
    End If

 

 

 

Ele pega de um txt joga para o banco depois pega do banco e joga para um txt.

 

Usei ; para separar as informações, você vai ter de usar um caracter para separa-lás.