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