استرجاع بيانات

السلام عليكم

لإسترجاع قيم من جدولين مختلفين، يجب أن يكون هناك علاقة بين الجدولين، عن طريق حقل معين، فلنفترض بأنه يوجد حقل اسمه id يربط بين الحقلين، فسوف تتم الألية كالتالي:

<%
'ضع كود الاتصال بقاعدة البيانات
set rs1=conn.execute("select * from table1 order by id asc")
if not rs1.eof then
do while not rs1.eof
dim id
id=rs1("id")
set rs2=conn.execute("select * from table2 where id="&id)
'ضع الكود الذي ترغب بإظهاره على الشاشة باستخدام أسماء الحقول لكل جدول حسب كل متغير التي تم وضعه للجملة
rs1.movenext
loop
else
response.write("لا يوجد سجلا")
end if


%>

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

ومن بعدها نقوم باستخدام لغة الاستعلام الأخرى، والبحث في السجلات التي تساوي القيمة المخزنة داخل المتغير.

مع تحياتي