MaximoAccess

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

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
    avatar
    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 590
    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."
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3385
    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
    avatar
    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 590
    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: Qua 23 Ago 2017, 03:19