Transferencia de dados DBF para Paradox...

13/03/2006

0

Estou transferindo o banco de dados com extensão DBF para DB (Paradox), estou fazendo um while pegando os dados dos campos DBF em uma table e jogando em outra Table com banco paradox. OK ele transfere, mas nos campos de descrição qdo tem algum tipo de acentuação, sempre fica com caracteres estranhos nos lugares dos acentos os Ç, coisas assim... Tem como fazer algo que não deixe acontecer isso, q transfira os dados sem q de esse problema nos caracteres?


Janete

Janete

Responder

Posts

14/03/2006

Edilcimar

Eu já fiz este tipo de transferência e nunca tive problema, quais os componentes que está utilizando?


Responder

14/03/2006

Aroldo Zanela

Colega,

O BDE possui componente e métodos (TBatchMove) para efetuar este tipo de transferência, sem necessidade de código. Sobre o seu problema, verifique as configurações de inicialização do BDE no BDE Administrator -> Configuration -> INIT ->Langdriver.


Responder

14/03/2006

Aroldo Zanela

Colega,

Estava verificando com maior atenção no BDE Administrator e constatei que por padrão, a configuração do Paradox e dBase são realmente diferentes. Verifique então:

Configuration -> Drivers -> Nativo -> Paradox -> LangDriver
Configuration -> Drivers -> Nativo -> dBase-> LangDriver

Como nunca fiz este tipo de tarefa, não tenho certeza, mas acho que é o caminho.


Responder

14/03/2006

Janete

Eu já fiz este tipo de transferência e nunca tive problema, quais os componentes que está utilizando?


Table


Responder

14/03/2006

Edilcimar

eu coloco uma table para um dbf(clipper), e depois uma table para o piradox 7, jogo todos os campos do dbf para uma variável e depois faço um append no piradox


Responder

14/03/2006

Paulocesar1301

se fores tratar registro a registro manualmente, podes tentar:

function AjustaAcento(Str: ShortString): WideString; Export; StdCall;
Const SemAjuste = ´àâêôûãõáéíóúçü´;
      ComAjuste = ´ÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;

Var x: Integer;
begin
  for x := 1 to Length(Str) do
    if Pos(Str[x],SemAjuste) <> 0 then
      Str[x] := ComAjuste[Pos(Str[x], SemAjuste)];

  Result := Str;
  Result := UpperCase(Trim(Result));
end;



Responder

14/03/2006

Paulocesar1301

se fores tratar registro a registro manualmente, podes tentar:

function AjustaAcento(Str: ShortString): WideString; Export; StdCall;
Const SemAjuste = ´àâêôûãõáéíóúçü´;
      ComAjuste = ´ÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;

Var x: Integer;
begin
  for x := 1 to Length(Str) do
    if Pos(Str[x],SemAjuste) <> 0 then
      Str[x] := ComAjuste[Pos(Str[x], SemAjuste)];

  Result := Str;
  Result := UpperCase(Trim(Result));
end;



Responder

14/03/2006

Paulocesar1301

se fores tratar registro a registro manualmente, podes tentar:

function AjustaAcento(Str: ShortString): WideString; Export; StdCall;
Const SemAjuste = ´àâêôûãõáéíóúçü´;
ComAjuste = ´ÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;

Var x: Integer;
begin
for x := 1 to Length(Str) do
if Pos(Str[x],SemAjuste) <> 0 then
Str[x] := ComAjuste[Pos(Str[x], SemAjuste)];

Result := Str;
Result := UpperCase(Trim(Result));
end;


Responder

14/03/2006

Paulocesar1301

se fores tratar registro a registro manualmente, podes tentar:

function AjustaAcento(Str: ShortString): WideString; Export; StdCall;
Const SemAjuste = ´àâêôûãõáéíóúçü´;
ComAjuste = ´ÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;

Var x: Integer;
begin
for x := 1 to Length(Str) do
if Pos(Str[x],SemAjuste) <> 0 then
Str[x] := ComAjuste[Pos(Str[x], SemAjuste)];

Result := Str;
Result := UpperCase(Trim(Result));
end;


Responder

14/03/2006

Paulocesar1301

se fores tratar registro a registro manualmente, podes tentar:

function AjustaAcento(Str: ShortString): WideString; Export; StdCall;
Const SemAjuste = ´àâêôûãõáéíóúçü´;
ComAjuste = ´ÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;

Var x: Integer;
begin
for x := 1 to Length(Str) do
if Pos(Str[x],SemAjuste) <> 0 then
Str[x] := ComAjuste[Pos(Str[x], SemAjuste)];

Result := Str;
Result := UpperCase(Trim(Result));
end;


Responder

14/03/2006

Paulocesar1301

Amigos Administradores/Moderadores...

Não sei o que estava acontecendo, um pequeno erro na hora de encaminhar mensagens, porém não me retornada tal informação... desculpem as duplicidades.

PS.: se for possível excluí-las seria providencial


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar