رمز ASP لعرض سجلات قاعدة البيانات

رمز ASP لعرض سجلات قاعدة البيانات

أولاً، يقوم ASP بإنشاء اتصال بقاعدة البيانات.

<%

تعيين dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)

DBPath = Server.MapPath(customer.mdb)

dbconnection.Open driver={Microsoft Access Driver (*.mdb)};dbq= & DBPath

قم بإنشاء اتصال بقاعدة البيانات، كما هو موضح أعلاه.

SQL=اختر * من طلب العميل حسب الوقت DESC

تعيين قائمة العملاء = dbconnection.EXECUTE (SQL)

%>

قم بإنشاء عبارة استعلام SQL للاستعلام عن كافة السجلات من جدول العملاء. الترتيب حسب الوقت يعني DESC الفرز بترتيب تنازلي للوقت، بحيث يتم عرض آخر المعلومات المضافة في الأعلى. الجملة التالية تنفذ استعلام SQL وتقوم بإرجاع النتائج إلى كائن Recordset CustomerList.

<أتش تي أم أل>

<الجسم>

<FONT SIZE=5><center>سجلات قاعدة البيانات</center></FONT>

<المركز>

<حدود الجدول=1>

<تر>

<td>الرقم</td>

<td>اسم الشركة</td>

<td>اسم جهة الاتصال</td>

<td>المدينة</td>

<td>رقم الهاتف</td>

</tr>

<% افعل ذلك أثناء عدم استخدام CustomerList.EOF %>

تحقق مما إذا كان قد تم الوصول إلى السجل الأخير. يعنيEOF نهاية الملف.

<TR>

<TD><% =CustomerList(رقم العميل) %></TD>

<TD><% =CustomerList(اسم الشركة) %></TD>

<TD><% =CustomerList(اسم جهة الاتصال) %></TD>

<TD><% =CustomerList(city) %></TD>

<TD><% =CustomerList(رقم الهاتف) %></TD>

</TR>

يمكن القول أن <% =CustomerList(customer number) %> هو اختصار لأسلوب Response.Write. اكتب البيانات في حقل رقم العميل في مساحة علامة TD.

<%CustomerList.movenext

حلقة

%>

إذا لم يتم الوصول إلى العنصر الأخير، ينتقل المؤشر إلى العنصر التالي. استخدم Do while... قم بإجراء حلقة للحصول على كافة السجلات واحداً تلو الآخر.

</الجدول>

</المركز>

<المركز>

<نوع الإدخال=زر onclick=javascript:location.href='add.htm' value=إضافة بيانات>

</مركز>

</الجسم>

</HTML>