Views

Histats

Vitrine

VBA Access - Exportando dados para arquivo texto delimitado com TAB

Inline image 2



Acesse: http://goo.gl/0v6AO   

Uma das facilidades máximas do MS Access é a possibilidade de conectá-lo a qualquer base de dados e a partir disso poder extrair e manipularmos os dados de forma rápida e eficiente. Obviamente a facilidade e a velocidade disso está ligado a proficiência no aplicativo.


É normal precisarmos acessar alguma tabela ou query do MS Access precisando exportá-la para um arquivo texto delimitado por TAB. Como se faz isso?

No exemplo a seguir temos 3 necessidades atendidas:

- O acesso aos dados de uma query.
- E exportação desses dados seguindo um formato em uma nova tabela.
- A exportação deste mesmo resultado num arquivo texto.

Para tanto estamos utilizando o método DAO.

O que são DAO e ODBC?

Objetos de acesso a dados (DAO) e o Open Database Connectivity (ODBC) são APIs que permitem que escrevamos aplicativos independentes de qualquer sistema gerenciador de banco de dados (DBMS).

O DAO é familiar aos programadores de banco de dados que usam o VBA do Microsoft Access ou Microsoft Visual Basic. O DAO usa o mecanismo de banco de dados Microsoft Jet para fornecer um conjunto de objetos de acesso a dados:

- banco de dados de objetos,

- objetos tabledef e 

- querydef,

- objetos recordset e

- outros. 

O DAO funciona melhor com arquivos .ACCDB como aqueles criados pelo Microsoft Access, mas também podemos acessar outras fontes de dados ODBC através dele e outros mecanismos de banco de dados Microsoft Jet.

O ODBC disponibiliza uma API de outros fornecedores de banco de dados diferentes que implementaram os drivers ODBC para um determinado DBMS. O programa utiliza essa API para chamar o Gerenciador de Driver ODBC, que passa as chamadas para o driver apropriado. O driver, por sua vez, interage com o DBMS usando o SQL.

Inline image 1


Classes do DAO
As classes DAO também podem acessar uma grande variedade de drivers disponíveis para o Open Database Connectivity (ODBC).


CDaoWorkspace
Gerencia uma sessão de banco de dados nomeada, protegida por senha de login para fazer logoff. A maioria dos programas usam o padrão.

CDaoDatabase
Uma conexão com um banco de dados através da qual pode operar os dados.

CDaoRecordset
Representa um conjunto de registros selecionados de uma fonte de dados.

CDaoRecordView
Um modo de exibição que exibe registros do banco de dados sob controle.

CDaoQueryDef
Representa uma definição de consulta, normalmente salva em um banco de dados.

CDaoTableDef
Representa a definição armazenada de uma tabela base ou tabela anexada.

CDaoException
Representa uma condição de exceção decorrentes das classes DAO.

CDaoFieldExchange
Suporta as rotinas de exchange (DFX) do campo de registro DAO usadas pelas classes de banco de dados DAO. Você normalmente não irá usar essa classe diretamente.

Classes relacionadas

CLongBinary
Encapsula um identificador para o armazenamento de um objeto binário grande (BLOB), como um bitmap. Os objetos CLongBinary são usados para gerenciar grandes 

dados armazenados em 

objetos e tabelas de banco de dados.

COleCurrency
Um tipo aritmético de ponto fixo, com 15 dígitos antes do ponto decimal e 4 dígitos após.

COleDateTime
Representa os valores de data e hora.

COleVariant
Dados VARIANTs podem ser armazenados em vários formatos.

O código abaixo serve de exemplo para que possa ampliar conforme as suas necessidades:

Public Sub DAORecordset()
  ' Definição do acesso a dados.
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rs As DAO.Recordset
  
    Dim strfile As String
    Dim Strstring As String
  
    Dim strValue As String
    Dim nLine As String
    Dim nSetor As Variant
    Dim nCities As String
    Dim preCity As String
    Dim nFlag As Boolean
    
    Let fFile = FreeFile

    'Nomeia o arquivo texto que receberá os dados na pasta e arquivo definidos
    Let strfile = "D:\Bernardes\TextFileName.Txt"
  
  ' Informa o nome da Query que será a base dos dados considerados.
  Set db = CurrentDb
  Set qdf = db.QueryDefs("qry_Lin_Export")
  
  Set rs = qdf.OpenRecordset
  
  ' Abre o arquivo onde serão gravados os dados.
  Open strfile For Output As #fFile
  
  ' Garante que o processo só rodará enquanto não for o final, nem o começo do Recordset.
  If Not (rs.EOF And rs.BOF) Then
    Do While Not rs.EOF
        Let nLine = rs.Fields(0).Value
        Let nSetor = rs.Fields(1).Value
        Let nCities = ""
        Let nFlag = True
        
        Do While Not rs.EOF And (rs.Fields(1).Value = nSetor)
            If nFlag Then
                Let nCities = nCities & Trim(rs.Fields(2).Value) & "/"
                Let preCity = Trim(rs.Fields(2).Value)
                Let nFlag = False
            Else
                If preCity <> Trim(rs.Fields(2).Value) Then
                    Let nCities = nCities & Trim(rs.Fields(2).Value) & "/"
                End If
            End If
            
            rs.MoveNext
        Loop
        
        ' String final a ser exportada.
        Let Strstring = nLine & vbTab & nSetor & vbTab & Replace(nCities, " / ", "/")
        'Let strValue = Now() & " | " & nSetor & ": " & Replace(nCities, " / ", "/") 'Replace(strValue, Chr(13), "")

        Debug.Print Now() & " | " & Strstring
    
        'Exporta para tabela.
        DoCmd.SetWarnings (False)
        
        ' Grava o resultado como um registro dentro de uma tabela previamente preparada.
        DoCmd.RunSQL ("INSERT INTO tbl_Linhas_Brick_Sector_002_Horizontalizado ( Linha, Setor, CIDADE ) " & _
                      "SELECT '" & nLine & "' AS Line, " & nSetor & " AS Sector, '" & nCities & "' AS City " & _
                      "FROM tbl_Sys_Add")

        DoCmd.SetWarnings (True)
    
        ' Grava a string resultante da consolidação.
        Print #fFile, Strstring        
        
        Let Strstring = ""

    Loop
  
    rs.Close
    Close #fFile
    
    Set rs = Nothing
    Set qdf = Nothing
    Set db = Nothing
   End If
End Sub


Tags: VBA, Access, Loop, while, export, txt, file, TAB, delimeted, DAO, recordset,



✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias