Ptz... Olhem isso: estou copiando uma tab pra outra. Acontece, q no dbGrid, ele mostra
a tabela destino perfeita, como tem q ser, copiada, pronta pra uso...
Mas qdo eu abro ela no IbExpert, Apenas o primeiro campo está Preenchido (todos os
registros), e os outros, em null. Pq O Grid está mostrando estar certo se, na verdade
naum eh isso q está de fato acontecendo???
Minha procedure:
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
ibtable1.Insert;
repeat
ibtable1.edit;
ibtable1.Fields[num] := table1.Fields[num];
ibtable1.Post;
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);
end;
---------------------------------
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
