AcentuaÃ§Ã£o com SQLLIB

ecmsoft · November 17, 2005

OlÃ¡,

Estou tendo problemas em fazer com que o xHarbour reconheÃ§a a tabela de caracteres do Servidor MySQL (5.0), portanto quando preencho um campo com caractere acentuado, dÃ¡ o seguinte erro:

Error description: Warning SQLLIB/1000 MySQL RDD: Data too long for column 'NOMFUNC' at row 1

Uso a versÃ£o FREE da SQLLIB

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

ecmsoft · November 17, 2005

OlÃ¡,

Estou tendo problemas em fazer com que o xHarbour reconheÃ§a a tabela de caracteres do Servidor MySQL (5.0), portanto quando preencho um campo com caractere acentuado, dÃ¡ o seguinte erro:

Error description: Warning SQLLIB/1000 MySQL RDD: Data too long for column 'NOMFUNC' at row 1

Uso a versÃ£o FREE da SQLLIB

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

ecmsoft · November 17, 2005

OlÃ¡,

Estou tendo problemas em fazer com que o xHarbour reconheÃ§a a tabela de caracteres do Servidor MySQL (5.0), portanto quando preencho um campo com caractere acentuado, dÃ¡ o seguinte erro:

Error description: Warning SQLLIB/1000 MySQL RDD: Data too long for column 'NOMFUNC' at row 1

Uso a versÃ£o FREE da SQLLIB

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

ecmsoft · November 17, 2005

E aÃ ?

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

pauloaraujo · November 17, 2005

Marciano, tudo bem??

NÃ£o trabalho com xHarbour nem SQL.

Mas, como nÃ£o tenho medo de falar besteira, vai lÃ¡:

Tente colocar uma MSG da vida para te mostrar o tamanho do que estÃ¡ sendo digitado.

Como disse, nÃ£o trabalho com SQL, mas acho ilÃ³gico algo que, pelo simples fato de estar acentuado, mude o tamanho de LEN(ALLTRIM(cVar)).

A mensagem de erro indica que algum limite de tamanho foi ultrapassado.

Espero ter ajudado

Paulo AraÃºjo

Clipper53b/FW26/Blinker70

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

Inscreva-se: http://www.installsis.com.br/encontro

EndereÃ§o: Rua JosÃ© de Andrade, 508 - Centro Guarulhos - SP

Tel: (11) 6463-9000

ecmsoft · November 17, 2005

Paulo,

valeu a tentativa, mas nÃ£o Ã© isso nÃ£o !

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

pauloaraujo · November 17, 2005

Desculpe-me a teimosia:

"Data too long for column 'NOMFUNC' at row 1"

Dados muito longos para coluna 'NOMFUNC' na linha 1.

Ou a mensagem de erro estÃ¡ certa ou Ã© BUG. AÃ...........

Paulo AraÃºjo

Clipper53b/FW26/Blinker70

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

Inscreva-se: http://www.installsis.com.br/encontro

EndereÃ§o: Rua JosÃ© de Andrade, 508 - Centro Guarulhos - SP

Tel: (11) 6463-9000

ecmsoft · November 17, 2005

Caro amigo Paulo, realmente, se formos analisar pela mensagem de erro, nÃ£o teria dÃºvidas !

Mas o problema Ã© que o SQL retorna esta mensagem para este tipo de erro, sendo que na verdade o erro nÃ£o Ã© esse!

JÃ¡ constatei, o problema estÃ¡ na tabela de caracteres, sÃ³ preciso saber como configurÃ¡-la dentro do programa para ler do Servidor MySQL.

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

vailtom · November 18, 2005

Bom dia!

Por favor, envie um pequeno exemplo que demonstre o problema para suporte@sqllib.com.br, assim poderemos trabalhar em cima disto com mais rapidez. O seu banco de dados estÃ¡ usando qual CHARSET?

Vailton Renato

SQL LIB, MyMake & xDev Developer

MSN: renato@kssoftware.com.br

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

ecmsoft · November 18, 2005

//Exemplo de como estou usando para gravar um registro:

Abretabela("cadcart","",2,)

sql_cmd = "INSERT INTO cadcart (CODIGO,NOME) VALUES ('"+cCodigo+"','"+cNome+"')"

SQL EXECUTE sql_cmd

disconectar(hConexao)

// Quando a variavel cNome vai com algum caractere acentuado, dÃ¡ pau !

// O Servidor MySQL esta configurado para o CHARSET "latin7"

// No utilitÃ¡rio MYSQL-FRONT, ele captura esta tabela de caractere e aceita acento. Quado eu mudo para "latin1", o MYSQL-FRONT tambem dÃ¡ pau !

//--------------------------------------------------------------------------------------------//

Function Abretabela(cTabela,cOrder,nArea,sqL_cmdx)

Local sql_cmd

hconexao = Conectar()

if !empty(sql_cmdx)

sql_cmd=sql_cmdx

else

sql_cmd="SELECT * FROM "+cTabela+iF(!Empty(cOrder)," ORDER BY '"+cOrder+"'","")

endif

Select &nArea

USE SQL sql_cmd alias &cTabela via [mysql]

// Envieu e-mail para suporte@sqllib.com.br

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

kapiaba · November 18, 2005

experimente usar um ALLTRIM para retirar os BRANCOS.

e veja tambem, se voce consegue usar os COMANDOS OemToAnsi e AnsiToOem Para Tranformar a acentuaÃ§Ã£o...

TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bad Boy - SÃ£o Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Editado por - kapiaba on 18/11/2005 10:26:49

vailtom · November 18, 2005

OlÃ¡, bom dia!

Veja bem, testei os comandos abaixo com o MySQL versÃ£o 5.0.15 (*ultima disponivel no site*) e tb no 4.1.x.

Eu consegui rodar o seguinte exemplo:

// Cria a variavel com o nome incluindo um caracter especial o "'"...

cNome := "JoÃ£o JosÃ© CristÃ³vÃ£o 'da Cunha Pimenta"

/*

Se vc estÃ¡ usando SQL EXEC, deve converter os valores caracteres utilizando a funÃ§Ã£o, ANY2SQL abaixo. No evento estarei falando sobre as melhorias da nova versÃ£o e como nÃ£o serÃ¡ necessÃ¡rio mais isto.

*/

qout( cNome, ANY2SQL( cNome ),any2sql(date()) )

use sanven

goto 23

? recno(), lastrec(), nome

wait

replace nome with cNome

? recno(), lastrec(), nome

wait

quit

Rodou blz. Veja se estÃ¡s com a DLL Client do MySQL correta. Se nao conseguir rodar os codigos em questÃ£o, posta msg pra gente ver oq mais pode ser, blz?

Vailton Renato

SQL LIB, MyMake & xDev Developer

MSN: renato@kssoftware.com.br

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

ecmsoft · November 18, 2005

Vailton,

Estou usando a DLL:

C:\mysql\mysql server 5.0\opt\libmysql.dll (1.412kb 22/09/2005)

Transformei a LIB:LIBMYSQL.LIB com esta DLL, e compilei.

A funÃ§Ã£o ANY2SQL() nÃ£o resolvel porque eu jÃ¡ estava usando o caracter " ' ".

Como estou usando a SQLLIB FREE nÃ£o consigo usar: RREPLACE...WITH...

Tive que usar a funcao RemoverAcento() nas variaveis caractere, antes de gravar.

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

ecmsoft · November 18, 2005

Vailton, veja bem !

1) o MySQL-FRONT reconhece a tabela de caracteres

2) o DBF2MYSQL (conversor) nÃ£o reconhece a tabela

3) o meu programa nÃ£o reconhece a tabela

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

vailtom · November 19, 2005

Me passe o .SQL completo da sua tabela (ou de uma pequena) como exemplo para suporte@sqllib.com, por favor.

Vailton Renato

SQL LIB, MyMake & xDev Developer

MSN: renato@kssoftware.com.br

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

eajunior · November 19, 2005

