לקראת סוף השנה אני צריך להגיש פרוייקט במגמה שבה אני לומד (אתר אינטרנט ב-ASP).
בקיצור אני לא מתכוון לחכת שכולם יגיעו לזה, התחלתי ללמוד כבר עכשיו ASP.

הגעתי לנושא של תקשורת עם מסדי נתונים, אני מעוניין לתקשר עם מסד Access שנקרא db.mdb ונמצא באותה תיקייה של הקובץ.

לא ממש הבנתי באיזו דרך ליצור את התקשורת (סדר כתיבת הדברים).
אשמח אם מישהו יוכל לתת לי דוגמה.

תודה,
מתן.

חתימתכם הוסרה כיוון שלא עמדה בחוקי האתר. לפרטים נוספים לחצו כאן. תוכלו לקבל עזרה להתאמת החתימה לחוקים בפורום חתימות וצלמיות.

אני משתמש בשיטה הזאת, כתבתי לך איפה לכתוב את שם הקובץ ואיפה את שם הטבלה

קוד:

<%dim dsn%>
<%dsn="DBQ="&server.MapPath("שם קובץ האקסס ומיקומו")&";driver={microsoft access driver (*.mdb)};"%>
<%set c=server.createobject("adodb.connection")%>
<%c.open dsn%>
<%set r=server.createobject("adodb.recordset")%>
<%r.open "select * from שם הטבלה",c,3,3%>

וגם אז...למה בכל שורה יש <% %> ?
ניתן לפתוח בתחילת הבלוק ולסגור בסופו...
אני אסביר את הקוד שלך (ביצעתי שינויים מינוריים):

קוד:

 
<%
	 dim dsn,cn,rs 
	 dsn="DBQ="&server.MapPath("filename")& _ 
			";driver={microsoft access driver (*.mdb)};"
	 set cn=server.createobject("adodb.connection")
	 cn.open dsn
	 set rs=server.createobject("adodb.recordset")
	 rs.open sqlStatment,cn,3,3
%>

בשורה הראשונה אנו מכריזים על שלושה משתנים/אוביקטים.
שורה 2 - משתנה dsn מקבל מחרוזת הנקראת "מחרוזת קישור" למסג נתונים (connection string) מחרוזת זו מגדירה את הפרמטרים של החיבור למסד נתונים מסוג microsoft access, ואת המיקום שלו. במקרה זה המיקום נקבע באמצעות האובייקט server שמחזיר את הערך mappath שהוא הנתיב הפיזי אל הקוסץ שמבצע את הקוד. בתוך הסוגריים אנו מוסיפים את הנתיב היחסי מהמיקום של mappath אל קובץ ה-mdb.
שורה 3 ושורה 5 - (שים לב שמפאת מיקום, שורה 2 מתפרסת על שתי שורות פיזית בעזרת הסימן המחבר _ )
בשורה 3 אנו יוצרים אובייקט שרת (המתודה server.createobject) מסוג adodb.connection - אובייקט זה הוא אובייקט מסוג קישור לנתונים של microsoft ואנו יוצרים את מופע הקישור שלו.
בשורה 5 אנו יוצרים מופע אחר של האובייקט מסוג recordset כלומר - אובייקט שיודע להחזיק נתונים טבלאיים.
שורה 4 - היא למעשה שימוש בפונקציה של האובייקט adodb.connection. השיטה open פותחת קישור למסד הנתונים, והיא מקבלת כפרמטר את מחרוזת הקישור שיצרנו בהתחלה (dsn). פונקציה זו מחזירה true אם תהליך הקישור נעשה תקין ו-false אם לאו.
שורה 6 - היא שימוש בפונקציה open של האובייקט מסוג recordset. שיטה זו מקבלת כפרמטר את אובייקט הקישור למסד הנתונים וכן שאילתת SQL ועוד מספר פרמטרים הקובעים את mode העבודה (סוגי קריאה, כמו "לקריאה בלבד" וכו...)

יש לשים שעדיין ניתן לשפר את הקוד הקיים ובכלל - כמו שאני ממליץ תמיד, לעבוד לשימוש ב-ADO.NET לצורך קישוריות למסדי נתונים.

בכל מקרה חשוב מאוד - ASP לא יודעת לנהל זיכרון בצורה אפקטיבית ולכן בסיום העבודה עם האובייקטים הנ"ל יש לסגור אותם ולרוקן אותם:

קוד:

 
<%
rs.close
cn.close
 
set rs=nothing
set cn=nothing
%>

בהצלחה,

[ זיו ]
[ fat fish ]

עזרת לי מאוד

