para MVALLEJOS o quien pueda porfa!
PROBLEMA CON IDIOMA DE LA BD
Hola, tengo Access2003 en español y estoy haciendo una conexión con ADO desde VB, el problema es que tengo datos acentuados en la bd (como "León") y cuando desde vb hago un query sql con LIKE, por ejemplo LIKE 'Leon', no considera "León" como coincidencia, es decir que considera una "ó" distinta a una "o" y esto no deberia pasar.
Con mayusculas y minusculas no tengo problema, pero el problema es con los acentos, ahora no se si hay alguna forma de ponerle un idioma a la BD, o realizar los queries para que considere cierto idioma en la bd... se que en alguna parte hay que poner que sea en Español pero no se donde...
Espero tu ayuda, o de quiensea sepa como solucionar esto. Muchas gracias
Gracias
Hola, tengo Access2003 en español y estoy haciendo una conexión con ADO desde VB, el problema es que tengo datos acentuados en la bd (como "León") y cuando desde vb hago un query sql con LIKE, por ejemplo LIKE 'Leon', no considera "León" como coincidencia, es decir que considera una "ó" distinta a una "o" y esto no deberia pasar.
Con mayusculas y minusculas no tengo problema, pero el problema es con los acentos, ahora no se si hay alguna forma de ponerle un idioma a la BD, o realizar los queries para que considere cierto idioma en la bd... se que en alguna parte hay que poner que sea en Español pero no se donde...
Espero tu ayuda, o de quiensea sepa como solucionar esto. Muchas gracias
Gracias
Prueba "traducir" ASCII a ANSII (windows)
La función que realiza esto es:
Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal
lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As
Long
Dim origen AS String, destino AS String, l as Long
destino = Space$(Len(origen))
l=OemToCharBuff(origen, destino , Len(destino))
Espero que te sirva.
Un saludo.
La función que realiza esto es:
Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal
lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As
Long
Dim origen AS String, destino AS String, l as Long
destino = Space$(Len(origen))
l=OemToCharBuff(origen, destino , Len(destino))
Espero que te sirva.
Un saludo.