الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ساعدوني في ربط الصفحة بالقاعدة

مغلق
بدأه ابن الوهاج في 7 مارس 2002 · 2 رد · 493 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي قاعدة بيانات rr.mdb

وتحتوي على جدولين

الجدول الاول اسمه s1

ويحتوي على الحقول التالية : ترقيم تلقائي، رقم المدرسة ، اسم المدرسة ... الخ

الجدول الثاني واسمه m1

ويحتوي على الحقول التالية : ترقيم تلقائي ، رقم المعلم ، اسم المعلم ،رقم المدرسة ، ...الخ

طبعاً العلاقة بين الجدولين رأس بأطراف( بواسطة رقم المدرسة )

المطلوب اريد ان اصمم صفحة تعرض اسماء المدارس ، ومن خلال الضغط على اسم المدرسة تفتح صفحة جديدة تحتوي اسماء المعلمين في تلك المدرسة فقط

فهل اجد من يساعدني في ذلك .

#2

ملاحظة على تصميمك للجداول:

جدول المدارس:

ترقيم تلقائي، رقم المدرسة ، اسم المدرسة

أستبدلة بهذا:

رقم المدرسة ، اسم المدرسة

رقم المدرسة نوعة ترقيم تلقائي.

جدول المعلمين:

نفس الشيء

ترقيم تلقائي ، رقم المعلم ، اسم المعلم ،رقم المدرسة

رقم المعلم ، اسم المعلم ،رقم المدرسة

رقم المعلم نوعة ترقيم تلقائي

أسماء اعمدة الجداول

جدول المدارس [s1]:

رقم المدرسة = SchoolID

اسم المدرسة = SchoolName

-----

جدول المدرسين [m1]:

رقم المعلم =TeacherID

اسم المعلم =TeacherName

رقم المدرسة = SchoolID

الصفحة الأولى :صفحة المدارس Schools.asp :

<html><body>

<%

Dim ConStr,SQL,ADO,RS

ConStr="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("rr.mdb")

set ADO=Server.CreateObject("ADODB.Connection")

ADO.Open ConStr

SQL="select * from s1;"

Set RS=ADO.Execute(SQL)

do while not rs.eof

  response.write("<A href=""teachers.asp?schoolID=" & RS("ID") & """>" & RS("SchoolName") & "</A><BR>")

  rs.movenext

loop

ADO.close

Set Rs=Nothing

Set ADO=Nothing

%>

</body></html>

الصفحة الثانية:صفحة المعلمينSchools.asp :

<html><body>

<%

Dim ConStr,SQL,ADO,RS

Dim SchoolID

SchoolID=Request("SchoolID")

If SchoolID="" or Not isNumeric(SchoolID) Then Response.redirect ("Schools.asp")

If SchoolID<=0 Then Response.redirect ("Schools.asp")



ConStr="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("rr.mdb")

set ADO=Server.CreateObject("ADODB.Connection")

ADO.Open ConStr

SQL="select * from m1 where SchoolID=" & SchoolID & ";"

Set RS=ADO.Execute(SQL)

do while not rs.eof

  response.write( RS("TeacherName") & "<BR>")

  rs.movenext

loop

ADO.close

Set Rs=Nothing

Set ADO=Nothing

%>

</body></html>
#3

الاخ العزيز Mr.ASP

شاكرا لك ومقدراً

بارك الله فيك وكثر من امثالك

هذا الموضوع مغلق.

مواضيع مشابهة