Página 1 de 1
converter dbf para sql
Enviado: 15 Jul 2014 11:24
por evaldowl
bom dia colegas ,
estou convertendo um banco de dados de dbf para sql , só que estou com problemas em alguns caracteres especiais , o sql nao reconhece , caracteres de pesos e mediads por exemplo. Andei pesquisando e acho que tenho que converter de ascii para utf8 . Alguem sabe como fazer essa conversão ?
Obrigado.
converter dbf para sql
Enviado: 15 Jul 2014 16:52
por cjp
Meu caro, não conheço utf8.
Mas também enfrentei problemas com essa conversão, e resolvi desta maneira:
Código: Selecionar todos
nrc=1
do while nrc<60
if asc(substr(tar,nrc,1))=0 .or. asc(substr(tar,nrc,1))=39
if empty(substr(tar,nrc))
exit
endif
?"Retirando caractere estranho no tar"
?asc(substr(tar,nrc,1))
tar=substr(tar,1,nrc-1)+substr(tar,nrc+1)
inkey(.8)
else
nrc++
endif
enddo
Espero que te ajude.
converter dbf para sql
Enviado: 15 Jul 2014 18:13
por evaldowl
ok,
obrigado pelo codigo, mas eu preciso fazer a nivel de arquivo inteiro , varrer o dbf inteiro e substituir
converter dbf para sql
Enviado: 16 Jul 2014 08:14
por stefanotd
* tente exportar o DBF para um arquivo texto delimitado com "|" por exemplo
* abre o TXT em algum editor (notepad++) e converta para UTF8
* se o banco de dados for o PostgreSql, importe usando o comando COPY nome_tabela FROM nome_arquivo WITH DELIMITERS AS "|"
Estas duas funções pode ajudar também :
Código: Selecionar todos
CREATE FUNCTION to_ascii(bytea, name)
RETURNS text STRICT AS 'to_ascii_encname' LANGUAGE internal;
Código: Selecionar todos
CREATE OR REPLACE FUNCTION fnc_texto_simples(pTexto varchar)
RETURNS text AS
$$
select UPPER(to_ascii(convert_to($1,'latin1'),'latin1' ))
$$
LANGUAGE sql IMMUTABLE STRICT;
converter dbf para sql
Enviado: 16 Jul 2014 09:46
por Jairo Maia
Olá Evaldo,
evaldowl escreveu:só que estou com problemas em alguns caracteres especiais , o sql nao reconhece , caracteres de pesos e mediads por exemplo
Evaldo, creio que não seja o problema de codificação, acho que pode ser outro, pelo seguinte: Se você diz que seu problema está principalmente com os campos de pesos e medidas, Mesmo que eles não sejam Numéricos, acho que são Números tipo caracteres, e neste caso não altera nada em UTF8.
Apenas variáveis textos com acentuação (caracteres especiais), é que fazem diferença, em relação a outras codificações e Unicode. No caso do UTF8 por exemplo, enquanto Ansi e OEM usam 2 bytes nos caracteres especiais, o UTF8 usa 4 bytes.
Para passar um DBF em OEM para UTF8 (não use se o DBF for Ansi), você pode usar o exemplo abaixo. Faça cópia do DBF antes, ok?:
Código: Selecionar todos
Function Main()
Local x, cArquivoDBF := "Nome do arquivo DBF"
Private cCampo, cConteudo
Use ( cArquivoDBF ) Exclusive New
Clear Screen
While !Eof()
@ 10, 25 Say "Convertendo Registro => " + Str( RecN() )
For x=1 To FCount()
cCampo := Field( x )
If ValType( &cCampo. ) = "C"
cConteudo := Hb_StrToUTF8( &cCampo. )
Replace &cCampo. With cConteudo // salva o campo
EndIf
Next
Skip
EndDo
Return Nil