Aqui voce não precisa do Last pois o Append já joga o registro para o ultimo na
tabela (quem não joga é o Insert).
while not ADOTabela.Eof do begin
BDETabela.Last; // NÃO É NECESSÁRIO.
BDETabela.Append;
.
...
E produre colocar os tipos de campos corretos como sugeriu nosso colega
Ricardo, pois assim vc evita que o delphi perca tempo em converções
desnecessárias.
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
----- Original Message -----
From: Ricardo Mauro
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 08, 2005 8:59 AM
Subject: Re: [delphi-br] Erro ao transferir dados do access p/ paradox
Experimente substituir a propriedade ".value" pelo seu conteudo correto.
Ex.: BDETabelaDESCRICAO.String := ADOTabelaEMPRESA.String;
Ricardo Mauro
Goiania
----- Original Message -----
From: Erika Lemes
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 08, 2005 1:00 AM
Subject: Re: [delphi-br] Erro ao transferir dados do access p/ paradox
Olá Hudson. Não deu certo..... ele coloca todos os nomes certinho, mas
quando chega nos endereços e telefones ele sempre repete o anterior naqueles
campos que são em branco na tabela access (origem), como te falei no
exemplo.... porque será??
Obrigado!
Hudson <[EMAIL PROTECTED]> wrote:
no paradox (DBE), vc deve indicar o final da tabela paradox para abrir um
novo cadastro .Last e depois o .Append............
assim vc vai colocar a seleção no final de todos os registros, e depois
abrir um novo cadastro....
procedure T_Transf.Transferir;
begin
ADOTabela.First;
while not ADOTabela.Eof do begin
BDETabela.Last;
BDETabela.Append;
BDETabelaDESCRICAO.Value := ADOTabelaEMPRESA.Value;
BDETabelaENDER.Value := ADOTabelaENDERECO.Value;
.
.
.
BDETabela.Post;
ADOTabela.Next;
end;
end;
o meu deu certo....!
----- Original Message -----
From: Erika Lemes
To: Delphi-br
Sent: Monday, February 07, 2005 8:37 PM
Subject: [delphi-br] Erro ao transferir dados do access p/ paradox
Boa noite.
Estou transferindo os dados existentes numa tabela access para a tabela
do paradox.
Fiz um código mais ou menos assim, onde ADOTabela é do banco Access e
BDETabela é do Paradox:
procedure T_Transf.Transferir;
begin
ADOTabela.First;
while not ADOTabela.Eof do begin
BDETabela.Last;
BDETabela.Append;
BDETabelaDESCRICAO.Value := ADOTabelaEMPRESA.Value;
BDETabelaENDER.Value := ADOTabelaENDERECO.Value;
.
.
.
BDETabela.Post;
ADOTabela.Next;
end;
end;
Ele até funciona, mas está com um problema: quando a tabela ADOTabela tem
um dado em branco ele repete o dado anterior que postou. Exmplo de como fica:
ADOTabela
Nome Endereço Telefone
Erika São Carlos 123
Marcelo 456
Carla 789
Márcia São Paulo
Mariana 111
BDETabela
Nome Endereço Telefone
Erika São Carlos 123
Marcelo São Carlos 456 //end era p/ ser em branco
Carla São Carlos 789 //end era p/ ser em
branco
Márcia São Paulo 789 //telefone era p/ ser em
branco
Mariana São Paulo 111 //end era p/ ser em
branco
Alguém sabe porque acontece isso??
Obrigado
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do
Yahoo! agora.
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.5 - Release Date: 03/02/2005
[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
