Pois é, em inúmeras ocasiões, quais bravos desenvolvedores, precisaremos conectar os mais diversos tipos de dados externos às nossas aplicações.
Isso pode ser feito: MS Access, Outros SGBDS do mercado, Ligações ODBC, Planilhas eletrônicas, Dados disponíveis em sites. E, neste caso, conectando-se a dados .CSV
Bem, tanto no caso do CSV, quanto do Texto, o modo é praticamente igual. Excetuando-se o fato de que os dados dentro do CSV estejam delimitados por ponto-e-vírgula.
Ahh, não seria nada apropriado continuar escrevendo este artigo sem explicar o que significa a extensão CSV, pois então, segue:
CSV - Comma-separated values
É um formato de arquivo que armazena dados tabelados, cujo grande uso vem da época dos mainframes. Por serem bastante simples, arquivos .csv são comuns em todas as plataformas de computador.
O CSV é uma implementação particular de arquivos de texto separados por um delimitador, que usa a vírgula e a quebra de linha para separar os valores. O formato também usa as aspas em campos no qual são usados os caracteres reservados (vírgula e quebra de linha). Essa robustez no formato torna o CSV mais amplo que outros formatos digitais do mesmo segmento.
Embora não exista uma especificação formal do formato CSV, o RFC 4180descreve um formato comum e estabelece text/csv como um tipo MIMEregistrado na IANA. Formalmente, o CSV é um formato de dados delimitado que possui campos (colunas) separados por caracteres de vírgula e registros (linhas) separados por caracteres de quebra de linha. Campos que contêm caracteres especiais (vírgula, quebra de linha ou aspas) devem ser envolvidos em aspas. Entretanto, se uma linha contiver uma única entrada que seja uma cadeia vazia, ela também pode ser envolvida por aspas. Se um campo contiver um caractere de aspas, ele é discernido posicionando outro caractere igual logo em seguida. O formato CSV não requisita uma codificação de caracteres, uma ordenação de bytes ou um formato de terminador de linha.
Bem, vamos ao que interessa. Como podemos conectar, através do VBA, um arquivo texto ou CSV?
Criei duas funções que fazem este papel para nós, livrando-nos de parte da dor de cabeça:
Nesta função abaixo não só conectamos um arquivo externo, mas fazemos ainda mais do que isso por exportá-lo para outro banco de dados. Ou seja, numa aplicação desenvolvida com o MS Access, geralmente um deles contém as interface (Formulários, Relatórios) e maioria das queries. Deixamos as tabelas e respectivas conexões em outro banco a parte.
Neste banco a parte efetuamos backups mais intensamente. Este banco a parte também fica disponível para outras camadas de dados, como por exemplo, para a criação da base indexada: KPI, Dashboard, Reports, e Scorecards.
Function ConecAction
' Author: Date: Contact: URL:
' Conecta arquivos texto disponíveis no Path.
Dim nPath As String
Dim nPath2 As String
Dim nArchive As String
Dim nFile As String
Dim dbSource As String
Dim dbTarget As String
' O nome do arquivo e o caminho (Path) vem de um formulário.
Let nPath = Left(CurrentDb().Name, InStr(1, CurrentDb().Name, "Bernardess") - 2) & [Form_frm_Avisos].CxPath2.Value
Let nPath2 = Left(CurrentDb().Name, InStr(1, CurrentDb().Name, "
Bernardess ") - 1)
Let nArchive = [Form_frm_Avisos].CxFile2
Let nFile = nPath & nArchive
Let dbSource = Left(nArchive, Len(nArchive) - 4) '"Cnn_" & nArchive
Let dbTarget = nPath2 & "OtherBernardesBase.accdb"
If IsNull(nPath) Or IsNull(nArchive) Then
Beep
MsgBox "Providencie o Path onde está o arquivo, bem como o nome do mesmo!", vbExclamation, ".: Bernardes Message"
Else
Call ConectTXTFile(1, "<Nome da especificação de importação>", dbSource, nPath & nArchive) ' Conecta arquivo texto.
'Call ExportTextFileConected (dbTarget, dbSource) ' Exporta arquivo texto para Base de Dados.
End If
' Atualiza o Form.
[Form_frm_Avisos].listConnectedFiles.Requery
End
Function ConectTXTFile
' Author: Date: Contact: URL:
' Conecta todos os arquivos textos..
' Listening: .
' Checa a existência da tabela neste banco e a apaga.
If ObjectExists("Table", TableName) Then
DoCmd.DeleteObject acTable, TableName ' Se a tabela existir apaga-a.
End If
If nType = 0 Then
DoCmd.TransferText acLinkFixed, nLayout, TableName, nFile, False
ElseIf nType = 1 Then
DoCmd.TransferText acLinkDelim, nLayout, TableName, nFile, False
End If
End Function
As demais funções que percebe no código podem ser obtidas, caso deseje, por enviar-me um e-mail solicitando-as.
Boa diversão....Ehhh, em ocasião posterior abordaremos como conectar as demais bases de dados citadas.
Fontes: Wiki, GMAIL - Criando arquivo CSV
Tags: Excel,Connection, conect, CSV, TXT, RFC 4180, IANA, MIME, TransferText, acLinkFixed
.com