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