دورة تعليم لغة ASP من البداة حتى الاحتراف( ربط صفحات ASP بقاعدة البیانات )

الدرس السابق 

،  صممنا في الدرس السابق قاعدة بيانات باستخدام برنامج Microsoft Access . 2000  وفي هذا الدرس  ASP سنتعلم كيفية ربط القاعدة بصفحات (tech.asp). لإجراء بعض التعديلات عليها. لذا قم بحفظها باسم (default.asp) قم بفتح الصفحة الأولى tech.asp فكل التغييرات التي سنقوم بهذا ستكون على ملف في الصفحة الأولى كنا قد كتبنا جملة ترحيبية لزوار الموقع. أما في هذه الصفحة فسنستبدلها بجملة أخرى تبين ماهية الصفحة. فسنكتب: إليكم آخر المستجدات على الساحة التقنية ASP . والآن.. سنبدأ بالجزء الأهم.. وهو كتابة نصوص واكتب الجملة HTML تكتب دائما بين هاتين العلامتين. <% %> لذا، افتح نصوص ASP نصوص التالية في أول سطر:

<%@ Language=VBScript CodePage = "1256"%>

في هذه الصفحة. وسطر (تحديد اللغة) يجب أن يكون VBScript هذا السطر يشير إلى أننا سنستخدم لغة دائما في بداية الصفحة. واكتب التالي تحت الجملة الترحيبية:

كود بلغة HTML:

<%
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
Server.MapPath("\database\project.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
%>

 السطران الأول والثاني (Dim): يتم فيها تحديد المتغيرات، وسنتحدث عن المتغيرات أكثر في المستقبل

 السطر الثالث · ConnectionString): يحدد طريقة فتح قاعدة البيانات، واسم القاعدة والمسار

إليها. يمكنك تغيير اسم القاعدة ومسارها بما يتناسب مع ما قمت به على جهازك. لقد قمت

وما قبل الاسم هو مسار الوصول إليها. project.mdb بتسمية القاعدة

السطر الرابع (Set ADO):  يحدد اسم المتغير الذي سيقوم بالربط.. وهو في مثالنا  ADO

ويمكنك تغييره بما يناسبك، إلا أن عليك استخدامه كثيرا، لذا لا أفضل تغييره حتى لا يسبب لك

بعض الصعوبة في متابعة الدروس.

السطران الخامس والسادس: يقومان بفتح القاعدة. ·

ما قمنا به حتى هذه الخطوة، هو الوصول للقاعدة فقط. والخطوة التالية هي الوصول للبيانات التي

مباشرة: ADO.open بالقاعدة. ولعمل ذلك قم بكتابة التالي تحت عبارة

selectSQL="select * from tech_news"

set rs=ADO.execute(selectSQL)

السطر الأول (selectSQL)  تحدد أمر الاختيار Select وفيها يثم اختيار البيانات من القاعدة حسب شروط يتم تحديدها. في حالتنا هذه طلبنا اختيار:

١. جميع البينات) ويمثلها رمز , (* ويمكن استبدالها باسم عمود او خانة معية من الجدول.

 ٢. من جدول tech_news

أي أن هذان هما الشرطان الواجب القيام بهما.

السطر الثاني ·(set rs): تنفيذ الأمر. 

ما قمنا به حتى الآن هو فتح القاعدة، واستدعاء البيانات منها. وما سنقوم به الآن هو طباعة هذه

مباشرة: set rs=ADO.execute(selectSQL) المعلومات. قم بكتابة التالي تحت عبارة

response.write " العنوان : " & rs("subject")
response.write " التاریخ : " & rs("add_dat")
response.write " الخبر : " & rs("body")

 response.write  تقوم بطباعة rs(*)  النتائج  تمثل النتائج. حيث يكتب اسم الجدول المراد عرض ،

بياناته بين علامات التنصيص " "

قم بتشغيل الصفحة  tech.asp  وذلك بفتح المتصفح  Explorer Internet  وفي شريط العنوان

 : Address Bar اكتب العنوان الموقع، وذلك بكتابة اسم جهازك ومن ثم المجلد الذي يحتوي الموقع

default.asp/news/http://asp

 يمكنك الاستعاضة عن اسم الجهاز بكلمة : localhost أي أن العنوان سيصبح كالتالي

http://localhost/news/default.asp

الذي كتبته بقراءة محتويات القاعدة وعرضها .بالطبع توجد إشكاليات بسيطة Code مبروك. لقد قام ال
في البيانات المعروضة، وسنشرح طريقة التغلب عليها في الدروس القادمة. لكن المهم في هذا الدرس، هو
فهمه جيدا لأن معظم الدروس التالية تعتمد على هذا الدرس.

أخيرا، يفضل إغلاق ربط القاعدة بهذا السطر تحت عبارة : " & rs("body") الخبر response.write "

مباشرة:

ADO.close