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


    [Resolvido]Inserir resultado de consulta em tabela de uma só vez.

    avatar
    Convidado
    Convidado


    [Resolvido]Inserir resultado de consulta em tabela de uma só vez. Empty [Resolvido]Inserir resultado de consulta em tabela de uma só vez.

    Mensagem  Convidado 17/2/2014, 16:47

    Boa Tarde ! Tenho uma tabela que retorna varias linhas, com código que utilizo esta inserindo somente a primeira , como ficaria uma loop pra inserir todo resultado da consulta ?


    Private NumOS, Descricao, Tarefa, Categoria, Duracao As String

    ' No evento do botao...
    Comando = ("SELECT * from ..... ")
    Set rst = CurrentDb.OpenRecordset(Comando, dbOpenDynaset)

    NumOS = rst("ORDEM_SERVICO")

    CurrentDb.Execute ("Insert Into Tbl_Plano_MP (Tar_NumeroOS) Values('" & NumOS & "')")


    Obs: O resultado retorna varias linhas e tbm outras colunas, no exemplo acima coloquei apenas um campo pq estava testando.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Inserir resultado de consulta em tabela de uma só vez. Empty Re: [Resolvido]Inserir resultado de consulta em tabela de uma só vez.

    Mensagem  Avelino Sampaio 17/2/2014, 17:10

    Olá!

    Experimente:

    Comando = ("SELECT * from ..... ")
    Set rst = CurrentDb.OpenRecordset(Comando, dbOpenDynaset)
    Do while not rst.eof
    CurrentDb.Execute ("Insert Into Tbl_Plano_MP (Tar_NumeroOS) Values('" & rst("ORDEM_SERVICO") & "')")
    rst.movenext
    loop
    rst.close
    set rst = nothing


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Convidado
    Convidado


    [Resolvido]Inserir resultado de consulta em tabela de uma só vez. Empty Re: [Resolvido]Inserir resultado de consulta em tabela de uma só vez.

    Mensagem  Convidado 17/2/2014, 17:33

    Obrigado Avelino!

    Resolvido!

    Conteúdo patrocinado


    [Resolvido]Inserir resultado de consulta em tabela de uma só vez. Empty Re: [Resolvido]Inserir resultado de consulta em tabela de uma só vez.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 10:23