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


2 participantes

    [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access?

    Avelino João
    Avelino João
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 316
    Registrado : 10/03/2012

    [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access? Empty [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access?

    Mensagem  Avelino João 16/11/2012, 12:41

    Boa tarde mestre tenho um código que exporta dados da tabela do Ms Access para o Mysql que funcionam normalmente agora gostaria de poder fazer o sentido oposto.

    Código para exportar é esse:
    Private Sub CopMySQL()
    Dim Con As New ADODB.Connection
    Dim rstADO As New ADODB.Recordset
    Dim rstDao As DAO.Record
    Con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=127.10.32.9;PORT=3306;" _
    & "DATABASE=TESTE;UID=root;PASSWORD=007;OPTION=3;"
    Con.Open

    rstADO.Open "SELECT * FROM contatos", Con, adOpenStatic, adLockOptimistic
    Set rstDao = CurrentDb.OpenRecordset("SELECT * FROM contatos")

    Do Until rstDao.EOF
    rstADO.AddNew
    'copiar os campos, registo por registo
    rstADO("empresa").Value = rstDao("empresa").Value
    rstADO("cargo").Value = rstDao("cargo").Value
    rstADO("nome").Value = rstDao("nome").Value
    rstADO("sexo").Value = rstDao("sexo").Value
    rstADO("endereco").Value = rstDao("endereco").Value
    rstADO("bairro").Value = rstDao("bairro").Value
    rstADO("cidade").Value = rstDao("cidade").Value
    rstADO("cep").Value = rstDao("cep").Value
    rstADO("estado").Value = rstDao("estado").Value

    rstADO.Update
    rstDao.MoveNext
    Loop

    Con.Close
    End Sub


    .................................................................................
    Proaccess - Angola
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access? Empty Re: [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access?

    Mensagem  criquio 16/11/2012, 13:06

    É só inverter os campos:

    rstDao("empresa").Value = rstADO("empresa").Value


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Avelino João
    Avelino João
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 316
    Registrado : 10/03/2012

    [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access? Empty Re: [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access?

    Mensagem  Avelino João 16/11/2012, 13:15

    ok obrigado criquio vou testar mais tarde dou o retorno


    .................................................................................
    Proaccess - Angola
    Avelino João
    Avelino João
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 316
    Registrado : 10/03/2012

    [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access? Empty Re: [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access?

    Mensagem  Avelino João 17/11/2012, 11:27

    Criquio funcionou dessa maneira

    Function CopMySQL()
    Dim Con As New ADODB.Connection
    Dim rstADO As New ADODB.Recordset
    Dim rstDao As DAO.Recordset
    'Call Conexao_OpenAx(csql)
    Con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;" _
    & "DATABASE=teste;UID=root;PASSWORD=007;OPTION=3;"
    Con.Open

    rstADO.Open "SELECT * FROM clientes", Con, adOpenStatic, adLockOptimistic
    Set rstDao = CurrentDb.OpenRecordset("SELECT * FROM clientess")

    Do Until rstADO.EOF
    rstDao.AddNew
    'copiar os campos, registo por registo
    rstDao("empresa").Value = rstADO("empresa").Value
    rstDao("cargo").Value = rstADO("cargo").Value
    rstDao("nome").Value = rstADO("nome").Value
    rstDao("sexo").Value = rstADO("sexo").Value
    rstDao("endereco").Value = rstADO("endereco").Value
    rstDao("bairro").Value = rstADO("bairro").Value
    rstDao("cidade").Value = rstADO("cidade").Value
    rstDao("cep").Value = rstADO("cep").Value
    rstDao("estado").Value = rstADO("estado").Value
    rstDao.Update
    rstADO.MoveNext
    Loop

    Con.Close
    End Function


    .................................................................................
    Proaccess - Angola
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access? Empty Re: [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access?

    Mensagem  criquio 17/11/2012, 13:36

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access? Empty Re: [Resolvido]Como importar dados de uma tabela do mysql para uma tabela no access?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 10:15