Esta claro, vale... pero no detecto el error

[sgafo]

Va mensaje:

Microsoft OLE DB Provider for ODBC Drivers error '80040e09'

[Microsoft][ODBC Microsoft Access Driver] Record(s) cannot be read; no read permission on 'tabla1'.


al intentar leer de una tabla

el error esta claro, pero no se donde esta el fallo

¿Me podeis orientar?

[urjose]

como estas abriendo el Recodset?

Saludos

[sgafo]

Va fragmento de codigo:

<%Set Connae = Server.CreateObject("ADODB.Connection")
Connae.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\db\encuesta.mdb"))

set rse=createobject("ADODB.Recordset")
rse.open "select * from tabla1",connae
if not rse.EOF then%>

......

[maestro]

rse.open "select * from tabla1",connae

La sintaxis deberia ser:
rse.open SQL, connae,1,2

Si el tema es de los cerrojos revisa esto:
http://www.aspfacil.com/articulos/040401.asp

[sgafo]

maestro:

La sintaxis deberia ser:
rse.open SQL, connae,1,2

Veras: antes de instertar este mensaje tenia el codigo muy similar a como me indicas, y como me daba el mismo error lo tome de otro sitio donde hago una consulta similar y me funciona perfectamente. Ese ultimo codigo es el que esta aqui insertado.

De todos modos en cuanto pueda probare de nuevo lo que me indicas.

Otra preguntita: normalente pruebo la pagina con Netscape porque me muestra los errores. ¿Es que acaso IE no los muestra?

¿Que tengo que hacer? Ademas es un coña.zo porque en local no puedo probarlo, tengo que subir los cambios al servidor.

Ah.... y gracias.

[urjose]

En IE, Tools -> Options -> Advanced y marcas "Show Friendly Http messages"

Saludos
Yamvoy a dormir

[sgafo]

Gracias Urjose...

Buenas noches.

Yo voy a trabajar

[sgafo]

hay algo que estoy haciendo mal en un form y no capto lo que es

¿como puedo saber que valor debo pasar al hacer un form?

y no me refiero a visualizar por pantalla <%request.form("opcion")%>, me refiero a ANTES de llamar al codigo con ese valor

por dios, aconsejadme algun manual basico, sencilltio y practico por me vuelvo y os vuelvo locos con estas tonterias

[bakanzipp]

no capto...

kieres saber las variables que pasas por el form?

si es asi haz esto

response.write request.form

[GhostRider]

Mensaje Original por sgafo
hay algo que estoy haciendo mal en un form y no capto lo que es

¿como puedo saber que valor debo pasar al hacer un form?

y no me refiero a visualizar por pantalla <%request.form("opcion")%>, me refiero a ANTES de llamar al codigo con ese valor

por dios, aconsejadme algun manual basico, sencilltio y practico por me vuelvo y os vuelvo locos con estas tonterias

no entiendo esta pregunta

Connae.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\db\encuesta.mdb"))

Intenta cambiar por esto:

Conae.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath ("/db/encuesta.mdb")
Coane.Open()


Tambien revisa si la base de datos no requiere que declares username y password.

[CHuLoSoY]

<%Set Connae = Server.CreateObject("ADODB.Connection")
Connae.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\db\encuesta.mdb"))

set rse=createobject("ADODB.Recordset")
rse.open "select * from tabla1",connae
if not rse.EOF then%>

Si estás en brinkster deberás quitar los ..\. Pon así:

& Server.MapPath("/canciones/db/encuestas.mdb"))

[sgafo]

a ver, rebobinando....

de momento nos olvidamos de abrir la bd y de recoger datos de ella, ¿vale? porque hacia cosas innecesarias (a veces no se puede coger codigo sin mas, de hecho a mi casi nunca me funciona, siempre tengo que revolverlo mil y una veces hasta que doy con lo que quiero hacer)

ahora lo que me pasa es que tengo un asp que muetra una serie de campos englobados con un form, y se debe llamar a si mismo con un argumento resultante de una seleccion de los datos en cuestion (como ya sabeis es una encuesta, asi que no hay que decir mas)

pues bien, no me pasa ningun valor, y no entiendo porque

intento mostrarlo con <%request.form("opcion")%> como una simple etiqueta, y no hay tu tia, esta vacio

aun no he podido probar lo que me has indicado, bakanzipp, quiza pueda hacerlo mas tarde.

y lo del manual va en serio, chicos

no se puede pretender aprenderlo todo sobre la marcha :(

ah, y gracias

[AlZuwaga]

<%request.form("opcion")%>

no leí todo el rollo previo, pero ahí está faltando un response.write:

<% response.write request.form("opcion")%>

o lo que es lo mismo,

<% = request.form("opcion")%>

[sgafo]

no leí todo el rollo previo...

te estas convirtiendo en un marrano cualquiera?????

bueno... tenias razon, un fallo muy estupido, pero sigue sin hacer lo que quiero que haga

seguire haciendo pruebecillas



mañana...

[sgafo]

Ghosty
Tambien revisa si la base de datos no requiere que declares username y password.

y eso como se verifica??

porque volvemos alpunto de partida.... vuelta con el error siguiente:

Microsoft OLE DB Provider for ODBC Drivers error '80040e09'

[Microsoft][ODBC Microsoft Access Driver] Record(s) cannot be read; no read permission on 'tabla1'.


y me da lo mismo poner lo que tu me indicas que lo que me indica chulosoy

creo que me estoy liando a lo imbecil

[CHuLoSoY]

es que no entiendo bien qué quieres hacer... lo que quieres es que sume 1 al campo que corresponda según se elija en la encuesta?

Yo utilizo lo siguiente:

<%
'conexion a la base
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"

'selección d todo en cuentamsg
strsql = "SELECT * FROM encuestas where id="&request.querystring("id")&""

Set rs = Server.CreateObject("ADODB.RecordSet")
RS.open strsql, oConn, 3, 3

votos=Request.querystring("opcion")

'añadimos 1 a los votos
rs(votos)=rs(votos)+1
rs.update

rs.Close
set rs=nothing
oConn.Close
%>

y luego más abajo las operaciones para los porcentajes y mostrar los resultados... etc.

Saludos.

[sgafo]

copiado integro tu codigo, sigo teniendo el error de permisos de lectura en esta linea

RS.open strsql, oConn, 3, 3

(sgafo consigo misma)

[sgafo]

veamos: me he vuelto a poner con esto y sigo con el mismo error

adjunto fragmento de codigo:

'conexion a la base
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\db\encuesta.mdb"))

strsql = "SELECT * FROM tabla1"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open strsql, oConn, 3, 3

y me da el siguiente error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e09'

[Microsoft][ODBC Microsoft Access Driver] Record(s) cannot be read; no read permission on 'tabla1'.

/canciones/encuesta/encuesta2.asp, line 79


que referiere a la linea en negrita

a ver si me lo podeis aclarar

gracias

[bakanzipp]

probaste asi?

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\db\encuesta.mdb"))

strsql = "SELECT * FROM tabla1"

Set rs = Server.CreateObject("ADODB.RecordSet")

Set rs = oConn.execute(strsql)

sino...anda revisando los permisos de tu carpeta y b de datos

[sgafo]

pues ahora el error me da en la sgte linea de tu codigo, bakanzipp:

Set rs = oConn.execute(strsql)

exactamente el mismo...

y o algo hago mal o los permisos estan correctos

[bakanzipp]

revistaste los permisos?

[sgafo]

si

mi no comprenderrrr

[bakanzipp]

hhhmmm...

te pasa esto solo con esa tabla en particular o con toda la b de datos.

si te pasa lo mismo con cualquier tabla de la base...vuelvo a insistir hay problemas de permisos (boton derecho sobre carpeta y archivo...en carpeta full control y en archivo deschekear readonly),

sino...has esto

muda la base a otra carpeta y haz la prueba...o crea una nueva b de datos e importa todas ls tablas.

si te pasa el problema solo con una tabla de la base de datos...mi no entender como puede suceder eso

[sgafo]

muchisimas gracias por las molestias.

lo miro y te respondo

[sgafo]

buenooooo

he revisado la tabla y la bd y como no detecte donde estaba el problema he insertado la tabla en otra bd que ya estoy utilizando

al hacer el update me da el siguiente error :

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

¿puede ser una cuestion de cerrojo o cursor?

¿como se debe abrir una bd para hacer un update?

[bakanzipp]

AL IGUAL QUE HACER CUALQUIER CONSULTA SQL..

TE RECOMIENDO QUE CUANDO EJECUTES EL SQL, LO HAGAS DE LA SIGUIENTE MANERA

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\db\encuesta.mdb"))

strsql = "UPDATE SET TABLA CAMPO....."

ON ERROR RESUME NEXT
oConn.execute(strsql)
IF ERR.NUMBER <>0 THEN

RESPONSE.WRITE ERR.DESCRIPTION
END IF

[sgafo]

lo he resuelto al fin!!!!! (aunque ahora tengo otro problema)

lo hice asi:

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\db\librovisitas.mdb"))

Set rs = Server.CreateObject("ADODB.RecordSet")

rs.CursorType=adOpenKeyset
rs.LockType=adLockOptimistic

strsql = "SELECT * FROM encuesta"

rs.Open strsql, oConn