
15/08/2007, 08:37
|
| | 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
%> |