Retirar Acentos em campo texto
Citação de Kindrazki em 18 de março de 2014, 18:23Retirar Acentos em campo texto
Casos como Asa (Sybase) cujo não localizado comando em sql para retirar acentos.
A idéia consiste em exportar os campos texto e chave da tabela para o excel. Criar uma função para remover os acentos , e via update montado em string em cada linha do excel, rodar os comandos no executor de sql.
[code]
Funcao Vba
Function Remover_os_Acentos(vtexto As String)vCom_Acento = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
vSem_Acento = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"For i = 1 To Len(vtexto)
vposicao = InStr(vCom_Acento, Mid(vtexto, i, 1))If vposicao > 0 Then
vtexto = Replace(vtexto, Mid(vCom_Acento, vposicao, 1), Mid(vSem_Acento, vposicao, 1))
End If
NextRemover_os_Acentos = vtexto
End Function
[/code]
1) Rodar em todas as linhas do excel c2 = Remover_os_Acentos(A2)
2) d2 ="update dba.produto_grade set descrresproduto = '"&C5650&"' where idsubproduto = "&B5650&";"Copiar e colar todas as linhas do excel no executor sql.
Retirar Acentos em campo texto
Casos como Asa (Sybase) cujo não localizado comando em sql para retirar acentos.
A idéia consiste em exportar os campos texto e chave da tabela para o excel. Criar uma função para remover os acentos , e via update montado em string em cada linha do excel, rodar os comandos no executor de sql.
[code]
Funcao Vba
Function Remover_os_Acentos(vtexto As String)
vCom_Acento = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
vSem_Acento = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
For i = 1 To Len(vtexto)
vposicao = InStr(vCom_Acento, Mid(vtexto, i, 1))
If vposicao > 0 Then
vtexto = Replace(vtexto, Mid(vCom_Acento, vposicao, 1), Mid(vSem_Acento, vposicao, 1))
End If
Next
Remover_os_Acentos = vtexto
End Function
[/code]
1) Rodar em todas as linhas do excel c2 = Remover_os_Acentos(A2)
2) d2 ="update dba.produto_grade set descrresproduto = '"&C5650&"' where idsubproduto = "&B5650&";"
Copiar e colar todas as linhas do excel no executor sql.
