pesarkhobeee
سه شنبه 03 بهمن 1385, 09:49 صبح
سلام:گریه:
من می خوام یه رکورد به بانک اطلاعاتی اضافه کنم ولی خطای زیر رو می ده !
• Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/add-to-db.asp, line 26
البته می دونم که اشکال از:گیج: :
objrs.open "table1", objconn, ,adLockOptimistic,adcmdtable
ولی کجا شو تغییر بدم
کل کد به این صورته
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%option explicit%>
<!--#include virtual = "/adovbs.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
dim objconn
set objconn = server.CreateObject("adodb.connection")
objconn.open "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ=C:\Inetpub\wwwroot\link-index.mdb"
dim objrs
set objrs = server.CreateObject("adodb.recordset")
objrs.open "table1", objconn, ,adLockOptimistic,adcmdtable
objrs.addnew
objrs ("Sitename") = "youtoube"
objrs("Siteurl") = "www.youtoube.com"
objrs("Sitegroup") = "fun"
objrs("EndofviweofSite") = "2006/12/09"
objrs("Sitering") = "5"
objrs.update
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
%>
</body>
</html>
من می خوام یه رکورد به بانک اطلاعاتی اضافه کنم ولی خطای زیر رو می ده !
• Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/add-to-db.asp, line 26
البته می دونم که اشکال از:گیج: :
objrs.open "table1", objconn, ,adLockOptimistic,adcmdtable
ولی کجا شو تغییر بدم
کل کد به این صورته
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%option explicit%>
<!--#include virtual = "/adovbs.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
dim objconn
set objconn = server.CreateObject("adodb.connection")
objconn.open "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ=C:\Inetpub\wwwroot\link-index.mdb"
dim objrs
set objrs = server.CreateObject("adodb.recordset")
objrs.open "table1", objconn, ,adLockOptimistic,adcmdtable
objrs.addnew
objrs ("Sitename") = "youtoube"
objrs("Siteurl") = "www.youtoube.com"
objrs("Sitegroup") = "fun"
objrs("EndofviweofSite") = "2006/12/09"
objrs("Sitering") = "5"
objrs.update
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
%>
</body>
</html>