ordenar un recordset
Publicado por Powermer (1 intervención) el 21/07/2001 13:42:58
Hola, me acabo de incorporar al acceso a datos con ADO y Access y tengo el siguiente problema.
Tengo un control ADO en el lado del cliente y de tipo estático y un recordset que le asigno con las mismas características, sin embargo al intentar ordenar el recordset con el método sort me da el siguiente error:
"error 3251, la operación solicitada por la aplicación no es admitida por el proveedor" y si compruebo el valor de cursorlocation del control Ado vale adUseServer a pesar de que yo lo puse de tipo adUseClient. ¿Alguien sabe porqué ocurre esto? Se que podría usar la orden ORDER BY pero me interesa más usar Sort.
A continuación os envío el código que utilizo.
Dim Cn as connection
dim Rs as ADODB.Recordset
Set Cn = New ADODB.Connection
Set RS = New ADODB.Recordset
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= " & gsAdobase
Cn.Open
Rs.cursorlocation = adUseCliente
RS.Open "SELECT * FROM MProveedor", Cn, adOpenStatic, adLockReadOnly
Ado1.cursorlocation = adUseClient
set Ado1.Recordset = RS
Ado1.Refresh
Rs.sort = nombrecampo
Tengo un control ADO en el lado del cliente y de tipo estático y un recordset que le asigno con las mismas características, sin embargo al intentar ordenar el recordset con el método sort me da el siguiente error:
"error 3251, la operación solicitada por la aplicación no es admitida por el proveedor" y si compruebo el valor de cursorlocation del control Ado vale adUseServer a pesar de que yo lo puse de tipo adUseClient. ¿Alguien sabe porqué ocurre esto? Se que podría usar la orden ORDER BY pero me interesa más usar Sort.
A continuación os envío el código que utilizo.
Dim Cn as connection
dim Rs as ADODB.Recordset
Set Cn = New ADODB.Connection
Set RS = New ADODB.Recordset
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= " & gsAdobase
Cn.Open
Rs.cursorlocation = adUseCliente
RS.Open "SELECT * FROM MProveedor", Cn, adOpenStatic, adLockReadOnly
Ado1.cursorlocation = adUseClient
set Ado1.Recordset = RS
Ado1.Refresh
Rs.sort = nombrecampo
Valora esta pregunta
0