Fórum Eu de novo #8906
27/08/2009
0
Paulo Silva
Curtir tópico
+ 0Posts
27/08/2009
Wesley Yamazack
O que você ta querendo fazer é meio chato, estou pensando em uma rotina aqui, e logo retornarei com a mesma. Peço que aguarde um pouco.
Abraço
Wesley Y
Gostei + 0
31/08/2009
Wesley Yamazack
Criar uma conexao com estas tabelas que você quer exportar.
Fazer um loop e ir salvando na tabela onde vão ter os dados já cadastrados, porém, você não irá salvar os códigos, que estão nesta tabela e sim jogar um código acima dos que já existe. Crie uma variável Codigo : Integer;
Ante de fazer o loop Codigo := 40; //caso o ultimo codigo da tabela destino seja 39
Dentro do loop faça o seguinte Codigo := Codigo + 1
No Clientdataset faça o seguinte, ClientDataSetDestino.FieldByname('Codigo').Asinteger:= Codigo;
Faça amesma coisa para os outros camops so que desta forma
ClientDataSetDestino.FieldByname('Codigo').Asinteger:= ClientDataSetOrigem.FieldByname('Nome').Asinteger; e assim sucessivamente. Você usa ClientDataSet Certo ?
Faça com estas dicas, e vamos aprimorando caso tenha alguma dúvida.
Abraço
Wesley Y
Gostei + 0
01/09/2009
Paulo Silva
Gostei + 0
01/09/2009
Wesley Yamazack
Podemos fechar o chamado ?
Att,
Wesley Y
Gostei + 0
02/09/2009
Paulo Silva
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)