Problema con la "Ñ", vb6 y mysql
Publicado por Jesus (20 intervenciones) el 05/08/2011 00:27:19
Tengo la siguiente busqueda.. donde busco Apellido en un campo de una base de datos
en MYSQL tengo
mysql> select nombre from clientes where nombre like 'TREVIÑ%';
+--------------------------------+
| nombre |
+--------------------------------+
| TREVIÑO BUENDIA MARTHA |
| TREVIÑO LOREDO NICOLAS |
| TREVIÑO MORENO ANA MARIA |
| TREVIÑO RODRIGUEZ GRACIA MARIA |
+--------------------------------+
4 rows in set (0.03 sec)
El problema es que no logro hacelo en vb6, ya que no encuentra registros, al parecer el error es por la "Ñ" (eñe). alguna idea????
uso el siguente codigo VB6
Set cn = New ADODB.Connection
cn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=100.100.100.50;CHARSET=latin1;DATABASE=PRUEBA;OPTION=3;USER=root;PASSWORD='" & Pass & "';PORT=3306"
Set TablaAux2 = New ADODB.Recordset
TablaAux2.CursorType = adOpenStatic
TablaAux2.CursorLocation = adUseClient
TablaAux2.LockType = adLockOptimistic
TablaAux2.ActiveConnection = cn
sSQL = "SELECT * FROM Clientes WHERE Nombre LIKE 'TREVIÑ%'"
TablaAux2.Source = sSQL
MsgBox sSQL
TablaAux2.Open
Gracias por sus sugerencias...
en MYSQL tengo
mysql> select nombre from clientes where nombre like 'TREVIÑ%';
+--------------------------------+
| nombre |
+--------------------------------+
| TREVIÑO BUENDIA MARTHA |
| TREVIÑO LOREDO NICOLAS |
| TREVIÑO MORENO ANA MARIA |
| TREVIÑO RODRIGUEZ GRACIA MARIA |
+--------------------------------+
4 rows in set (0.03 sec)
El problema es que no logro hacelo en vb6, ya que no encuentra registros, al parecer el error es por la "Ñ" (eñe). alguna idea????
uso el siguente codigo VB6
Set cn = New ADODB.Connection
cn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=100.100.100.50;CHARSET=latin1;DATABASE=PRUEBA;OPTION=3;USER=root;PASSWORD='" & Pass & "';PORT=3306"
Set TablaAux2 = New ADODB.Recordset
TablaAux2.CursorType = adOpenStatic
TablaAux2.CursorLocation = adUseClient
TablaAux2.LockType = adLockOptimistic
TablaAux2.ActiveConnection = cn
sSQL = "SELECT * FROM Clientes WHERE Nombre LIKE 'TREVIÑ%'"
TablaAux2.Source = sSQL
MsgBox sSQL
TablaAux2.Open
Gracias por sus sugerencias...
Valora esta pregunta


0