Acentuação + BD Access

[fabiosc80 0]

Estou com um problema aqui faz quase uma semana.

Já vasculhei o forum e a net de ponta cabeça mas nada me serviu.

 

Acontece o seguinte:

 

Tenho um formulario que quando o usuario digita nele vai para o banco de dados, porem com os acentos todos zuados.

EX: áóé

 

Já tentei usar todo tipo de codificação e nada me adiantou.

 

O maximo que consegui foi na página que grava no banco exibir corretamente o valor em um response.write após no topo da página utilizar?:

<%@ LANGUAGE=VBScript CODEPAGE=1252%>

 

Porem quando grava no banco vem errado do mesmo jeito.

Isso acontece tambem ao mandar por e-mail.

 

Estou recorrendo a um pedido de ajuda pois esgotei as possibilidades do que eu possa fazer.

 

PS: erronemamente acabei publicando o mesmo post em ajax/dhtm peço que me desculpem.

[jrcardozo 4]

veja esse link rescente http://forum.imasters.com.br/index.php?/topic/359529-problema-sql-acento/

[fabiosc80 0]

Jonathan,

 

Eu ja tinha passado por esse tópico, tentei e nao funcionou.

Ou posso não ter entendido.

Só sei que minha pagina index.asp esta como CODEPAGE=65001 e a que grava eu coloquei CODEPAGE=1252.

 

Pois assim exibiu os acentos certos se eu jogar um response.write trazendo na tela.

 

O problema esta na hora de dar o insert.

 

Não sei oque fazer para gravar do mesmo jeito que ta sendo impresso na tela quando dou o response.write.

[fabiosc80 0]

Para gravar correto os acentos no banco eu tive que dar um replace nos acentos utilizando essa função que peguei na net.

 

      Function tildes2Entities(texto)
      If not isnull(texto) Then
      texto = Replace(texto, "¡", "¡")
      texto = Replace(texto, "¿", "¿")
      'texto = Replace(texto, "'", "'")
      texto = Replace(texto, "á", "á")
      texto = Replace(texto, "é", "é")
      texto = Replace(texto, "í", "í")
      texto = Replace(texto, "ó", "ó")
      texto = Replace(texto, "ú", "ú")
      texto = Replace(texto, "ñ", "ñ")
      texto = Replace(texto, "ç", "ç")
      texto = Replace(texto, "Á", "Á")
      texto = Replace(texto, "É", "É")
      texto = Replace(texto, "Í", "Í")
      texto = Replace(texto, "Ó", "Ó")
      texto = Replace(texto, "Ú", "Ú")
      texto = Replace(texto, "Ñ", "Ñ")
      texto = Replace(texto, "ã", "ã")
      texto = Replace(texto, "Ã", "Ã")
      texto = Replace(texto, "õ", "õ")
      texto = Replace(texto, "Õ", "Õ")
      texto = Replace(texto, "Ç", "Ç")
      texto = Replace(texto, "à", "à")
      texto = Replace(texto, "è", "è")
      texto = Replace(texto, "ì", "ì")
      texto = Replace(texto, "ò", "ò")
      texto = Replace(texto, "ù", "ù")
      texto = Replace(texto, "À", "À")
      texto = Replace(texto, "È", "È")
      texto = Replace(texto, "Ì", "Ì")
      texto = Replace(texto, "Ò", "Ò")
      texto = Replace(texto, "Ù", "Ù")
      texto = Replace(texto, "ä", "ä")
      texto = Replace(texto, "ë", "ë")
      texto = Replace(texto, "ï", "ï")
      texto = Replace(texto, "ö", "ö")
      texto = Replace(texto, "ü", "ü")
      texto = Replace(texto, "Ä", "Ä")
      texto = Replace(texto, "Ë", "Ë")
      texto = Replace(texto, "Ï", "Ï")
      texto = Replace(texto, "Ö", "Ö")
      texto = Replace(texto, "Ü", "Ü")
      texto = Replace(texto, "â", "â")
      texto = Replace(texto, "ê", "ê")
      texto = Replace(texto, "î", "î")
      texto = Replace(texto, "ô", "ô")
      texto = Replace(texto, "û", "û")
      texto = Replace(texto, "Â", "Â")
      texto = Replace(texto, "Ê", "Ê")
      texto = Replace(texto, "Î", "Î")
      texto = Replace(texto, "Ô", "Ô")
      texto = Replace(texto, "Û", "Û")
      Else
      texto = ""
      End If
      tildes2Entities = texto
      End Function

Não é a solução que eu queria mas foi a unica que encontrei.

[Patrique 0]

Estranho, não faz sentido acontecer este erro, tu tentou reinstalar o iis, talvez seja algum problema dele, também teste na nete, e por fim faça o teste em mais de 1 navegador, talvez ae tu começa a entender o que pode esta acontecendo.

[xanburzum 169]

tentou

<meta http-equiv="Content-Type" content="text/xhtml; charset=UTF-8" />

[fabiosc80 0]

O site esta na locaweb entao reinstalar o iis esta fora de questão e sim tentei xanburzin e nao deu certo.

[Patrique 0]

Localmente você testou? acontece isso?

[xanburzum 169]

Function SemAcento(txt) 

Dim xc, xs, saida, posicao, caract, X

xc = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ'"

xs = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"

saida = ""

If txt <> "" then

For X = 1 To Len(txt)

caract = Mid(txt,X,1)

posicao = InStr(xc,caract)

If posicao > 0 Then

caract = mid(xs,posicao,1)

end if

saida = saida & caract

Next

SemAcento = saida

End If

End Function

[fabiosc80 0]

Se eu colocar essa função nao vai tirar os acentos do banco?

eu preciso dos acentos.

Local nao testei pois o sisteja é gigante e colocar rodando local é meio complicado.

 

Function SemAcento(txt) 
	Dim xc, xs, saida, posicao, caract, X
		xc = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ'" 
		xs = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN" 
		saida = "" 
		If txt <> "" then 
			For X = 1 To Len(txt) 
				caract = Mid(txt,X,1) 
				posicao = InStr(xc,caract) 
				If posicao > 0 Then 
					caract = mid(xs,posicao,1) 
				end if
				saida = saida & caract 
			Next 
			SemAcento = saida 
		End If 
	End Function

[jrcardozo 4]

vai trocar as letras acentuadas para letras sem acentos

 

veja novamente o topico citado no link pois foi colocado um material bem explicativo lá

[xanburzum 169]

se o banco de dados tem k estar compativel com o codepage e o charset