Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/06/2006, 16:55
pepelucho
 
Fecha de Ingreso: enero-2002
Ubicación: Callao - Perú
Mensajes: 1.127
Antigüedad: 23 años, 3 meses
Puntos: 0
Exclamación Error en Update

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.asplí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 sqlcn
 
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
%> 
__________________
SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO