none
Gravar resutado de consulta em outro banco RRS feed

  • Pergunta

  • Caros,

    Tenho um formulário em vba do excel.

    faço uma consulta no banco ASD, gostaria de gravar o retorno dessa consulta em outro banco chamado BBB.

    Alguém saberia me dizer como poderia fazer isso. Segue abaixo o código da consulta

    Utilizo o excel 2013

    Sub Busca_dados()

    Dim bd As Database

    Set bd = OpenDatabase(ActiveWorkbook.Path & "\ASD.accdb")
    Set rs = bd.OpenRecordset("SELECT DISTINCT(NOME) FROM [Tb_projetos] where [cod] = 's' order by nome ASC")

    bd.Close
    End Sub

    quarta-feira, 20 de março de 2019 22:23

Todas as Respostas

  • Dim bd As Database
    Dim bbb As Database
    
    Set bd = OpenDatabase(ActiveWorkbook.Path & "\ASD.accdb")
    Set rs = bd.OpenRecordset("SELECT DISTINCT(NOME) FROM [Tb_projetos] where [cod] = 's' order by nome ASC")
    
    Set bbb = OpenDatabase(ActiveWorkbook.Path & "\BBB.accdb")
    
    'Itera sob os dados do rs e insere no BBB'
    While Not rs.EOF
       For Each dado in rs.Fields
       'executar a query de inserção na tabela BBB com bbb.Execute [query]
       'cada dado pode ser acessado com dado.Value
       Next
    Wend
    

    Uma lógica simples seria percorrer os dados do record set aberto e inserir no outro banco de dados através de uma iteração! Creio que precisará ajustar ao seu caso

    Talvez esse link pode ajudar
    http://www.macoratti.net/dao_ado2.htm


    “First do it, then do it right, then do it better.” - Addy Osmani

    quinta-feira, 21 de março de 2019 00:00