בעיה בחיבור למסד נתונים…

הנה החיבור….


<%@ Language=VBScript %>

<%
set conn=createobject("adodb.connection")
dsn="DBQ=" & Server.Mappath("bookstore.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
conn.open(dsn)
%>

<%
set cn = server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from books order by book_id"
cn.Open conn

Response.Write "<center><table border=1 cellpadding=2 BGCOLOR=Yellow>"
do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td align=right>" & formatcurrency(rs("price")) & "</td>"
Response.Write "<td align=right>" & rs("author") & "</td>"
Response.Write "<td align=right>" & rs("title") & "</td>"
Response.Write "</tr>"
rs.MoveNext
loop

Response.Write "</center></table>"
rs.Close
set rs = nothing
cn.Close
Set cn = Nothing
%>

אבל….
זה בקושי עובד זה יוצא סימני שאלה ולמטה הוא כותב את השגיאה שנתתי למעלה…

תודה!!…
הכל טוב אבל בסוף הטבלה של המסד הוא כותב לי את זה שוב:

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/twins008/bookstore/booklist.asp, line 28

הנה…


rs.close

עכשיו…
כשאני נכנס לדף הוא כותב לי:

אירעה שגיאת זמן ריצה.
האם ברצונך לבצע איתור באגים?

שורה:5
שגיאה: syntax error

כאן יש שגיאה בשורה 10…
שהיא..

rs.Open sql,conn

עכשיו זה טוב..
אבל זה כמו שני יש את ההודעת שגיאה… (כתבתי אותה לפני 4 הודעות)…

שורה 5…:


cn.Open Server.MapPath("bookstore.mdb")

אני נתתי אותה…
למעלה… 8 הודעות למעלה…

הנה…
אני כתבתי אותה כבר….

זאת הודעת השגיאה:

אירעה שגיאת זמן ריצה.
האם ברצונך לבצע איתור באגים?

שורה:5
שגיאה: syntax error

??
מה זאת אומרת את הקוד הרלוונטי? הקוד שכלפיו מופיעה השגיאה?

אהה… אז הנה:
זה תחילת הקוד שורה 5 מסומנת ב *

<%@Language=VBScript codepage=1255%>
<%
set cn = server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
*cn.Open Server.MapPath("bookstore.mdb")*
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from books order by book_id"
rs.Open sql,cn

אהה בסדר, תודה…!
אבל אתה יודע איך מבטלים את זה אצלי? משהו באפשרויות אינטרנט?

הנה:
זה הסקריפט עצמו:

<%@Language=VBScript codepage=1255%>
<%
set cn = server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open Server.MapPath("bookstore.mdb")
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from books order by book_id"
rs.Open sql,cn

Response.Write "<center><table border=1 cellpadding=2 BGCOLOR=Yellow>"
do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td align=right>" & formatcurrency(rs("price")) & "</td>"
Response.Write "<td align=right>" & rs("author") & "</td>"
Response.Write "<td align=right>" & rs("title") & "</td>"
Response.Write "</tr>"
rs.MoveNext
loop
Response.Write "</center></table>"

rs.Close
set rs = nothing
cn.Close
Set cn = Nothing
%>

(זה סתם, אין במסד כמעט כלום כרגע כי זה רק לנסיון)

והנה הקישור לאיך שזה צריך להראות ושם יש גם את ההודעת שגיאה:

http://www34.brinkster.com/twins008/bookstore/ASP.asp