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


3 participantes

    [Resolvido]Copiar dados de uma tabela para outra

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Copiar dados de uma tabela para outra Empty Copiar dados de uma tabela para outra

    Mensagem  ton0612 18/12/2012, 18:36

    Boa tarde pessoal.

    Estou com mais uma dúvida. Eu tenho uma tabela. e preciso que via código copiar os dados para outra tabela. mas gostaria que fosse de forma menos braçal. exemplo:

    temos o campo 1 / campo 2 / campo 3 / campo 4
    e são idênticos para as duas tabelas.
    logo gostaria de um codigo que ao clicar no botão copiasse os dados do campo 1 da tabela 1 para o campo 1 da tabela 2
    e assim por diante.

    tem um jeito?

    Desde já agradeço...
    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]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  criquio 18/12/2012, 18:39

    Dê uma pesquisada no fórum. Temos vários tópicos resolvidos sobre o assunto.


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

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  ton0612 18/12/2012, 18:41

    Obrigado pelo retorno Criquio.

    Sim eu tentei...pesquisar.. mas retornou um monte de resultado.... vou tentar mudar os critérios...

    Obrigado.
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  ton0612 18/12/2012, 19:30

    Criquio... peço desculpas... mas não localizei... será que poderia me dar uma luz?
    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]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  criquio 18/12/2012, 20:26

    Tente aqui.


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

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  ton0612 19/12/2012, 17:27

    Criquio Obrigado pela ajuda.... Mas o que eu gostaria é algo um pouco mais automatico, sem precisa definir os nomes dos campo entende, gostaria que ele salvasse na tbl2.Campo1 os dados que constam na tbl1.Campo1 ou em um exemplo mais prático. tblPedido_bkp.CodigoCliente para tblPedido.CodigoCliente e assim por diante nos demais campos. sem precisar eu informar o nome do campo "CodigoCliente".

    gostaria que o VB entendesse da seguinte forma:

    Para cada campo na tbl1 copiar os dados para o mesmo campo na tbl2

    rs.movenext

    isso é possível???

    "Vou explicar o que estou fazendo: Eu tenho o banco em Access, mas estou migrando para o SQL Express, porém os campos de datas não sei pq motivo não são migrados quando definidos como Date/Time - só migra se tiver como Texto. Mas todas as tabelas tem data... então o que eu iria fazer era copiar a estrutura do bando de dados como está e depois jogar os dados de cada tabela para dentro da base em sql express. como não consegui eu mudei tudo para texto e migrei, foi perfeito, com a excessão de que o access não reconhece o campo. e ai vem outros problemas que estou tentando resolver, caso não consiga postarei aqui o problema."

    Espero ter conseguido explicar.
    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]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  criquio 20/12/2012, 15:12

    A não ser que queira aproveitar a função para várias outras tabelas dando a possibilidade de se escolher as tabelas em uma lista por exemplo, não vejo vantagem em fazer de outra maneira, mas você pode criar uma variável do tipo Field e associar ela aos campos da tabela:

    Código:
    Dim f As Field
    ...
    For Each f In rs.Fields
        rs2(f.Name) = rs1(f.Name)
    Next
    ...
    Mais ou menos isso. Faça umas pesquisas a respeito e veja se consegues adaptar.


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

    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  Lupércio 20/12/2012, 16:16

    Boa tarde amigos, e com licença mestre, penso que assim funciona!

    Private Sub SeuBotão_Click()

    Dim strSQL As String, strSQLBackupDados As String

    strSQLBackupDados = "INSERT INTO Tabela2 Select * FROM Tabela1"
    DoCmd.RunSQL (strSQLBackupDados)


    End Sub
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  ton0612 20/12/2012, 18:02

    Obrigado mesmo pessoal...
    já vi que no teste as duas formas são boas, mas vou usar a do Lupércio....

    Muito obrigado.

    Tópico resolvido...
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  Lupércio 20/12/2012, 21:26

    O forum agradece o retorno!

    Conteúdo patrocinado


    [Resolvido]Copiar dados de uma tabela para outra Empty Re: [Resolvido]Copiar dados de uma tabela para outra

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 05:16