Fórum problema na conversão entre access e firebird #350007
03/12/2007
0
Estou convertendo uma tabela do access para o firebird. Está acontecendo o seguinte erro:
Tenho um campo ´diversos1´, na tabela do access que em alguns registros está vazio, mas ao movê-lo para o campo no firebird, preenche com o último conteúdo do campo. Ex: se no registro 10 estiver ´teste´ e nos registros 11 e 12 estiverem vazios, ao passar para o firebird os registros 11 e 12 ficarão com ´teste´.
begin
numero := 0;
// fechando as tabelas;
tab_access.close;
tab_telefones.close;
// abrindo as tabelas;
tab_access.open;
tab_telefones.open;
// posicionado no primeiro registro;
tab_access.First;
// lendo o arquivo do access até o fim;
while not tab_access.EOF do
begin
numero := numero + 1;
edt_numero.text := IntToStr(numero);
tab_telefones.append;
// limpando os campos;
tab_telefonescodigo.clear;
tab_telefonesnome.clear;
tab_telefonesfuncao.clear;
tab_telefonescidade.clear;
tab_telefonesfixo.clear;
tab_telefonescelular.clear;
tab_telefonesoutros.clear;
tab_telefonesendereco.clear;
tab_telefonesnascimento.clear;
tab_telefonesobservacoes.clear;
tab_telefonesoutros2.clear;
tab_telefonesoutros3.clear;
tab_telefonesmsn.clear;
tab_telefonesskype.clear;
// movendo os dados do access para o Firebird;
tab_telefonescodigo.value := numero;
tab_telefonesnome.value := tab_accessnome.value;
tab_telefonesfuncao.value := 1;
tab_telefonescidade.value := 1;
tab_telefonesfixo.value := tab_accesstelefone1.value;
tab_telefonesobservacoes.value := tab_accessdiversos.value;
tab_telefonesoutros2.value := tab_accessdiversos1.value;
tab_telefones.post;
end;
close;
end;
Rsa_tche
Curtir tópico
+ 0Posts
03/12/2007
Gandalf.nho
Gostei + 0
03/12/2007
Rsa_tche
Gostei + 0
03/12/2007
Silviogs
hile not tab_access.EOF do begin
numero := numero + 1;
edt_numero.text := IntToStr(numero);
tab_telefones.insert; // o insert vai para o fim da tabela
tab_telefonescodigo.asstring := intotostr(numero);
tab_telefonesnome.asstring := tab_accessnome.asstring;
tab_telefonesfuncao.asstring := ´1´;
tab_telefonescidade.asstring := ´1´;
tab_telefonesfixo.asstring := tab_accesstelefone1.asstring;
tab_telefonesobservacoes.asstring := tab_accessdiversos.asstring;
tab_telefonesoutros2.asstring := tab_accessdiversos1.asstring;
tab_telefones.post;
tab_access.next;
end;
para converter tabela de um banco para outro use sempre o asstring que já faz a conversão.
Silvio Guedes
Gostei + 0
04/12/2007
Rsa_tche
Valeu, funcionou legal.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)