|
|
Postada em 08/03/2007 06:38 hs
uso vb 6, e DAO 3.6, usando o recordset. Eu queria que quando eu cadastrasse o nome inteiro do cliente mesmo com acentos, ele fosse gravado no banco de dados access sem acentos, para evitar que na busca o usuário buscasse com acento e não achasse. Isto é possível? obrigado.
|
|
|
|
|
|
|
|
Postada em 08/03/2007 16:51 hs
espero que ajude. 'em um modulo
Public Function removeacentos(texto As String) As String
variavel = texto
vpar = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
Vcod = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
For C = 1 To Len(variavel)
vpos = InStr(1, vpar, Mid(variavel, C, 1))
If vpos <> 0 Then
vtexconv = vtexconv + Mid(Vcod, Val(vpos), 1)
Else
vtexconv = vtexconv + Mid(variavel, C, 1)
End If
Next
removeacentos = vtexconv
'exemplo de como chamar 'texto = removeacentos(texto)
End Function
|
|
|
|
|
