MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    Inserir dados de um banco de dados Postregres em uma tbl Access

    avatar
    kah182
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 13
    Registrado : 27/08/2020

    Inserir dados de um banco de dados Postregres em uma tbl Access Empty Inserir dados de um banco de dados Postregres em uma tbl Access

    Mensagem  kah182 em 24/11/2020, 16:57

    Prezados Boa tarde!


    Preciso trazer um conjunto de dados de uma base postgres para o access usando vba.
    Ja consegui criar a conexão e fazer o select porem depois do select nao sei como proceder para inserir esses dados na tbl do access:

    Código:
    Dim cn As ADODB.Connection
    Dim txt As String
    Dim rs As ADODB.Recordset


    Set cn = New ADODB.Connection
    cn.ConnectionString = "ODBC;DRIVER={PostgreSQL Unicode(x64)};DSN=;DATABASE=;SERVER=;PORT=;UID=;PWD=;"
    cn.ConnectionTimeout = 10
    cn.Open

    Set rs = New ADODB.Recordset
    rs.Open "Select * from alvo ", cn

    Depois do select nao sei como proceder pra incluir no access os dados desse select. Alguem tem alguma ideia?

    Obrigada!
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 424
    Registrado : 25/02/2016

    Inserir dados de um banco de dados Postregres em uma tbl Access Empty Re: Inserir dados de um banco de dados Postregres em uma tbl Access

    Mensagem  FranklinJSP em 24/11/2020, 19:21

    Olá Kah

    Código:
    Set rst1 = CurrentDb.OpenRecordset("SELECT * FROM TablaA",,dbReadOnly)
    Set rst2 = CurrentDb.OpenRecordset("SELECT * FROM TablaB",, dbAppendOnly)

    Do Until rst1.EOF
       rst2.AddNew

       For Each fld In rst1.Fields
          rst2.Fields(fld.name).Value = rst1.Fields(fld.Name).Value
       Next

       rst2.Update
       rst1.MoveNext
    Loop

    rst1.Close
    Set rst1 = Nothing
    rst2.Close
    Set rst2 = nothing


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: 27/1/2021, 20:02