List:Spanish« Previous MessageNext Message »
From:Victor Luis Date:March 26 2003 10:29am
Subject:Re: [mysql] [OT] Consulta en Visual Basic que no da resultado esperado
View as plain text  
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
~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~^~




Thread
[OT] Consulta en Visual Basic que no da resultado esperadoVictor Luis26 Mar
  • Re: [mysql] [OT] Consulta en Visual Basic que no da resultado esperadoVictor Luis26 Mar