18/08/2004, 15:28
|
| | | Fecha de Ingreso: mayo-2003
Mensajes: 15
Antigüedad: 22 años Puntos: 0 | |
| ERROR ADODB.Recordset error '800a0e78'
HOLA AMIGOS POR FAVOR NECESITO SU AYUDA
LA PAGINA ME TIRA EL SIGUIENTE ERROR
ADODB.Recordset error '800a0e78'
La operación no está permitida si el objeto está cerrado.
/INVENTARIO/guardarentradas.asp, line 48
Y EL CODIGO ES ESTE
<%
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("inventario.mdb")
sSQL="Update PRODUCTOS Set STOCK='" & STOCK & "' Where NOMBRE='" & NOMBRE & "'"
set rst = cnn.Execute(sSQL)
NOMBRE = Request.Form("fld201NOMBRE1")
UNIDAD_MEDIDA = Request.Form("fld201UNIDAD_MEDIDA1")
PROVEEDOR = Request.Form("fld201PROVEEDOR1")
PRECIO_COMPRA = Request.Form("fld201PRECIO_COMPRA0")
IVA = Request.Form("fld201IVA0")
ILA = Request.Form("fld201IVAchr3220")
PORCENTAJE = Request.Form("fld201PORCENTAJE0")
STOCK = Request.Form("fld201STOCK0")
NUEVAS = Request.Form("fld201PRECIO_VENTA0")
IVA5 = IVA / 100
IVA6 = ILA / 100
PORCENTAJE = PORCENTAJE / 100
IVA3 = IVA5 + IVA6
PRECIO1 = PRECIO_COMPRA * PORCENTAJE
PRECIO2 = PRECIO_COMPRA * IVA3
PRECIO_VENTA = PRECIO_COMPRA + PRECIO1 + PRECIO2
STOCK = STOCK + NUEVAS
TOTAL = PRECIO_VENTA * STOCK
IVA5 = IVA5 * 100
IVA6 = IVA6 * 100
PORCENTAJE = PORCENTAJE * 100
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew // AQUI ME DICE QUE ESTA EL ERROR
rst("NOMBRE") = NOMBRE
rst("UNIDAD_MEDIDA") = UNIDAD_MEDIDA
rst("PROVEEDOR") = PROVEEDOR
rst("PRECIO_COMPRA") = PRECIO_COMPRA
rst("IVA") = IVA
rst("IVA 2") = ILA
rst("PORCENTAJE") = PORCENTAJE
rst("FECHA") = FECHA
rst("STOCK") = STOCK
rst("TOTAL") = TOTAL
rst.update
'Terminamos e imprimimos un mensaje
Response.Write "El stock se actualizo con exito "
%>
<html>
<head>
</head>
<body bgColor="#9596AC">
</body>
</html> |