| Pregunta: | 37273 - SIGNOS RAROS EN VISUAL BASIC CON TABLAS FOX PRO |
| Autor: | Cristian Parra Moya |
| Tengo el siguiente problema:
Por que cuando me conecto con un control data (DAO), hacia una tabla de fox pro (*.dbf) con el contrlador Fox Pro 3.0, todas las letras con acentos me sales con signos raros: Ejemplo Canción Sale como Canci*n porque??? me dicen que hay un problema de codificacion de los datos como arreglo todo esto???? Saludos | |
| Respuesta: | alex kk |
| bueno amigo, verás, fox pro maneja un formato de caracteres de tipo ansi DOS, asi que al trabajar bajo windows (oem), los caracteres salen mal. para solucionar esto puedes usar una api llamada oemtochar u otra llamada chartooem
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" _ (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" _(ByVal lpszSrc As String, ByVal lpszDst As String) As Long Dim FraseOriginal As String Dim FraseModificada As String FraseOriginal = "¥" 'La que sea 'Haces espacio en el buffer para contener una cadena igual que la original FraseModificada = Space$(Len(FraseOriginal)) OemToChar FraseOriginal, FraseModificada MsgBox FraseModificada 'debe devolver "ñ" | |