Postada em 13/09/2005 13:04 hs
tire as pontuaçoes com isso:
Function spf_tira_pontuacao(slv_valor) As String
inicio:
If InStr(1, slv_valor, "Á") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Á"), 1) = "A"
GoTo inicio
End If
If InStr(1, slv_valor, "Ä") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ä"), 1) = "A"
GoTo inicio
End If
If InStr(1, slv_valor, "Â") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Â"), 1) = "A"
GoTo inicio
End If
If InStr(1, slv_valor, "Ã") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ã"), 1) = "A"
GoTo inicio
End If
If InStr(1, slv_valor, "À") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "À"), 1) = "A"
GoTo inicio
End If
If InStr(1, slv_valor, "É") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "É"), 1) = "E"
GoTo inicio
End If
If InStr(1, slv_valor, "Ë") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ë"), 1) = "E"
GoTo inicio
End If
If InStr(1, slv_valor, "Ê") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ê"), 1) = "E"
GoTo inicio
End If
If InStr(1, slv_valor, "È") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "È"), 1) = "E"
GoTo inicio
End If
If InStr(1, slv_valor, "Í") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Í"), 1) = "I"
GoTo inicio
End If
If InStr(1, slv_valor, "Ï") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ï"), 1) = "I"
GoTo inicio
End If
If InStr(1, slv_valor, "Î") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Î"), 1) = "I"
GoTo inicio
End If
If InStr(1, slv_valor, "Ì") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ì"), 1) = "I"
GoTo inicio
End If
If InStr(1, slv_valor, "Ó") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ó"), 1) = "O"
GoTo inicio
End If
If InStr(1, slv_valor, "Ö") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ö"), 1) = "O"
GoTo inicio
End If
If InStr(1, slv_valor, "Ô") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ô"), 1) = "O"
GoTo inicio
End If
If InStr(1, slv_valor, "Õ") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Õ"), 1) = "O"
GoTo inicio
End If
If InStr(1, slv_valor, "Ò") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ò"), 1) = "O"
GoTo inicio
End If
If InStr(1, slv_valor, "Ú") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ú"), 1) = "U"
GoTo inicio
End If
If InStr(1, slv_valor, "Ü") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ü"), 1) = "U"
GoTo inicio
End If
If InStr(1, slv_valor, "Û") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Û"), 1) = "U"
GoTo inicio
End If
If InStr(1, slv_valor, "Ù") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ù"), 1) = "U"
GoTo inicio
End If
' If InStr(1, slv_valor, "'") > 0 Then
' Mid(slv_valor, InStr(1, slv_valor, "'"), 1) = "`"
' GoTo inicio
' End If
' If InStr(1, slv_valor, "º") > 0 Then
' Mid(slv_valor, InStr(1, slv_valor, "º"), 1) = "o"
' GoTo inicio
' End If
' If InStr(1, slv_valor, "ª") > 0 Then
' Mid(slv_valor, InStr(1, slv_valor, "ª"), 1) = "a"
' GoTo inicio
' End If
If InStr(1, slv_valor, "|") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "|"), 1) = " "
GoTo inicio
End If
If InStr(1, slv_valor, "Ç") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "Ç"), 1) = "C"
GoTo inicio
End If
If InStr(1, slv_valor, "ç") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ç"), 1) = "c"
GoTo inicio
End If
'Ç
If InStr(1, slv_valor, "á") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "á"), 1) = "a"
GoTo inicio
End If
If InStr(1, slv_valor, "ä") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ä"), 1) = "a"
GoTo inicio
End If
If InStr(1, slv_valor, "â") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "â"), 1) = "a"
GoTo inicio
End If
If InStr(1, slv_valor, "ã") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ã"), 1) = "a"
GoTo inicio
End If
If InStr(1, slv_valor, "à") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "à"), 1) = "a"
GoTo inicio
End If
If InStr(1, slv_valor, "é") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "é"), 1) = "e"
GoTo inicio
End If
If InStr(1, slv_valor, "ë") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ë"), 1) = "e"
GoTo inicio
End If
If InStr(1, slv_valor, "ê") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ê"), 1) = "e"
GoTo inicio
End If
If InStr(1, slv_valor, "è") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "è"), 1) = "e"
GoTo inicio
End If
If InStr(1, slv_valor, "í") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "í"), 1) = "i"
GoTo inicio
End If
If InStr(1, slv_valor, "ï") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ï"), 1) = "i"
GoTo inicio
End If
If InStr(1, slv_valor, "î") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "î"), 1) = "i"
GoTo inicio
End If
If InStr(1, slv_valor, "ì") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ì"), 1) = "i"
GoTo inicio
End If
If InStr(1, slv_valor, "ó") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ó"), 1) = "o"
GoTo inicio
End If
If InStr(1, slv_valor, "ö") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ö"), 1) = "o"
GoTo inicio
End If
If InStr(1, slv_valor, "ô") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ô"), 1) = "o"
GoTo inicio
End If
If InStr(1, slv_valor, "õ") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "õ"), 1) = "o"
GoTo inicio
End If
If InStr(1, slv_valor, "ò") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ò"), 1) = "o"
GoTo inicio
End If
If InStr(1, slv_valor, "ú") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ú"), 1) = "u"
GoTo inicio
End If
If InStr(1, slv_valor, "ü") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ü"), 1) = "u"
GoTo inicio
End If
If InStr(1, slv_valor, "û") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "û"), 1) = "u"
GoTo inicio
End If
If InStr(1, slv_valor, "ù") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "ù"), 1) = "u"
GoTo inicio
End If
If InStr(1, slv_valor, "'") > 0 Then
Mid(slv_valor, InStr(1, slv_valor, "'"), 1) = "`"
GoTo inicio
End If
spf_tira_pontuacao = CStr(slv_valor)
End Function
depois vc usa:
WHERE campo LIKE '*" & txtNome.Text & "*'
O que o caco postou funciona soh no sql server, no acess tem q ser asterisco
"Quando estou fraco, aí então é que sou Poderoso"
|
