Pergunte aqui
0

Exportar dados de uma tabela para outra em uma consulta

perguntadas 2018-03-22 05:34:59 +0100

imagem do gravatar de wagnermarinsjc@gmail.com

updated 2018-03-30 16:58:59 +0100

imagem do gravatar de Grafeno

Boa noite a todos. Sou iniciante em aplicações do LibreOffice Base.

Como faço para exportar dados de uma tabela para outra?

Ex: Eu tenho duas tabelas (Cadastro e ReceberDados). Quero criar consulta que ao chamá-la ela exportasse os dados contidos na tabela cadastro para a tabela ReceberDados.

Obs. Eu fiz um teste no Access utilizando o seguinte código e deu certo: INSERT INTO ReceberDados ( nome, sobrenome, cidade ) SELECT cadastro.nome, cadastro.sobrenome, cadastro.cidade FROM cadastro;

Quando tentei usar esse método no base não funcionou. Desde já agradeço a todos.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2018-03-23 02:06:52 +0100

imagem do gravatar de Grafeno

updated 2018-03-30 19:51:38 +0100

Boa noite

Para executar instruções INSERT INTO no Base é preciso ir em Ferramentas > SQL.. e colar a instrução em "Comando a executar".

Além disso, o nome dos campos e da tabela devem vir entre aspas:

INSERT INTO "ReceberDados" ( "nome", "sobrenome", "cidade" ) SELECT "cadastro"."nome", "cadastro"."sobrenome", "cadastro"."cidade" FROM "cadastro";

Complementando...

Associe a macro ao evento Executar ação do botão de comando:

Sub ExportarDados()
Dim oBanco As Object, oConexao As Object, oSQL As Object
Dim sSQL As String

   ' Iniciar os objetos '
   oBanco = ThisDataBaseDocument
   oConexao = oBanco.CurrentController.ActiveConnection
   oSQL = oConexao.createStatement()

   ' Instrução SQL '
   ' O nome da tabela e dos campos devem vir dentro de duas aspas "" "" '
   ' para o comando ser executado  '
   sSQL = "INSERT INTO ""ReceberDados"" ( ""nome"", ""sobrenome"", ""cidade"" ) SELECT ""cadastro"".""nome"", ""cadastro"".""sobrenome"", ""cadastro"".""cidade"" FROM ""cadastro"" " 

   ' Excutar a Instrução SQL '
   oSQL.Execute( sSQL )

   MsgBox "Operação concluída!"
End Sub


Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

Boa tarde Grafeno.

Obrigado pela dica, funcionou quando executei. Teria como usar esse método em macro? Pôs eu queria utilizar através de um botão de comando como eu fazia no access.

grato.

imagem do gravatar de wagnermarinsjc@gmail.comwagnermarinsjc@gmail.com ( 2018-03-24 19:44:55 +0100 )editar

Wagner, então, veja se a macro te atende. Se positivo, não esqueça de marcar a resposta como correta clicando em no canto superior esquerdo da resposta.

imagem do gravatar de GrafenoGrafeno ( 2018-03-30 16:55:36 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-03-22 05:34:59 +0100

Lidas: 142 vezes

Última atualização: Mar 30 '18