[Resolvido]Como utilizar esse código ADO

peguei esse código do site do meste Avelino, porém não estou sabendo como utilizar para exportar uma tabela.

salvei o código em um módulo  e em um botão do formulário x no evento ao cliclar coloquei o chamei atravél de call conexao, porém não deu certo, retornou erro de copilação, inválido fora de um procedimento.

alguém sabe como utilizar?

Dim conexao As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSql As String
'-------------------------------------------------
'Conexão com banco de dados corrente, utilizando o ADO
'-------------------------------------------------
Set conexao = CurrentProject.Connection
'-------------------------------------------
'Monta consulta com os campos desejados
'-------------------------------------------
strSql = "SELECT Dados1, dados2, nome FROM tblClientes ORDER BY Dados1;"
'-----------------------------
'Abre o Recordset da consulta
'-----------------------------
rs.Open strSql, conexao
'--------------------
'Cria o arquivo txt
'--------------------
Open "C:\Users\Luiz.DMC\Desktop\Ja\MeuArquivo.txt" For Output As #1
   '-------------------------------------------
   'Copia todo o Recordset para o arquivo txt
   '-------------------------------------------
   Print #1, rs.GetString(adClipString, , "|", vbCrLf)
Close #1
'-----------
'Fecha tudo
'-----------
rs.Close
Set rs = Nothing
Set conexao = Nothing
End Sub

Oi Avelino, estou utilizando o Access 2007, o arquivo txt será utilizado para importar dados para um sistema.

Obrigado pela atenção.

Você está chamando o código com call conexao, mas não postou o nome da procedure, que não pode ser conexao, pois este também é o nome de uma variável utilizada dentro do código.

Amigo desculpe a ignorância mas o que é procedure? como posso fazer isto? vou precisar de sua ajuda.

Dê uma lida na explicação do amigo discorpio...

O que é procedure?

Sem perder o foco é mais ou menos isto que fiz agora, um link dentro do código que fará a execução de um procedimento "carregando ou não algum parâmetro" e após retornará para a linha abaixo e dará continuidade...

Li o artigo do link citado, foi de grande valia, porém ainda sim não consigo finalizar a tarefar de exportar a tabela para txt. coloco em anexo o bd que estou fazendo testes para os senhores possam verificar, caso tenham tempo, agradeço desde já pelo auxilio.

Vê se é isso:

Obrigado Claudio! É exatamente isso!

Depois posto o exemplo.


Muito obrigado

Bom Dia Claudinei,  

Você poderia me explicar como resolveu o problema deste tópico? estou tentando fazer o mesmo em umoutro banco e não estou conseguindo, pensei que havia compreendido.

é preciso habilitar alguma biblioteca? qual?


Grato pela colaboração.




Luiz Carlos.

Luiz

Só um detalhe:

Quando pedir ajuda e nossos colegas responderem,

procure ler atentamente as mensagens deles, pois assim

você estará ajudando a ser ajudado.

Como exemplo disso, veja que na mensagem de nº 2,

o nosso colega Avelino fez uma pergunta a qual você

não respondeu.

Agora falta colocar o "resolvido" no título do tópico.


[ ]'s


Noob

Amigos desculpa a falta de atenção. Avelino, não me atentei a sua segunda pergunta, me desculpe a falta de atenção.

Em uma das mensagens postei  um exemplo no Access, o Claudinei  fez  a correção no banco, quando baixei  e fiquei utilizado o banco que o Claudinei  corrigiu, achei que havia compreendido as correções que ele havia feito. Ao tentar repetir a situação em um  outro banco  percebi que não havia entendido.

Deparo-me com a seguinte mensagem, segue imagem para exemplificar.
Como não conseguir resolver reabrir a questão que estava dada como resolvida.

Luiz

Uma função (Function) pode ser pública (Public)

mas uma subfunção (sub) não, portanto tire a palavra Public:

Public sub fConexao ()

Espero que seja somente isso


[ ]'s

Infelizmente não deu certo!

Estou quebrando a caeça pra resolver... já to quase desistindo!

Como disse, esperava que fosse somente aquilo.

Melhor é compactar teu aplicativo indo no menu Ferramentas de banco de dados e
escolher compactar e reparar banco de dados, e então comprimir em zip. e colocar
num desses hospedeiros. Mega ou Dropbox e colocar o link aqui para podermos baixa-lo
e analisa-lo.

Só um pitaquinho de leve...assim como quem não quer nada...

Por algum acaso, já viu as referencias se estão todas corretas ? Digo isso por que já apanhei muito nisso e era apenas falta de referencias !

Verdade Silvio

Pode ser isso também

Abração


Noob

Pois é, acredito eu que seja a referencia:

Microsoft ActiveX Data Objects x.x Library

Onde x.x é a última referencia que esteja instalada.

Abraços a todos !

Galera muito obrigado pela atenção, Silvio era exatamente o que você mencionou.

Postei no repósitorio de exemplos.

Repósitório de Exemplos - Exportar para txt



Abraço a todos.

Dei apenas um pitaco, os demais colegas é que realmente te ajudaram.

O Fórum agradece o retorno.

Abraços.

Não seja tão modesto Silvio

Nada como acertar na veia

Ah! se todos nós pudéssemos dar pitacos tão certeiros.

Grande abraço aos dois