TabelaOrigem.First;
While ( not TabelaOrigem.Eof ) do begin TabelaDestino.Insert; For iCampos := 0 to TabelaOrigem.FieldCount-1 do TabelaDestino.Fields[iCampos].Values := TabelaOrigem.Fields[iCampos].Values; TabelaDestino.Post; TabelaOrigem.next; end; Supondo-se claro que tenha os mesmos campos e nas mesmas posições, em ambas tabelas. Att. Douglas - CPD. -----Mensagem original----- De: Wesley [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 8 de setembro de 2004 13:50 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Post sem pular linha O problema que quando vc coloca assim table.fields[num]:= table2.fields[num]; ele so pega a do x em questao faça assim tableorigem.last; tableorigem.first; for x:= 0 to tableorigem.recordcount -1 do begin tabledestino.insert; tabledestino.fields[0].asstring:= tableorigem.fields[0].asstring; tabledestino.fields[1].asinteger:= tableorigem.fields[1].asinteger; tabledestino.post; tableorigem.next; end substitua os fields[x] e coloque o tipo de campo que e, nao se esqueça que vc tem que colocar todos os campos.. qualquer duvida e so dizer... espero ter ajudado.. Wesley ----- Original Message ----- From: Otavio Gasparovic do Nascimento To: [EMAIL PROTECTED] Sent: Wednesday, September 08, 2004 12:37 PM Subject: RES: [delphi-br] Post sem pular linha Porque vc não faz o seguinte, se é que eu entendi seu problema. um loop varrendo a tabela de origem tabeladestino.Insert; for num:=1 to n1 do begin tabeladestino.Fields[num] := tabelaorigem.Fields[num]; end; tabeladestino.Post; tabelaorigem.next Otavio -----Mensagem original----- De: Filipe Geyer [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 8 de setembro de 2004 12:07 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Post sem pular linha Seguinte, montei a procedure abaixo para copiar os registros de uma tabela bdf para outra gdb (ambas com campos iguais). procedure TForm1.BitBtn1Click(Sender: TObject); var Num: SmallInt; n1,n2,i: integer; begin dbgrid1.Refresh; dbgrid1.Update; n1 := table1.FieldCount; n2 := table1.RecordCount; i := 0; num := 0; repeat repeat dbgrid1.Refresh; ibtable1.Insert; ibtable1.Fields[num] := table1.Fields[num]; ibtable1.Post; ibtable1.prior; num := num +1; until num = n1 -1; i := i + 1; num := 0; table1.Next; until i = n2; Application.MessageBox(PChar('Transação Concluída!'), PChar('Aviso...'), mb_ok); O Problema é que A Tabela destino fica assim: Cod____|Nome_|Numero__|etc______|etc______ 001____|______|________|_________|_____ _______|Filipe__|________|_________|_____ _______|______|003_____|_________|_____ _______|______|________|ghfg_____|_____ _______|______|________|_________|sdgs_ To a algumas tardes tentando, pedindo ajuda, mas tah impossivel!!! Será q alguem mais experiente poderia me ajudar??? Obrigado. --------------------------------- Yahoo! Acesso Grátis - navegue de graça com conexão de qualidade! [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: ------------------------------------------------------------------------ ---- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.754 / Virus Database: 504 - Release Date: 06/09/2004 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -------------------------------------------------------------------------- ---- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. ---------------------------------------------------------------------------- -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: VirusScan / Atualizado em 08/09/2004 / Versão: 1.5.2 Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/ ---------------------------------------------------------------------------- -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite http://www.terra.com.br/centralunificada/emailprotegido/imail/imail.cgi?+_u= torres80&_l=1094668127.533596.26040.itajuba.terra.com.br --- Email enviado sem vírus - ¿? Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.755 / Virus Database: 505 - Release Date: 08/09/2004 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html