Busca palavras acentuadas


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Busca palavras acentuadas

Rinaldo

SÃO PAULO
SP - BRASIL

Postada em 27/10/2006 11:22 hs

Alguém sabe como eu faço uma busca por palavras acentuadas ou não ao mesmo tempo?

T+

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 27/10/2006 15:00 hs

Se for no acess vc vai ter q usar o braço um pouco amigo... para achar tanto JOAO qto JOÃO faça assim (passando no VB em ADO) :

SELECT *
FROM Tabela_Simples WHERE TEXTO LIKE 'JO[AÃ]O%'

No sql server vc vai ter q criar uma tabela ou um bd assim usando o collation, creio q dá pra alterar tb...

use master
go
create database CS_AS_KS_WS collate Latin_General_CI_AI

Create table Mytable (
[Nome] [char] (25) COLLATE Latin_General_CI_AI NOT NULL
)

Só não tenho certeza q é assim ok? Qq coisa dá uma pesquisada no collate do sql q vc acha direitinho ae...

CI = Case Insensitive
AI = Accent Insensitive

Ae não diferencia maiúsculas/minúsculas e acentuadas/não acentuadas

at+

TÓPICO EDITADO

Desconhecido
não registrado

ENUNCIADA !

Postada em 10/03/2010 18:34 hs

que horror é isso!!

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 12/03/2010 08:57 hs

Faça para o que precisa, esta função substitui acentos:

Public Function removeACENTOS(ByVal srtexTO As String) As String
Dim vPOS As Byte
Const vCOMACENTO = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü""''ºª"
Const vSEMACENTO = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu      "
    For icouNT = 1 To Len(srtexTO)
        vPOS = InStr(1, vCOMACENTO, Mid(srtexTO, icouNT, 1))
        If vPOS > 0 Then
            Mid(srtexTO, icouNT, 1) = Mid(vSEMACENTO, vPOS, 1)
        End If
    Next
    removeACENTOS = srtexTO
End Function

Para chamar:

Text1.Text = removeACENTOS(Text1.Text)

Veja se serve.

vlu//

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR