Error ODBC hosting ASP
Publicado por Juan (1 intervención) el 14/02/2002 13:40:34
Hola!
El código funciona en mi intranet pero no en internet.
Este es el mensaje de error que me pone.
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or
object is read-only.
La conexión funciona pero da error cuando quiere escribir un registro
para añadir o modificar.
Esto funciona en intranet ( LAN) y con el PWS y con IIS 4 con NT 3.5
Te paso el código en ASP de la conexión:
<!--#INCLUDE FILE="ADOVBS.inc"-->
<%
SET Cnn =Server.CreateObject ("ADODB.Connection")
SET RS = Server.CreateObject ("ADODB.RecordSet")
SET RS2= Server.CreateObject ("ADODB.RecordSet")
Cnn.Open "BDC2"
%>
Ahora viene la secuencia de añadir
RS2.Open SQL2, Cnn, adOpenStatic, adLockOptimistic, adCmdText
IF NOT RS2.EOF THEN
RS2("Qnum")=request.form("kkkk")
RS2("QnumR")=Request.form("R1")
RS2("QnumC")=Request.form("RCorrecta")
RS2("FECHA")=Date()
RS2("Al")=vvAl
RS2.UPDATE
ELSE
RS2.ADDNEW
RS2("Qnum")=request.Form("kkkk")
RS2("QnumR")=Request.form("R1")
RS2("QnumC")=Request.form("RCorrecta")
RS2("FECHA")=Date()
RS2("Al")=vvAl
RS2.UPDATE
END IF
Rs2.close
No sé porqué puede ser.
Un cordial saludo Juan García.
El código funciona en mi intranet pero no en internet.
Este es el mensaje de error que me pone.
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or
object is read-only.
La conexión funciona pero da error cuando quiere escribir un registro
para añadir o modificar.
Esto funciona en intranet ( LAN) y con el PWS y con IIS 4 con NT 3.5
Te paso el código en ASP de la conexión:
<!--#INCLUDE FILE="ADOVBS.inc"-->
<%
SET Cnn =Server.CreateObject ("ADODB.Connection")
SET RS = Server.CreateObject ("ADODB.RecordSet")
SET RS2= Server.CreateObject ("ADODB.RecordSet")
Cnn.Open "BDC2"
%>
Ahora viene la secuencia de añadir
RS2.Open SQL2, Cnn, adOpenStatic, adLockOptimistic, adCmdText
IF NOT RS2.EOF THEN
RS2("Qnum")=request.form("kkkk")
RS2("QnumR")=Request.form("R1")
RS2("QnumC")=Request.form("RCorrecta")
RS2("FECHA")=Date()
RS2("Al")=vvAl
RS2.UPDATE
ELSE
RS2.ADDNEW
RS2("Qnum")=request.Form("kkkk")
RS2("QnumR")=Request.form("R1")
RS2("QnumC")=Request.form("RCorrecta")
RS2("FECHA")=Date()
RS2("Al")=vvAl
RS2.UPDATE
END IF
Rs2.close
No sé porqué puede ser.
Un cordial saludo Juan García.
Valora esta pregunta


0