Buenas de nuevo.
Resulta que acabo de encontrar el error.
Viene documentado por MySQL.
Por si alguien tiene interés viene en la sección:
8.3.5 Programs Known to Work with MyODBC
...
...
ADO
When you are coding with the ADO API and MyODBC you need to put attention in
some default properties that aren't supported by the MySQL server. For
example, using the CursorLocation Property as adUseServer will return for
the RecordCount Property a result of -1. To have the right value, you need
to set this property to adUseClient, like is showing in the VB code here:
Dim myconn As New ADODB.Connection
Dim myrs As New Recordset
Dim mySQL As String
Dim myrows As Long
myconn.Open "DSN=MyODBCsample"
mySQL = "SELECT * from user"
myrs.Source = mySQL
Set myrs.ActiveConnection = myconn
myrs.CursorLocation = adUseClient
myrs.Open
myrows = myrs.RecordCount
myrs.Close
myconn.Close
Another workaround is to use a SELECT COUNT(*) statement for a similar query
to get the correct row count.
...
...
Gracias por todo.
Nos leemos.
Víctor Luis
----- Original Message -----
From: "Victor Luis" <victorfl@stripped>
To: <mysql@stripped>
Cc: <mysql-es@stripped>
Sent: Wednesday, March 26, 2003 10:35 AM
Subject: [mysql] [OT] Consulta en Visual Basic que no da resultado esperado
Buenas
Tengo un pequeño problema
Realizo una consulta que en visual basic no me devuelve nada, pero usando
phpmyadmin u otros programas como dbmanager me funciona perfectamente y me
devuelve 3 registros
La consulta va en la variable cadenaConsulta y es la siguiente:
SELECT DISTINCT ruta.nombre FROM ruta, jornada,
jornada_enclave,enclave,ruta_documento,documento,
ruta_punto_informacion,punto_informacion,ruta_interes WHERE (1)
El código que ejecuta dicha consulta en visual basic es:
Set rs1 = New ADODB.Recordset
rs1.Open cadenaConsulta, gConnection, adOpenStatic, adLockPessimistic,
adAsyncFetch
MsgBox rs1.RecordCount
For i = 1 To rs1.RecordCount Step 1
lstRutasExistentes.AddItem (rs1("nombre"))
rs1.MoveNext
Next i
Set rs1 = Nothing
Espero que alguien me pueda ayudar
Gracias por todo
Víctor Luis
PD1: Saludos a la gente de la lista mysql-es@stripped. Este es mi
primer correo a dicha lista. Espero que no sea el único. ;)
---------------------------------------------------------------------
Para darte de baja, envía un mensaje a: mysql-baja@stripped
Para obtener ayuda, visita http://www.eListas.net/foro/mysql
_______________________________________________________________________
Visita nuestro patrocinador:
~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~
¿Deseas conocer a alguien al otro lado del mundo...?
¿...al otro lado de la esquina?
¿Deseas hacer nuevos amigos?
!!Conoce la mayor red de contactos y amistades hispana en Internet!!
Haz clic aquí -> http://elistas.net/ml/117/8673678479827076/mzdpt3ft
~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~
