|
|
Postada em 15/03/2006 09:09 hs
mas, vc nao vai tirar do banco todo, so do campo que vc precisa fazer a pesquisa. ai vai a rotina Function removeAcentos(ByVal texto As String) As String
Dim vPos As Byte
Const vComAcento = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
Const vSemAcento = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
For i = 1 To Len(texto)
vPos = InStr(1, vComAcento, Mid(texto, i, 1))
If vPos > 0 Then
Mid(texto, i, 1) = Mid(vSemAcento, vPos, 1)
End If
Next
removeAcentos = texto
End Function
Private Sub Command1_Click()
'exemplo de como chamar
Text1 = removeAcentos(Text1)
End Sub
|
|
|
|
|
|
Neves
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2006 10:12 hs
Alexandre, Entao quer dizer que com esta rotina que vc me passou todos os "João" do meu banco de dados da referida tabela e do referido campo, todos vao virar "Joao"???!!? abraços |
|
|
|
|
|
Postada em 15/03/2006 10:41 hs
Sim, a rotina q o Alexandre passou vai retirar tds os nomes com acento... vc vai ter q percorrer a sua tabela... vamos chamar isso de "fix" hehehehe...
vc não precisa fazer if pra ver se o nome tem ou não acento já vai modificando para não perder tempo desse jeito do while not rs.eof Nome = Tiracento(rs("Nome")) conexao.Execute "UPDATE Cliente SET Nome = '" & Nome & "' WHERE idcliente = " & rs.idcliente rs.movenext loop uma coisa assim certchu?? t+ |
|
|
|
Neves
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2006 11:00 hs
Muito obrigado pessoal, vou testar pra ver se funciona!!! Abraços |
|
|
|
manu
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 20/12/2011 10:57 hs
a palavra rodo tem acento
|
|
|
|
