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]Inserir resultado de consulta em tabela de uma só vez.

    Compartilhe

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

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

    Mensagem  Rafael Silva em Seg 17 Fev 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.


    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Seg 17 Fev 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


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

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

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

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

    Mensagem  Rafael Silva em Seg 17 Fev 2014, 17:33

    Obrigado Avelino!

    Resolvido!


    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

      Data/hora atual: Sab 10 Dez 2016, 06:48