חתימתכם הוסרה כיוון שלא עמדה בחוקי האתר. לפרטים נוספים לחצו כאן. תוכלו לקבל עזרה להתאמת החתימה לחוקים בפורום חתימות וצלמיות.

• אני מאוד לא אוהב את השימוש שלך ב-ODBC במקום ב-OLEDB כמו שצריך...
• אני מאוד לא אוהב את זה שאתה נשמע כמו פרסומת MS מצויה ומציע לאדם להשתמש בדוטנט, כאשר נכתב בבירור שאת הפרוייקט יש להגיש ב-ASP3

את הקוד אני הייתי כותב קצת אחר:

קוד:

<%
       	Dim oCon
       	Dim oRS
       	Dim sConStr
       	Dim sDBPath
       	Dim oSQLQuery
     
     	sDBPath = Server.MapPath ("db.mdb")
       	sConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBPath
       	
       	Set oCon = Server.CreateObject ("ADODB.Connection")
       	Set oRS = Server.CreateObject ("ADODB.RecordSet")
     
       	sSQLQuery = 'whatever you need
     
       	oCon.ConnectionString = sConStr
       	oCon.Open
     
       	oRS.ActiveConnection = oCon
       	oRS.Open sSQLQuery
       %>

ככה הקוד שלי היה נראה

העתקתי את הקוד שלו והראתי את ההסבר לגביו בצורה יותר ברורה....ציינתי שיש עוד דרכים להתחבר, זה לא היחיד.

בכל מקרה - לגבי .NET - אם מדובר בחומר לימוד של קורס בסדר, אבל אם זה לימוד עצמאי - חבל ללמוד שפה עתיקה שיש לה מחליפה כ"כ חזקה!

[ זיו ]
[ fat fish ]

נו טוב, אני אעזוב אותך. רק הפעם
לציין שיש עוד דרכים להתחבר זו לא חכמה. אתה צריך להמליץ על הדרך שהכי טובה לדעתך, ונדמה לי שאתה תסכים איתי שחיבור דרך ADO-OLEDB-ACCESS עדיף מADO-ODBC-ACCESS...
(כאשר נדמה לי שהדרייברים של ODBC לאקסס עצמם פועלים דרך OLEDB, ככה שיש פה פשוט בזבוז של שלב)
לא?

השתמשי באקסס (ואפילו בשביל תרגול או נסיון) בתור מסד נתונים - אז אני לא זוכר ממש בע"פ את שאר דרכי החיבור, ואם אני יכול להריץ google בשביל זה......גם שואל השאלה יכול - נכון?

[ זיו ]
[ fat fish ]

מה זה משנה אם זה אקסס, אוראקל, אינפורמיקס או SQL SERVER?
אתה התחברת דרך ODBC במקום ישירות דרך OLEDB

תקרא - תפנים!

[ זיו ]
[ fat fish ]

