MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Não consigo gerar um arquivo TXT

    avatar
    NarcisoRN
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não consigo gerar um arquivo TXT Empty Não consigo gerar um arquivo TXT

    Mensagem  NarcisoRN 19/6/2013, 16:55

    Amigos,

    Criei um formulário e adicionei a ele um botão que ao ser clicado, deveria gerar o registro corrente num arquivo texto (txt). No evento ao clicar do botão, coloquei:

    Código:
    Private Sub Comando38_Click()
    Set conn = server.CreateObject("adodb.connection")

    'Caminho Banco de Dados
    conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("Acervo.mdb")
    Set rs = server.CreateObject("adodb.recordset")

    'Selecionando a tabela com os campos
    rs.Open "select * from Acervo", conn, 3, 3
    Set objFSO = server.CreateObject("Scripting.FileSystemObject")

    'Caminho e nome do arquivo que vai ser criado
    Set arquivo = objFSO.CreateTextFile(server.mappath("Template.txt"), True)
    'Do Until rs.EOF

    'Campos que vão ser gerados dentro do arquivo texto
    arquivo.Writeln (rs("titulo Original"))
    arquivo.Writeln (rs("Titulo Brasil"))
    arquivo.Writeln (rs("Genero"))
    arquivo.Writeln (rs("Qualidade"))
    arquivo.Writeln (rs("Ano Producao"))
    arquivo.Writeln (rs("Audio"))

    'rs.MoveNext
    'Loop
    arquivo.Close
    End Sub

    Acontece que ao clicar no botão, recebo a seguinte mensagem de erro:

    "erro em tempo de execução '424'
    o objeto é obrigatório

    quando clico em depurar, ele me mostra a linha abaixo em destaque

    Código:
    Set conn = server.CreateObject("adodb.connection")

    Pensei que poderia ser um problema por não ter adicionado a biblioteca DAO 3.6, dai fui em Ferramentas->referencias e cliquei em Microsoft DAO 3.6 Object Library, depois cliquei OK e recebi outro erro:

    "Erro ao carregar DLL"

    Fui na pasta onde se encontra a dll e registrei-a com o regsvr32, mas não adiantou, continua dando o mesmo erro.

    Alguem saberia o que pode estar acontecendo?

    Grato
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Não consigo gerar um arquivo TXT Empty Re: [Resolvido]Não consigo gerar um arquivo TXT

    Mensagem  criquio 19/6/2013, 18:57

    Veja um exemplo simples:
    Código:
    Dim N As Integer, rst As Recordset

    N = FreeFile
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM cnsRanking ORDER by Colocação DESC")

    Open Caminho For Output As #N
            Print #N, rst!Nome
    Close #N

    Set rst = Nothing


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    NarcisoRN
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não consigo gerar um arquivo TXT Empty Re: [Resolvido]Não consigo gerar um arquivo TXT

    Mensagem  NarcisoRN 22/6/2013, 03:18

    Olá Criquio,

    Obrigado pela ajuda, mas continuo tendo o mesmo problema, coloquei o seu código como descrito abaixo:

    Private Sub Comando38_Click()

    Dim N As Integer, rst As Recordset
    N = FreeFile
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM Acervo")
    Open arqtxt.txt For Output As #N
            Print #N, rst![titulo Original]
    Close #N
    Set rst = Nothing
    End Sub

    Ele dá o mesmo erro e aponta para linha:
    Open arqtxt.txt For Output As #N

    Tentei instalar o Microsoft DAO 3.6 Object Library e recebi a seguinte mensagem de erro:
    "Nome em conflito com um modulo, projeto ou biblioteca de objetos já existente"

    Não entendi o porque do erro, já que eu não tenho Módulo, projeto ou biblioteca de objetos com nome conflitante. Tô encucado pra caramba com isso, pois agora isso está acontecendo com o PC de casa, antes era com o PC da minha empresa...enfim, tô achando que o meu MS Officce 2010 ta bugado sei lá.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Não consigo gerar um arquivo TXT Empty Re: [Resolvido]Não consigo gerar um arquivo TXT

    Mensagem  criquio 22/6/2013, 13:49

    Você precisa passar o caminho completo do txt. Crie uma variável para armazenar o caminho com o nome do arquivo e coloque essa variável no lugar do nome do arquivo:

    Código:
    Dim N As Integer, rst As Recordset, cArq As String
    cArq = "C:\arqtxt.txt"
    ...


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    NarcisoRN
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não consigo gerar um arquivo TXT Empty Re: [Resolvido]Não consigo gerar um arquivo TXT

    Mensagem  NarcisoRN 22/6/2013, 15:22

    Agora deu certo!
    Valeu Criquio. Obrigado mais uma vez pela ajuda.

    Um grande abraço
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Não consigo gerar um arquivo TXT Empty Re: [Resolvido]Não consigo gerar um arquivo TXT

    Mensagem  criquio 22/6/2013, 16:13

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Não consigo gerar um arquivo TXT Empty Re: [Resolvido]Não consigo gerar um arquivo TXT

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 15:36