Dados de Uma tabela para outra

Delphi

23/07/2004

Tenho um Banco de Dados em um aplicativo feito em Delphi, tenho uma tabela que importa dados de um arquivo texto, gostaria de saber como jogar estes dados tabela de importação em uma tabela de casdastro que tem alguns campos em comuns, não todos?.
Obs.: os dados da tabela importação está em um dbgrid, e os do cadastro, em um form.
uso ado (ms access).

Grato,

Adriano.


Xadriano

Xadriano

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

23/07/2004

Colega,

Vc teria q fazer um laço com a primeira tabela, ´appendando´ na segunda... algo parecido com isto :
Tabela1.Open;
Tabela2.Open;

While not Tabela1.EOF do
  begin
    Tabela2.Append;
    Tabela2.FieldByName(´Campo1_t2´).AsInteger:= Tabela1.FieldByName(´Campo1_t1´).AsInteger;
    Tabela2.FieldByName(´Campo2_t2´).AsString:= Tabela1.FieldByName(´Campo2_t1´).AsString;
    Tabela2.Post;

    Tabela1.Next;
  end;


Espero ter ajudado...
T+


GOSTEI 0
Xadriano

Xadriano

23/07/2004

Quando dou um clique no botão aparece a seguinte mensagem:
AdoTabCadastro: DataSet Not in Edit or Insert Mode.

o que está errado?

Desde já agradeço.

Adriano


GOSTEI 0
Henrique Rodrigues

Henrique Rodrigues

23/07/2004

Essa mensagem está aparecendo porque antes de iniciar, a tabela tem que estar no modo de adição ou edição.

Para adicionar

AdoTabCadastro.insert;

editar

AdoTabCadastro.edit;


GOSTEI 0
Xadriano

Xadriano

23/07/2004

Akenatum , em que evento eu coloco este código?
Desculpe-me a pergunta e porque iniciei em delphi a pouco tempo.

Grato, Adriano


GOSTEI 0
POSTAR