From: Victor Luis
Date: March 26 2003 9:35am
Subject: [OT] Consulta en Visual Basic que no da resultado esperado
List-Archive: http://lists.mysql.com/mysql-es/12
Message-Id: <001c01c2f37b$1c830230$03001aac@flores2>
MIME-Version: 1.0
Content-Type: multipart/alternative;	boundary="----=_NextPart_000_0019_01C2F383.7D408180"

------=_NextPart_000_0019_01C2F383.7D408180
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Buenas.

Tengo un peque=F1o 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=F3digo que ejecuta dicha consulta en visual basic es:

    Set rs1 =3D New ADODB.Recordset
    rs1.Open cadenaConsulta, gConnection, adOpenStatic, =
adLockPessimistic, adAsyncFetch
   =20
    MsgBox rs1.RecordCount
   =20
    For i =3D 1 To rs1.RecordCount Step 1
        lstRutasExistentes.AddItem (rs1("nombre"))
        rs1.MoveNext
    Next i

    Set rs1 =3D Nothing

Espero que alguien me pueda ayudar.

Gracias por todo.

V=EDctor 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 =FAnico. ;)



------=_NextPart_000_0019_01C2F383.7D408180--