Ola Marciano, tem como postar funÃ§Ã£o removeacento() pois preciso de uma funÃ§Ã£o desta para imprimir ns Tdosprn()

Onde vocÃª vÃª um obstÃ¡culo alguÃ©m vÃª o tÃ©rmino da viagem e o outro vÃª uma chance de crescer.

Elias AbrÃ£o JÃºnior

Fone : (0**11) 5181-6909 SÃ£o Paulo - SP

eajunior.fw@terra.com.br

xHarbour 0.99.0 - Fivewin 2.5 e xMate

ecmsoft · November 19, 2005

OlÃ¡ Elias,

Baixe em:

http://geocities.yahoo.com.br/marcosgambeta/harbour/0006.html

ECM SISTEMAS

Marciano Queiroz

Teixeira de Freitas-Ba

ecmsoft.tx@ig.com.br

FW 2.6 + xHarbour 0.99.4

Marca · November 21, 2005

OlÃ¡ Elias

Utilize assim ou crie uma funcao p. retirar os acentos

METHOD Say(nRow, nCol, cText, lAToO) CLASS TDosPrn

DEFAULT lAToO := ::lAnsiToOem

cText := StrTran(cText,"Ã€","a")

cText := StrTran(cText,"Ã£","a")

cText := StrTran(cText,"Ã ","a")

cText := StrTran(cText,"Ã¡","a")

cText := StrTran(cText,"Âª","a")

cText := StrTran(cText,"Ã¢","a")

cText := StrTran(cText,"Â¦","a")

cText := StrTran(cText,"Ã¨","e")

cText := StrTran(cText,"Ãª","e")

cText := StrTran(cText,"Ã¬","i")

cText := StrTran(cText,"Ã","i")

cText := StrTran(cText,"Ã®","i")

cText := StrTran(cText,"Ã²","o")

cText := StrTran(cText,"Â§","o")

cText := StrTran(cText,"Ãµ","o")

cText := StrTran(cText,"Ã³","o")

cText := StrTran(cText,"Âº","o")

cText := StrTran(cText,"Ã´","o")

cText := StrTran(cText,"Ãµ","o")

cText := StrTran(cText,"Ã¸","o")

cText := StrTran(cText,"Ã¹","u")

cText := StrTran(cText,"Ãº","u")

cText := StrTran(cText,"Ã¼","u")

cText := StrTran(cText,"Ã»","u")

cText := StrTran(cText,"Ã§","c")

cText := StrTran(cText,"Ãƒ","A")

cText := StrTran(cText,"Ã€","A")

cText := StrTran(cText,"Ã","A")

cText := StrTran(cText,"Ã‚","A")

cText := StrTran(cText,"Ãˆ","E")

cText := StrTran(cText,"Ã‰","E")

cText := StrTran(cText,"ÃŠ","E")

cText := StrTran(cText,"ÃŒ","I")

cText := StrTran(cText,"Ã","I")

cText := StrTran(cText,"ÃŽ","I")

cText := StrTran(cText,"Ã’","O")

cText := StrTran(cText,"Ã•","O")

cText := StrTran(cText,"Ã“","O")

cText := StrTran(cText,"Ã”","O")

cText := StrTran(cText,"Ã™","U")

cText := StrTran(cText,"Ãš","U")

cText := StrTran(cText,"Ãœ","U")

cText := StrTran(cText,"Ã›","U")

cText := StrTran(cText,"Ã‡","C")

cText := StrTran(cText,"Â«"," ")

cText := StrTran(cText,"Â®"," ")

cText := StrTran(cText,"Ã¶"," ")

cText := StrTran(cText,"Ã¼"," ")

cText := StrTran(cText,"Â"," ")

cText := StrTran(cText,"Â¬"," ")

cText := StrTran(cText,"Â¯"," ")

cText := StrTran(cText,"Ã½"," ")

::SetCoors(nRow, nCol)

::Write(cText, lAToO)

RETURN NIL

Um abraÃ§o

Marcelo Ferro

AcentuaÃ§Ã£o com SQLLIB

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation