طلب الى المشرفين هنا والاعضاء

السلام عليكم

لكيفية الربط مع قواعد البيانات الاكسس باستخدام لغة ال asp طبعاً يجب أن تقوم بتنزيل سيرفر iis لكي تجعل جهازك خادم لسيرفر ال asp ، وانا الان سوف اضع مثال لكيفية الربط مع قواعد البيانات

dim conn
set conn=server.createobject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.MapPath("data/db.mdb"))اقتباس


dim conn
هنا تعريف متغير للاتصال وهو conn
set conn=server.createobject("ADODB.Connection")
هنا سوف تعرف نوع الاتصال الذي سوف تستخدمه.
conn.provider="Microsoft.Jet.OLEDB.4.0"
هنا سوف تحدد نوع قواعد البيانات التي سوف تستخدمها وهذا الاتصال الخاص بقواعد بيانات اكسس.
conn.open(server.MapPath("data/db.mdb"))
هنا سوف تقوم بفتح قاعدة البيانات التي سوف تستخدمها وتحدد مسار الوصول لقواعد البيانات.

بالنسبة لمشروع بعد أن يقوم الطالب بإضافة الرقم الجامعي بحيث تظهر له بيانات التي أنت تقوم بتحديد ظهورها.

حيث سوف تقوم بإنشاء فورم يحتوي على قحل واحد وهو إدخال رقم الطالب، واسمه student_no على الشكل التالي:
[CODE] <form action="record_mark.asp" method="POST" name="form" onSubmit="return CheckForm();">
<input class="bginput" size="12" name="student_no">
<input class="bginput" type="submit" value="عرض كشف العلمات">
</form>

حيث سوف تجعل الفورم تذهب إلى صفحة record_mark.asp بعد أن يدخل الرقم ويضضغط على زر اعتماد.

في صفحة record_mark.asp سوف تقوم بوضع الاتصال لقواعد البيانات، ومن بعدها سوف تقوم باستخدام لغة الاستعلام لعرض كشف علامات الطالب، عندما تساوي الرقم المدخل كالتالي:

set rs=conn.execute("select * from record_mark where student_no="&request("student_no")&"")
if not rs.eof then
do while not rs.eof
respone.write(rs("subject_no"))
rs.movenext
loop
else
response.write("لا يوجد لديك سجلات")
end if
set conn=nothing
set rs=nothing
coon.close

حيث set rs=conn.execute

تعني قوم بتنفيذ الجملة التالية على قاعدة البياناتن التي قمت بتحديدها داخل المتغير conn.

حيث student_no="&request("student_no")&"")

سوف تجعل الحقل student_no الموجود في الجدول record_mark يساوي قيمة رقم الطالب المبعوث من الفورم.

if not rs.eof then

إذا كانت الجدول يحتوي على سجلات قم بتنفيذ التالي،

حيث هنا respone.write(rs("subject_no"))

do while not rs.eof

سوف نستخدم جملة ال do while لعرض جميع السجلات التي تحتوي على رقم الطالب.

response.write(rs("subject_no"))

حيث هنا سوف يتم طباعة قيمة الحقل الموجود في الحقل subject_no ، وتستطيع طباعة باقي الحقول بنفس الطريقة .

rs.movenext

بعد أن يقوم بطباعة قيم السجل الأول سوف يقوم بالذهاب إلى السجل التالي

loop سوف تقوم بإعادة الحلقة

else إذا لم يكن هناك سجلات تحتوي على هذا الرقم قم بتنفيذ التالي:

حيث سوف تقوم بطباعة الجملة الموظحة داخل الكود أعلاه.

end if نهاية الشرط لجملة if.

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

مع تحياتي.

الاخ عبدالله جابر

اشكرك على سرعه ردك

وباقي اجرب علما اني قد جرب قبل كذا الكثير لم انجح

ان شاء الله معاك انجح وباقي احمل iis

والله يعينك بنتعبك شوي معنى

وتسلم ومشكور وكثر الله من امثالك

السلام عليكم

لا شكر على واجب أخ سحاب، وانا في الخدمة إن شاءلله يا اخي الكريم,

بالنسبة لقاعدة البيانات قمت بتحميلها ولم أجد سوى جدول واحد فقط، ويحتوي على حقلين، فأرجوا أن تقوم بوضع الجداول اللازمة له، وأن توضح لي ما الذي تريده بالزبط لكي اقوم بعمله لك.

مع تحياتي

نعم صدقت اخ عبدالله

واذا اردتوا برامج على خواطركم انا مستعد وتحت الخدمه

وخصوصا انت يا اخ عبدالله

السلام عليكم

شكراً للأخ سحاب وإن شاءلله إذا واجهتنا أي مشاكل في قواعد البيانات، أكيد سوف نذهب إليكم لكي تساعدوني لأنه كل القسمين مكملين لبعضهم البعض.

مع تحياتي.