Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Problemas ortograficos
 Foro Bloqueado  Tema Bloqueado


Autor Temas
vgta
New Member


56 Posts
Mensajes - 05 Mar 2002 :  10:09:46  Ver Perfil  Enviar Email
Al hacer una consulta en una base de datos donde un campo esta escrito con acentos
tengo que obligatoriamente tambien escribir los acentos?
Como puedo hacer para que tenga en cuenta los acentos
Gracias

buho_nero
Moderator

España
1316 Posts
Posted - 05 Mar 2002 :  11:28:07  Ver perfil  Enviar e-mail
Si planteas esto es que no puedes cambiar nada de la base, te comprendo y sufro contigo.
Nunca me ha ocurrido, pero sé que la forma de acentuar letras es con el "acute;"

á = aacute; ó = oacute;

Espero que funcione

Inicio Pagina

vgta
New Member


56 Posts
Posted - 05 Mar 2002 :  12:42:26  Ver perfil  Enviar e-mail
El problema es que quiero hacer un formulario donde ingresen un texto a buscar dentro de la base
pero si lo escriben sin acentos la comparacion falla

Inicio Pagina

buho_nero
Moderator

España
1316 Posts
Posted - 05 Mar 2002 :  13:47:45  Ver perfil  Enviar e-mail
Puedes intentar el LIKE en la SQL
En vex de una comparación cadena1 = cadena2 usa cadena1 LIKE cadena2.
Quizá funcione

Inicio Pagina

Parsons
Moderator

España
1247 Posts
Posted - 05 Mar 2002 :  15:38:46  Ver perfil  Enviar e-mail  Visit Parsons's Homepage
Si usas SQL, mira las intercalaciones, que son las que permiten discriminar entra la busqueda con o sin acentos. Cambialo a Latin_Español.

Inicio Pagina

vgta
New Member


56 Posts
Posted - 06 Mar 2002 :  10:25:11  Ver perfil  Enviar e-mail
el comando like no funciona y eso de las intercalaciones no se donde se cambia yo estoy usando SQL en asp

Inicio Pagina

imoito
Junior Member

España
102 Posts
Posted - 06 Mar 2002 :  17:31:50  Ver perfil  Enviar e-mail
Puedes usar la siguiente función que va de maravilla:

mivar = acentos(mivar)

Function acentos(Str)
Dim ac
For x = 1 To Len(Str)
ac = Mid(Str, x, 1)
Select Case ac
Case "a", "à", "á"
acentos = acentos & "[aàá]"
Case "e", "é", "è"
acentos = acentos & "[eéè]"
Case "i", "ì", "í"
acentos = acentos & "[iìí]"
Case "o", "ò", "ó"
acentos = acentos & "[oòó]"
Case "u", "ù", "ú"
acentos = acentos & "[uùú]"
Case "n", "ñ", "Ñ"
acentos = acentos & "[nñÑ]"
Case Else
acentos = acentos & ac
End Select
Next
End Function
;-) Espero que sea lo que buscas


Un saludo.
Inicio Pagina

jolas
Starting Member

Chile
6 Posts
Posted - 12 Sep 2007 :  07:09:17  Ver perfil  Enviar e-mail
Gracias imoito, me has solucionado un grán problema. Llevaba tiempo viendo cómo solucionar esto y me funcionó perfecto con Access y SQL.
Igual la mejoré un poco para que no discriminara acentos en mayúscula. Aquí va:

Function acentos(Str)
Dim ac
Dim x
For x = 1 To Len(Str)
ac = Mid(Str, x, 1)
Select Case ac
Case "a","à","á","Á","À"
acentos = acentos & "[aàá]"
Case "e","è","é","É","È"
acentos = acentos & "[eéè]"
Case "i","ì","í","Í","Ì"
acentos = acentos & "[iìí]"
Case "o","ò","ó","Ó","Ò"
acentos = acentos & "[oòó]"
Case "u","ù","ú","Ú","Ù"
acentos = acentos & "[uùú]"
Case "n","ñ","Ñ"
acentos = acentos & "[nñÑ]"
Case Else
acentos = acentos & ac
End Select
Next
End Function

Saludos y que le sirva a otros.

Jorge

Jorge ChilenoInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar