Publicado em 15 de dez.

Gravar todos os reg. da tabela

Pessoal, tô precisando de ajuda.

Tenho duas tabelas: tbl1 e tbl2 com os seguintes campos:

num_reg numeric(5,0);

frutas varcchar(12);

Há varios registros gravados na tbl1.

Um formulário com um botão para gravar os dados da tbl1 na tbl2.

Se for prá pesquisar registro a registro e depois gravar tudo bem.Só que eu gostaria de gravar todos os registros

da tbl1 na tbl2 de uma só vez. Dou um clique no botão gravar e pronto.Dá pra se fazer isso? Como?

Estou usando delphi 7. Interbase 7.5 e os componentes da paleta interbase.

Se alguém puder me ajudar agradeço.

Prepara-te o Israel para te encontrares com o teu Deus. Amós 4:12

Discussão (3)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Jerfs· 15 de dez.

Coloca o código no botão.

<tabela1>.First;
While not <tabela1>.eof do

Begin

 <tabela2>.Insert;
 <tabela2>.fieldByName('campo').asString := <tabela1>.FieldByName('campo').asString;
 <tabela2>.Post;

 <tabela1>.Next;
End;

Ou faz usando SQL, existe um comando que deixa a duas tabelas iguaizinhas...

Testa ae e posta o resultado.

Valeu http://forum.imasters.com.br/public/style_emoticons/default/natal_wink.gif

Chrnos· 15 de dez.

Usar os recursos do sql seria o mais simples... basicamente seria fazer um insert com select... algo do tipo....

> Insert into tb2 (campoA, campoB, campoC)select campoA, campoB, campoC from tb1

Isso iria inserir todos os dados da tb1 na tb2, sem se preocupar em verificar se os mesmos já não existem gravados na tb2... poderia se melhorar o script pondo uma restrição que só inclua o que não existir na tb2, algo +/- assim.

Insert into tb2 (campoA, campoB, campoC) select a.campoA, a.campoB, a.campoC from tb1 a where not exists (select 1 from tb2 b where b.campoA = a.campoA and b.campoB = a.campoB and b.campoC = a.campoC)

Usando um filtro como o acima, somente seriam inseridos registros que já não existissem na tb2.[]'s

C Alves· 15 de dez.

Jerfs e Chrnos, muito obrigado pela grande e rápida ajuda de vocês. Com a ajuda de vocês pude aprender o que estava precisando e não sabia. Deu certo. Um abraço! http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif