Transferencia de dados DBF para Paradox...
13/03/2006
0
Janete
Posts
14/03/2006
Edilcimar
14/03/2006
Aroldo Zanela
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.
14/03/2006
Aroldo Zanela
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.
14/03/2006
Janete
Table
14/03/2006
Edilcimar
14/03/2006
Paulocesar1301
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;
14/03/2006
Paulocesar1301
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;
14/03/2006
Paulocesar1301
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;
14/03/2006
Paulocesar1301
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;
14/03/2006
Paulocesar1301
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;
14/03/2006
Paulocesar1301
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
Clique aqui para fazer login e interagir na Comunidade :)