EXPORTAR TABELAS ACCESS PARA TXT
Boa Tarde,
Mas uma vez, venho solicitar a ajudar de vocês.
Estou criando um sistema em access, onde preciso exportar e deletar alguns registros em determinado periodo.
Procurei em varios foruns e todos ajudam quando temos colunas fixas.
O meu problema no tipo de exportação, ja que são algumas tabelas diferentes, onde as colunas nem sempre tem o mesmo nome.
Mas uma vez, venho solicitar a ajudar de vocês.
Estou criando um sistema em access, onde preciso exportar e deletar alguns registros em determinado periodo.
Procurei em varios foruns e todos ajudam quando temos colunas fixas.
O meu problema no tipo de exportação, ja que são algumas tabelas diferentes, onde as colunas nem sempre tem o mesmo nome.
Você quer fazer o q exatamente?
Exportar colunas e dados para TXT?
Exportar colunas e dados para TXT?
Exatamente exportas os titulos e os dados.
O intuito é ter um back de todos os registros.
O intuito é ter um back de todos os registros.
Vou fazer hoje de noite, quando chegar em casa. Depois posto aqui :D
Blz, vou aguardar e retorno na sequencia
Muito simples:
Dim rs As New ADODB.Recordset
rs.Open [Ô]Select * from SUATABELA[Ô], cn, adOpenKeyset, adLockReadOnly
fName = [Ô]C: este.csv[Ô]
fNum = FreeFile
Open fName For Output As fNum
Print #fNum, rs.GetString(adClipString, 1, [Ô],[Ô], vbCr)
Close #fNum
Dim rs As New ADODB.Recordset
rs.Open [Ô]Select * from SUATABELA[Ô], cn, adOpenKeyset, adLockReadOnly
fName = [Ô]C: este.csv[Ô]
fNum = FreeFile
Open fName For Output As fNum
Print #fNum, rs.GetString(adClipString, 1, [Ô],[Ô], vbCr)
Close #fNum
Não entendi o seu comando, onde esta declarando a conecçao
segue a baixo o comando usando na minha aplicação
Dim rs As New ADODB.Recordset
rs.Open [Ô]Select * from [Ô] & cbx_TabelaExportar, cn, adOpenKeyset, adLockReadOnly
fName = cbx_CaminhoSalvar & [Ô]\[Ô] & cbx_TabelaExportar & [Ô].txt[Ô]
fNum = FreeFile
Open fName For Output As fNum
Print #fNum, rs.GetString(adClipString, 1, [Ô],[Ô], vbCr)
Close #fNum
segue a baixo o comando usando na minha aplicação
Dim rs As New ADODB.Recordset
rs.Open [Ô]Select * from [Ô] & cbx_TabelaExportar, cn, adOpenKeyset, adLockReadOnly
fName = cbx_CaminhoSalvar & [Ô]\[Ô] & cbx_TabelaExportar & [Ô].txt[Ô]
fNum = FreeFile
Open fName For Output As fNum
Print #fNum, rs.GetString(adClipString, 1, [Ô],[Ô], vbCr)
Close #fNum
cn, é onde vc coloca sua conexão...
rs.Open [Ô]Select * from [Ô] & cbx_TabelaExportar, AQUI_SUA_CONEXAO, adOpenKeyset, adLockReadOnly
rs.Open [Ô]Select * from [Ô] & cbx_TabelaExportar, AQUI_SUA_CONEXAO, adOpenKeyset, adLockReadOnly
Colega, a exportação fufo, o problema que não esta informando o titulo das colunas e o banco fica preso, não deixando realizar uma nova extração
O comando ficou assim
Private Sub cmd_Exportar_Click()
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
cn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\\meu_Banco.mdb[Ô]
rs.Open [Ô]Select * from [Ô] & cbx_TabelaExportar, cn, adOpenKeyset, adLockReadOnly
fName = cbx_CaminhoSalvar & [Ô]\[Ô] & cbx_TabelaExportar & [Ô].txt[Ô]
fNum = FreeFile
Open fName For Output As fNum
Print #fNum, rs.GetString(adClipString, txt_Registros_Base, [Ô],[Ô], vbCr)
Close #fNum
cn.Close
End Sub
O comando ficou assim
Private Sub cmd_Exportar_Click()
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
cn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\\meu_Banco.mdb[Ô]
rs.Open [Ô]Select * from [Ô] & cbx_TabelaExportar, cn, adOpenKeyset, adLockReadOnly
fName = cbx_CaminhoSalvar & [Ô]\[Ô] & cbx_TabelaExportar & [Ô].txt[Ô]
fNum = FreeFile
Open fName For Output As fNum
Print #fNum, rs.GetString(adClipString, txt_Registros_Base, [Ô],[Ô], vbCr)
Close #fNum
cn.Close
End Sub
Tópico encerrado , respostas não são mais permitidas