Tengo inconvenientes con el siguiente error:
ADODB.Field (0x80020009)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
Este se produce cuando realizo una búsqueda sobre datos y los registros no poseen dicho dato.
He tratado de controlar el error pero no logro conseguirlo. Por favor necesitaría un consejo, para facilitarme la tarea.
Aca va el codigo...
<%
set cnStHol=Server.CreateObject("ADODB.Connection")
set rsVis=Server.CreateObject("ADODB.Recordset")
cnStHol = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("DataBase/servicemen.mdb")
sql="SELECT cv.Id_cv, cv.postulacion, cv.Fecha, cv.Apellido, cv.Nombre, cv.Disponible, cv.Provincia, cv.Industria, cv.Provincia, cv.sexo, cv.Hijos, Rubro.Id_Rubro, Rubro.Rubro"
sql=sql&" FROM cv INNER JOIN Rubro ON (cv.Postulacion = Rubro.Id_Rubro)"
sql=sql&" WHERE postulacion = " &Request.Form("postulacion")&" AND Industria = "&Request.Form("industria")&""
response.write(sql)
rsVis.Open sql, cnStHol %>
<% If (not rsVis.BOF) And (not rsVis.EOF) Then %>
<%Do While (not rsVis.BOF) And (not rsVis.EOF)%>
<%=rsVis("Nombre")%>
<%=rsVis("Apellido")%>
<% rsVis.MoveNext
LOOP
Else
Response.Write("No existen registros que coincidan con la busqueda !!!!!")
End If %>
No logro controlar que cuando no coincida con ningun registro me dé un mensaje simplemente. Me tirá el error antes mencionado.
Gracias por su ayuda.
RESULTADO DEL RESPONSE.WRITE(“sql”)
SELECT cv.Id_cv, cv.postulacion, cv.Fecha, cv.Apellido, cv.Nombre, cv.Disponible, cv.Provincia, cv.Industria, cv.Provincia, cv.sexo, cv.Hijos, Rubro.Id_Rubro, Rubro.Rubro FROM cv INNER JOIN Rubro ON (cv.Postulacion = Rubro.Id_Rubro) WHERE postulacion = 1 AND Industria = 1
La consulta es mas larga pero desde aca ya tira ese error...
Gracias nuevamente.