(:

אמנם ל-ASP נוספו בשנים האחרונות הרחבות כמו יכולת לבנות class וכו....אבל עדיין - זה ASP זו שפה מאוד מוגבלת יחסית ל-ASP.

הנה באה התחרות מצד java ו-microsoft מוציאה את ASP.NET ומי מרוויח? אנחנו...

בכל מקרה, בקרוב אני מעלה את המדריך ל-ASP.NET .....אז אם עוד לא טרחת להתעדכן...(:

[ זיו ]
[ fat fish ]

פשוט כי הכל נורא כבד.
אני הראשון שטוען שהביצועים של VB, לדוגמה, לא כ"כ נוראים - בתנאי שהיא עושה את העבודה.
אבל לגבי ממשקי משתמש של דוטנט - המצב מזעזע :O

בנית אותו בעצמך? את הקוד שלי אח שלי פעם בנה לי כשהוא רק לימד אותי ASP ואז אני כל פעם מעתיק, למען האמת אף פעם לא ידעתי מה השורה של הDSN עושה... (אתה שאר הבנתי), בכל מקרה הייתי בונה לי גם כזה קוד בעצמי אבל אני לא מכיר את האובייקטים המתאימים של ASP כדי להכין =\

ואני פותח <% ו%> כל פעם כי יותר נוח לי לראות את זה ככה לא יודע למה

תוכל בבקשה לפרט על השורות של הקוד שרשמת לי? (חוץ מהשורות של המשתנים )
לא ממש הבנתי את זה..

תודה רבה,
מתן.

חתימתכם הוסרה כיוון שלא עמדה בחוקי האתר. לפרטים נוספים לחצו כאן. תוכלו לקבל עזרה להתאמת החתימה לחוקים בפורום חתימות וצלמיות.

קוד:

<%
          	Dim oCon
          	Dim oRS
          	Dim sConStr
          	Dim sDBPath
          	Dim oSQLQuery
  	'We get the path of the MDB file(access database) through the Server.MapPath method which recieves a realtive path as an argument, and return ABSOLUTE path.
        	sDBPath = Server.MapPath ("db.mdb")
  	'We create the ADO Connection String:
  	'Provider tells ADO what type of data source we use. In our case it's OLEDB's access mechanism to MS Access Databases(The Access database engine is called Jet. first introduced around VB3 or VB4)
  	'Data Source, if using THIS provider is the path to the Access database MDB file, which we concatenate to sConStr from sDBPath, which holds the path.
  	'If we were using MS SQl Server, for instance, Data Source would be the machine name.
          	sConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBPath
          	
   	'We create new instanced of ADO's Connection(which connects us to the database), and Recordset(which gets the actual data) classes.
          	Set oCon = Server.CreateObject ("ADODB.Connection")
          	Set oRS = Server.CreateObject ("ADODB.RecordSet")
          	'We put our SQL Query here, to use later.
          	sSQLQuery = 'whatever you need
          	'We tell our connection, oCon, how to connect to the database by specifying the Connection String we prepared earlier, sConStr.
          	oCon.ConnectionString = sConStr
  	'We "open" the connection. This is the moment in which we actually connect to the database.
          	oCon.Open
        
  	'We specify to our Recordset, oRS, that the connection he should use is oCon.
          	oRS.ActiveConnection = oCon
  	'We execute the SQL Query we prepared eariler, sSQLQuery.
          	oRS.Open sSQLQuery
  	
  	'From now on we can proccess the data in any way we want.
          %>

רק עכשיו הסתכלתי על השיטה כי אני רוצה לנסות ללמוד איך עושים אותה, נראה לי שהבנתי את כל הקוד רק שאלה אחת:
sSQLQuery = 'whatever you need
כאן כותבים את השם של הטבלה שאתה רוצה שזה יפתח מאקסס? כי אחרי זה ב
oRS.Open sSQLQuery
כתבת שזה יפתח את הטבלה שהשם שלה כתוב בsSQLQuery, לפי מה שהבנתי לפחות, ואם כן אז למה לא כתבת פשוט בoRS.Open ואז כאן את השם של הטבלה, במקום לשים את זה בעוד שורה...?

=שאילתת SQL שזה בדיוק מה שכתוב שם!

[ זיו ]
[ fat fish ]

אז למה לא כתבו פשוט ישר את השאילתה פה:
oRS.Open שם השאילתה (זה קצת לא מסודר בגלל שזה אנגלית עם עברית)

והבנתי בערך אני אנסה את זה, תודה

זה לא יותר פשוט, כי מבחיינת קריאות, יותר נוח במקום אחד יצירת משפט SQL, ובמקום אחר שימוש בו.
קח דוגמה:

קוד:

<%
            	Dim oCon
            	Dim oRS
            	Dim sConStr
            	Dim sDBPath
            	Dim oSQLQuery
          
          	sDBPath = Server.MapPath ("db.mdb")
            	sConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBPath
            	
            	Set oCon = Server.CreateObject ("ADODB.Connection")
            	Set oRS = Server.CreateObject ("ADODB.RecordSet")
          
    	Select Case Reqeust.Query("action")
    	Case "a"
  	sSQLQuery = 'something
    	Case "b"
  	sSQLQuery = 'something else
  	Case "c"
  	sSQLQuery = 'something totally different
    	Case Else
    		'Action to do with bad input or default action
    	End If
        
            	oCon.ConnectionString = sConStr
            	oCon.Open
          
            	oRS.ActiveConnection = oCon
            	oRS.Open sSQLQuery
    %>

נדמה לי שברור שהקוד למעלה יותר נוח מאשר:

קוד:

<%
             	Dim oCon
             	Dim oRS
             	Dim sConStr
             	Dim sDBPath
           
           	sDBPath = Server.MapPath ("db.mdb")
             	sConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBPath
             	
             	Set oCon = Server.CreateObject ("ADODB.Connection")
             	Set oRS = Server.CreateObject ("ADODB.RecordSet")
           
    	oCon.ConnectionString = sConStr
             	oCon.Open
           
             	oRS.ActiveConnection = oCon
  
   	Select Case Reqeust.Query("action")
      	Case "a"
     oRS.Open 'something
      	Case "b"
     oRS.Open 'something else
     	Case "c"
     oRS.Open 'something totally different
      	Case Else
      		'Action to do with bad input or default action
      	End If
     %>

אתה לא חושב כך?