MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Como utilizar esse código ADO

    Compartilhe

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    [Resolvido]Como utilizar esse código ADO

    Mensagem  luizzlcs em Ter 05 Maio 2015, 19:13

    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Avelino Sampaio em Qua 06 Maio 2015, 08:44

    Olá!

    Qua é a versão do seu Access ?

    Ficou alguma parte do código pintado de amarelo ? Qual ?

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  luizzlcs em Qui 07 Maio 2015, 20:10

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

    Obrigado pela atenção.

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1097
    Registrado : 21/01/2012

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Cláudio Más em Sab 09 Maio 2015, 00:49

    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.

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  luizzlcs em Sab 09 Maio 2015, 22:22

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

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  formiga10x em Sab 09 Maio 2015, 22:43

    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...


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  luizzlcs em Seg 11 Maio 2015, 18:35

    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.
    Anexos
    Retorno.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 7 vez(es)

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1097
    Registrado : 21/01/2012

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Cláudio Más em Sex 15 Maio 2015, 14:30

    Vê se é isso:
    Anexos
    Retorno.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 18 vez(es)

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  luizzlcs em Sex 15 Maio 2015, 19:29

    Obrigado Claudio! É exatamente isso!

    Depois posto o exemplo.


    Muito obrigado

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    Como Solucionou?

    Mensagem  luizzlcs em Ter 26 Maio 2015, 12:32

    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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2511
    Registrado : 29/06/2012

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Noobezinho em Ter 26 Maio 2015, 13:59

    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









    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    Desculpa pela falta de atenção

    Mensagem  luizzlcs em Ter 26 Maio 2015, 16:40

    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.


    [Você precisa estar registrado e conectado para ver esta imagem.]

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2511
    Registrado : 29/06/2012

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Noobezinho em Ter 26 Maio 2015, 17:03

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    Como Solucionou?

    Mensagem  luizzlcs em Ter 26 Maio 2015, 18:28


    Infelizmente não deu certo!

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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2511
    Registrado : 29/06/2012

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Noobezinho em Ter 26 Maio 2015, 18:39

    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.


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Silvio em Ter 26 Maio 2015, 18:49

    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 !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2511
    Registrado : 29/06/2012

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Noobezinho em Ter 26 Maio 2015, 18:52

    Verdade Silvio

    Pode ser isso também Wink

    Abração


    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Silvio em Ter 26 Maio 2015, 19:11

    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 !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    luizzlcs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 85
    Registrado : 26/07/2011

    Referência

    Mensagem  luizzlcs em Ter 26 Maio 2015, 20:07

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

    Postei no repósitorio de exemplos.

    [Você precisa estar registrado e conectado para ver este link.]



    cheers Abraço a todos.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Silvio em Ter 26 Maio 2015, 20:25

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

    O Fórum agradece o retorno.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2511
    Registrado : 29/06/2012

    Re: [Resolvido]Como utilizar esse código ADO

    Mensagem  Noobezinho em Ter 26 Maio 2015, 20:58

    Não seja tão modesto Silvio

    Nada como acertar na veia Razz

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

    Grande abraço aos dois





    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Sex 09 Dez 2016, 11:33