| Usuario |
mensaje de error al realizar un up... |
cga22
3 Mensaje(s) |
| Enviado - 19/10/2004 |
| |
Estimados amigos del foro, he tratado de hacer un ingreso de un registro a la base de datos access pero recibo este mensaje de error :
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
ya he revisado la coneccion y si esta ok, puedo hacer listados pero no puedo insertar un registro.
por favor, espero alguna ayuda con urgencia.
gracias por su tiempo. |
| |
|
On
12 Mensaje(s) |
| Enviado - 20/10/2004 |
| |
| si muestras el código, podría ser más fácil que lo resolvieramos... Saludos |
| |
|
cga22
3 Mensaje(s) |
| Enviado - 25/10/2004 |
| |
ok, disculpa , aqui esta el codigo :
--------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conbuy.asp" -->
<%
session("numeroc")=0
Dim mmeditq
Dim mmeditcmd
Dim mmeditc
dim mmeditr
dim mensage
dim valor1, valor2, valor3, valor4
valor1 = request.form("emailing")
valor2 = request.form("emailbor")
valor3 = request.Form("emailfec")
valor4 = request.Form("emailpais")
mmeditc = MM_conbuy_STRING
mmeditq=""
mensage=""
if valor1<>"" OR valor2<>"" then
Dim rs
if valor1<>"" then
mmeditq = "select email from emails where email = '" & CStr(valor1) & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conbuy_STRING
rs.Source = mmeditq
rs.CursorType = 3
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
if rs.recordCount=0 then
mmeditr = "emailresultado.asp"
mmeditq = "insert into emails(email,fecha,pais) values('" & CStr(valor1) & "','" & CStr(valor3) & "','" & CStr(valor4) & "')"
else
mensage="No se encontro el email especificado"
mmeditq=""
end if
rs.Close()
Set rs = Nothing
end if
if valor2<>"" then
mmeditr = "emailborrado.asp"
mmeditq = "select email from emails where email = '" & CStr(valor2) & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conbuy_STRING
rs.Source = mmeditq
rs.CursorType = 3
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
if rs.recordCount=0 then
mensage="No se encontro el email especificado"
mmeditq=""
rs.Close()
Set rs = Nothing
else
mmeditq = "delete from emails where email = '" & CStr(valor2) & "'"
end if
end if
if mmeditq<>"" then
Set mmeditcmd = Server.CreateObject("ADODB.Command")
mmeditcmd.ActiveConnection = mmeditc
mmeditcmd.CommandText = mmeditq
mmeditcmd.Execute
mmeditcmd.ActiveConnection.Close
response.redirect(mmeditr)
end if
end if
%>
----------------------------------------
disculpen la complejidad, pero el usuario puede ingresar y tambien borrar su email, previa busqueda del mismo, para luego borrarlo, todo esto me salia anteriormente, pero hace un tinepro me sale el error anteriormente señalado....
gracias |
| |
|
Desconocido
|
| Enviado - 27/10/2004 |
| |
sin mirar el codigo puedo decirte q es un posible error de seguridad.
si tenes la particion en NTFS y podes darle permisos al usuario de escritura hacelo.
sino fijate de como hacer que los tenga!
saludos
Matias |
| |
|
|
|
