PROBLEMA CON ADODB Y windows 98

Tengo el siguiente código:
dim rs as adodb.recordset
dim consulta as string
cn.open (basedatos)
set rs = new adodb.recorset
let consulta = "select cg030 from zcomcga"
rs.open consulta, cn, adopendynamic, adlockoptimistic
if not rs.eof then
....
else
....
end if
Pues siempre me entra por el else, es decir ve la tabla como si estuviera vacía y realmente hay datos! Lo más raro de todo es que éste código me falla en Windows 98 porque en el 2000 me funciona perfectamente! Si abro con el access la tabla la veo perfectamente y con datos! ¿En dónde está el problema? Instalé el dcom98 y el mdac_ty pero me sigue sin funcionar! ¿Tiene alguien una solución?
Muchas gracias.

1 respuesta

Respuesta
1
Pueden ser varias cosas, la más sencilla que se me ocurre inicialmente es que, para ver si la tabla esta vacía, hay que mirar el eof y el bof:
If Not (rs.BOF and rs.EOF) Then
...
Else
...
End If
Lo que te funcione en 2000 me despista un poco, puede que el comportamiento no sea el mismo según el sistema operativo, pero por si acaso, mira si la version del mdac_typ que has instalado es la misma que utilizas en el proyecto cuando lo ejecutas en el 2000, pues este S.O. lleva ya por defecto un acceso ADO moderno.
Si ninguna de estas dos cosas funciona dímelo y pienso en más posibilidades.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas