Ver Mensaje Individual
  #1 (permalink)  
Antiguo 15/08/2007, 08:37
sambora
 
Fecha de Ingreso: abril-2007
Mensajes: 66
Antigüedad: 18 años
Puntos: 0
crear permisos de lectura y escritura asp

Buenas a todos, quisiera qu me ayuden, tengo una base de datos access en mi servidor web, el problema es que cuando trato de actualizar o eliminar datos peus no me permite me sale este error:

Microsoft JET Database Engine error '80040e09'

Cannot update. Database or object is read-only.

/usuario/agregar.asp, line 123

este es el codigo que utilizo para agregar, por cierto en otro servidor me correo perfectamente, quisiera saber ademas como le asigno los permisos de lectura y escritura a mi base de datos que esta en una web, ya que es lo q no eh encotrado, la mayoria lo hacen de forma local

aca les dejo el script que me permite agregar datos

<%
If Request.Form <> "" Then
Dim DB, TBL, matriz_registros, sql

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../base.mdb"))
Set RS = Server.CreateObject("ADODB.recordset")
sql = "select * from productos where categoria = "& Request.Form("categoria") &" and clasificacion = "& Request.Form("clasificacion") &" order by codigo"
RS.Open sql, oConn
'sacamos el RecordSet a una matriz usando GetRows
matriz_registros = rs.getrows

RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing

'Buscamos los máximos de cada dimension
'y sumamos uno porque las matrices empiezan en 0
dim fila
'cant_campos = UBound(matriz_registros,1) + 1
cant_registros = UBound(matriz_registros,2) + 1
fila = cant_registros - 1
des = matriz_registros(3,fila)
cod = matriz_registros(2,fila)
newcod = cod + 1

' Response.write "Cantidad de Campos: "& cant_campos
' Response.Write "<BR>"
' Response.write "Cantidad de Registros: "& cant_registros
' Response.Write "<BR>"
' Response.write "DESCRIPCIÓN: "& des
' Response.Write "<BR>"
' Response.write "CODIGO: "& cod
' Response.Write "<BR>"
' Response.write "NUEVO CODIGO: "& newcod

'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../base.mdb"))

TBL.Open "Productos" ,DB, 1, 2

TBL.AddNew
TBL("categoria") = Request.Form("categoria")
TBL("clasificacion") = Request.Form("clasificacion")
TBL("codigo") = newcod
TBL("proDescripcion") = Request.Form("proDescripcion")
TBL("proPrecio") = Request.Form("proPrecio")
TBL("proPrecioS") = Request.Form("proPrecioS")
TBL("proCaracteristica") = Request.Form("proCaracteristica")
TBL("Garantia") = Request.Form("Garantia")
TBL.Update
TBL.Close

DB.Close

Set DB = Nothing
Set TBL = Nothing

Response.Write "Se agregó con exito la información"
else
%>