Error ADODB.Recordset error '800a0cb3'

[fjmasero]

Wenas:

Estoy desarrollando para un portal con páginas asp (vbscript). El gestor de bases de datos es SQL Server 2000.

Sin embargo, los accesos a la base de datos los hago mediante una dll realizada en VB 6.0.

En una clase de la dll tengo el siguiente código:

Código:

....
lsSQL = "SELECT TOP " & piNumReg * piNumPag & " * 
from Empleo"

'Definicion de la consulta
Dim loCmd As ADODB.Command
Set loCmd = New ADODB.Command
Set loCmd.ActiveConnection = Conexion
loCmd.CommandText = lsSQL
loCmd.CommandType = ADODB.adCmdText

'Obtenemos el resultado de la consulta almacenandolo 
en un RecordSet
Dim loRs As ADODB.Recordset
Set loRs = New ADODB.Recordset
loRs.Open loCmd, , ADODB.adOpenStatic, 
ADODB.adLockOptimistic

'Nos posicionamos en el primer registro de la pagina
loRs.PageSize = piNumReg
If loRs.RecordCount <> 0 Then loRs.AbsolutePage = 
piNumPag
....

Las vars piNumReg y piNumPag son parametros recibidos en
el método en cuestión.

Pues si en vez de hacer el select del inicio, hago Select DISTINCT TOP ..., y el resto =, me da el siguiente
error:

ADODB.Recordset error '800a0cb3'
El Recordset actual no admite marcadores. Puede ser una
limitación del proveedor o del tipo de cursor
seleccionado.

Y la única diferencia es el distinct.

He probado este Select Distinct Top ... desde el Analizados de Consultas y funciona bien.

¿xq puede ser?.

Salu2 y gracias

[Myakire]

Aca al soluciones en un post anterior (http://desaweb.forosdelweb.com/s6e66...msg156756.html), en ese post las soluciones no le sirvieron por que usaba MySQL pero seguro a ti si te servirán.

Saludos

[fjmasero]

Hola Myakire:

Gracias por contestar.

Perdoname, pero, seguramente por mi torpeza, no veo en que me puede ayudar el post que me indicas.

Como Isanchez, tb he probado diferentes combinaciones en el .Open, y na'.

Salu2

[fjmasero]

¿Nadie me ayuda?

[Carlos Tipa]

El error es de codigo:

Revisa la siguiente linea de codigo:

loRs.Open loCmd, , ADODB.adOpenStatic,
ADODB.adLockOptimistic

debes verificar que si piensas trabajar con paginacion debes tomar en cuenta los tipos de cursores:

en resumen, verifica que el record set tenga las siguientes propiedades:
sdt_rst.CursorType = 3
sdt_rst.LockType = 1

o en tu caso:

loRs.Open dataSQL, conn, 3, 1, &H0001

donde: 3 = adOpenStatic, 1 = adLockReadOnly, &H0001 = adCmdText


para mas informacion puedes revisar estos articulos:

http://www.aspfaq.com/show.asp?id=2320
http://www.aspfaq.com/show.asp?id=2120