צפיות
תשובות
אני חייב עזרה
אני מנסה להעלות נתונים למסד הנתונים שלי באקסס, (אני עובד על ASP) אבל משום מה אני לא מצליח, כל פעם שאני כותב בשורות את הנתונים הוא נותן לי הודעה שלא נמצא כזה דף (הדף עם הסקריפט שמעלה לאקסס) מישהו יכול בבקשה לעזור לי? הנה הסקריפט:
<%
Response.Buffer = true
dim conn,rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
conn.Open "driver={Microsoft Access Driver (*.mdb)};;DBQ=web.mdb;"
sqltext = "SELECT * FROM index"
rs.Open sqltext,conn,3,3
dim name,info,link
name = Request.Form("name")
info = Request.Form("info")
link = Request.Form("link")
if name = "" then
error = "You have not entered an name."
Response.Write error
Response.End
end if
rs.AddNew
rs("name") = name
rs("info") = info
rs("link") = link
rs.update
Response.Redirect "addit.asp"
%>
3 תשובות
שני דברים
1. תיישר את הקוד לשמאל
2. , ותחזור עם השגיאה המדוייקת.
הנה הקוד
השגיאה היא:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
…./….asp, line 34
<%
Response.Buffer = true
dim conn,rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
conn.Open "driver={Microsoft Access Driver (*.mdb)};;DBQ=web.mdb;"
sqltext = "SELECT * FROM index"
rs.Open sqltext,conn,3,3
dim name,info,link
name = Request.Form("name")
info = Request.Form("info")
link = Request.Form("link")
if name = "" then
error = "You have not entered an name."
Response.Write error
Response.End
end if
rs.AddNew
rs("name") = name
rs("info") = info
rs("link") = link
rs.update
Response.Redirect "addit.asp"
%>
|סקוד
|
תודה רבה הסתדרתי
זה בסדר….