--- Filipe Geyer <[EMAIL PROTECTED]> escreveu:
>
tente como abaixo...
qualquer coisa pode entrar em contato
[EMAIL PROTECTED]
> procedure TForm1.BitBtn1Click(Sender: TObject);
>
> var
> Num: SmallInt;
> n1,n2,i: integer;
>
>
> begin
table1.first;
while table1.eof=false do
begin
for i:=0 to table1.fieldcount -1 do
begin
ibtable1.fields[i].value:=table1.fields[i].value;
end;
ibtable1.post;
table1.next;
end;
>
> Application.MessageBox(PChar('Transação
> Concluída!'), PChar('Aviso...'), mb_ok);
>
> 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
>
>
>
> http://br.yahoo.com/info/utos.html
>
>
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
<<<<< 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
