Error en Update

[pepelucho]

Hola a todos, estoy tratando de hacer una actualizacion en una tabla pero al momento de meter el codigo en un DO WHILE, me aparece este error, a pesar que la base de datos tiene los permisos de escritura:

Código PHP:

  Tipo de error:
Microsoft JET Database Engine (0x80004005)
La operación debe usar una consulta actualizable.
/cargainicial/index.asp, línea 30 (Es la linea del UPDATE)  
   

Pero si lo pongo fuera del DO, si funciona el update a que se puede dar, este es el codigo q uso

Código PHP:

  Set rs=Server.CreateObject("adodb.recordset")
sql="SELECT data.estprov, MINTM_PROVINCIA.PROVIN_C_codigo,MINTM_DEPARTAMENTO.DEPART_C_CODIGO FROM MINTM_DISTRITO, (MINTM_PROVINCIA INNER JOIN data ON MINTM_PROVINCIA.PROVIN_C_DESCRIPCION = data.estprov) INNER JOIN MINTM_DEPARTAMENTO ON data.estdpto = MINTM_DEPARTAMENTO.DEPART_C_CODIGO WHERE (data.estprov)=(([MINTM_PROVINCIA].[PROVIN_C_DESCRIPCION] ))and data.estdpto = MINTM_DEPARTAMENTO.DEPART_C_CODIGO"
rs.open sql, cn
 
Do while not rs.eof
Set rt=Server.CreateObject("adodb.recordset")
sqld="Update data set estprov='"&rs(1)&"' WHERE estprov='"&rs(0)&"'and estdpto ='"&rs(2)&"'"
 
rt.open sqld,cn
rs.movenext
Loop
%>  
   

[u_goldman]

Hola pepelucho, este es un clásico error de permisos, asegúrate que tu base de datos tenga permisos de lectura/escritura para el usuario del IIS.

Saludos

[pepelucho]

si tiene permisos, cuando hago la consulta con un registro funciona pero cuando mando a toda la bd sale ese error

[u_goldman]

Precisamente porque no tienes permiso de escritura sobre la base de datos o sobre el folder que la contiene, por favor verifica esto si es que es el update, si no es el update, lo que te recomendaria es hacer un execute a la conexion en lugar de abrir otro recordset, pero para mi, el error es lo primero.

Saludos

[mamon]

yo también lo veo como permiso de escritura... xq no haces esto?

Set rs=Server.CreateObject("adodb.recordset")
sql="SELECT data.estprov, MINTM_PROVINCIA.PROVIN_C_codigo,MINTM_DEPARTAMENTO .DEPART_C_CODIGO FROM MINTM_DISTRITO, (MINTM_PROVINCIA INNER JOIN data ON MINTM_PROVINCIA.PROVIN_C_DESCRIPCION = data.estprov) INNER JOIN MINTM_DEPARTAMENTO ON data.estdpto = MINTM_DEPARTAMENTO.DEPART_C_CODIGO WHERE (data.estprov)=(([MINTM_PROVINCIA].[PROVIN_C_DESCRIPCION] ))and data.estdpto = MINTM_DEPARTAMENTO.DEPART_C_CODIGO"
rs.open sql, cn

Do while not rs.eof
Set rt=Server.CreateObject("adodb.recordset")
sqld="Update data set estprov='"&rs(1)&"' WHERE estprov='"&rs(0)&"'and estdpto ='"&rs(2)&"'"
response.write(sqld&"<br />")
'rt.open sqld,cn
rs.movenext
Loop
%>

lo que va a hacer es pintar cada query que se ejecutaría... luego corre uno por uno para ver cuál te manda el error.