Hola :)
Tengo una aplicación en ASP que tiene vinculada una base de datos en Access.
Desde hace unos días, estoy comenzando el traspaso a una base de datos en MySql.
Tras comprobar que hay algunos cambios entre Access y MySql que he conseguido corregir, me encuentro con el problema de que en una página en la que se cargan unos datos de un SELECT en una tabla, me da el siguiente error
Cita: ADODB.Recordset error '800a0cb3'
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
/consulta_personal.asp, line 46
La línea del error es esta
RS.AbsolutePage = pagina_actual
Pego el código de ASP para que lo podaís revisar y ayudarme a solucionar este quebradero de cabeza que me lleva martirizando varios días
Código:
Cita: <%
mostrar = 10
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
Dim conn_bd
conn_bd = "Driver={MySQL ODBC 5.1 Driver};Server=gmwebserver;Port=3306;Database=inci dencies;Uid=inc;Pwd=tcb2008"
Set Conn=Server.CreateObject("ADODB.Connection")
'Conn.Open "TCB"
Conn.Open (conn_bd)
sSql="Select * from Incidencias where técnico='" & Session("nombre") & " " & Session("apellidos") & "'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar
RS.Open sSql, Conn, 3,1
cant_paginas = RS.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas = 0 Then
Response.Write "No hay registros"
Else
RS.AbsolutePage = pagina_actual
End If%>
<table border="2">
<th>Código Incidencia</th>
<th>Fecha</th>
<th>Nombre</th>
<th>Apellido</th>
<th>Departamento</th>
<th>Extensión</th>
<th>Incidencia</th>
<th>Técnico Asignado</th>
<th>Resolución</th>
<th>Visualizar</th>
<%Do While registro_mostrado < mostrar And Not RS.Eof%>
<tr>
<td><%=RS("codigo_incidencia")%></td>
<td><%=RS("fecha")%></td>
<td><%=RS("nombre")%></td>
<td><%=RS("apellidos")%></td>
<td><%=RS("departamento")%></td>
<td><%=RS("extension")%></td>
<td><%=RS("incidencia")%></td>
<td><%=RS("técnico")%></td>
<td><%=RS("resolucion")%></td>
<td><form method="post" action="ficha.asp">
<input type="hidden" value="<%=RS("codigo_incidencia")%>" name="cod_inc">
<input type="submit" value="Actualizar" />
</form></td>
</tr>
<%
RS.MoveNext
registro_mostrado = registro_mostrado + 1
Loop
Conn.Close
RS.Close%>
Muchas gracias y un saludo!!