Transferencia de dados DBF para Paradox...

13/03/2006

Estou transferindo o banco de dados com extenso 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 descrio qdo tem algum tipo de acentuao, sempre fica com caracteres estranhos nos lugares dos acentos os , coisas assim... Tem como fazer algo que no deixe acontecer isso, q transfira os dados sem q de esse problema nos caracteres?


Janete

Respostas

14/03/2006

Edilcimar

Eu j fiz este tipo de transferncia e nunca tive problema, quais os componentes que est utilizando?


Responder Citar

14/03/2006

Aroldo Zanela

Colega,

O BDE possui componente e mtodos (TBatchMove) para efetuar este tipo de transferncia, sem necessidade de cdigo. Sobre o seu problema, verifique as configuraes de inicializao do BDE no BDE Administrator -> Configuration -> INIT ->Langdriver.


Responder Citar

14/03/2006

Aroldo Zanela

Colega,

Estava verificando com maior ateno no BDE Administrator e constatei que por padro, a configurao do Paradox e dBase so realmente diferentes. Verifique ento:

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

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


Responder Citar

14/03/2006

Janete

Eu j fiz este tipo de transferncia e nunca tive problema, quais os componentes que est utilizando?


Table


Responder Citar

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 varivel e depois fao um append no piradox


Responder Citar

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&93;,SemAjuste) <> 0 then
      Str&91;x&93; := ComAjuste&91;Pos(Str&91;x&93;, SemAjuste)&93;;

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



Responder Citar

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&93;,SemAjuste) <> 0 then
      Str&91;x&93; := ComAjuste&91;Pos(Str&91;x&93;, SemAjuste)&93;;

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



Responder Citar

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 Citar

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 Citar

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 Citar

14/03/2006

Paulocesar1301

Amigos Administradores/Moderadores...

No sei o que estava acontecendo, um pequeno erro na hora de encaminhar mensagens, porm no me retornada tal informao... desculpem as duplicidades.

PS.: se for possvel exclu-las seria providencial


Responder Citar