ابدأ pb7.0، وأنشئ كائن مستخدم غير مرئي "uo_customer"، وأنشئ "كائنًا" جديدًا، ثم حدد "فئة مخصصة"
اكتب وانقر على "موافق".
اكتب البرنامج التالي في كائن المستخدم المنشأ حديثًا:
1. قم بتعريف متغيرات المثيل "متغيرات المثيل" بالنسبة للأنواع غير المدعومة في com، يرجى الإعلان عنها كأنواع محمية. محمي:
مخزن البيانات ds_datastore
2. إنشاء ثلاث وظائف جديدة للأعضاء:
int uf_connect()// يستخدم للاتصال بقاعدة البيانات وإنشاء كائنات مخزن البيانات.
شفرة:
sqlca.dbms = "odbc"
sqlca.database = "webdw"
sqlca.autocommit=false
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
الاتصال باستخدام sqlca؛
ds_datastore = إنشاء مخزن بيانات
إذا sqlca.sqlcode=0 ثم
العودة 1
آخر
العودة -1
end if
void uf_disconnect()// يستخدم لفصل قاعدة البيانات وتحرير كائن مخزن البيانات.
إذا كان (ds_datastore) صالحًا، فقم بتدمير ds_datastore
قطع الاتصال باستخدام sqlca؛
resultset uf_retrieve()//اقرأ معلومات العميل
مجموعة النتائج lrs_customers
ds_datastore.dataobject = "d_customer"
ds_datastore.retrieve ()
ds_datastore.generateresultset(lrs_customers)//إنشاء مجموعة النتائج
return lrs_customers// قم بإرجاع مجموعة النتائج وأخيرًا، احفظ الكائن الذي تم تغييره باسم "uo_customers".
قم بإنشاء مشروع مكون COM، وقم بإنشاء "مشروع" جديد، وحدد "معالج مكون Com/mts"، وقم بالتأكيد.
حدد اسمًا "p_recordset_com" للمشروع
بعد ذلك، حدد كائن المستخدم "uo_customer" لإنشاء com
قم بتعيين خصائص الواجهة بعد إنشاء مكون COM، ويمكنك استخدام الإعداد الافتراضي هنا.
ثم حدد معرف البرنامج للمكون بنفسك باسم "pb70.uocustomer"،
ثم حدد اسم ملف dll الخاص بمكون com، وانقر فوق "جديد" لإنشاء "معرف تطبيق خادم المكون"،
قم أيضًا بإنشاء "معرف مكتبة النوع". وأخيرًا، حدد اسم ملف المورد pb وطريقة التسجيل، وبعد ذلك، سيقدم لك النظام المعلومات العامة لإعدادات المستخدم، ثم اختر إنشاء "قائمة المهام".
يؤدي هذا إلى إكمال مشروع لإنشاء مكونات COM، المسمى "p_test_com".
قم بتجميع المشروع وتسجيل المكونات. افتح المشروع الذي تم إنشاؤه، وحدد ملف pbl المطابق وكائن المستخدم، ثم قم بتجميعه.
بعد ذلك، نقوم بإنشاء صفحة ويب asp لاستدعاء pb com.
<head><title>بي بي كوم</title></head>
<الجسم>
<%
تعيين العملاء=server.createobject("pb70.uo_customers")
iflag=customers.uf_connect()
تعيين rs=customers.uf_retrieve()
"www.downcodes.com."
%>
<الجدول>
<%rs.movefirst
تفعل في حين لا rs.eof
%>
<تر>
<td><%=rs("lname")%></td>
<td><%=rs("العنوان")%></td>
<td><%=rs("city")%></td>
</tr>
<%rs.movenext
حلقة
rs. Close
Customers.uf_disconnect()
%>
</الجدول>
</الجسم>
احفظه كملف asp.
وأخيرًا، يمكنك تصفح ملف asp في المتصفح.
ملاحظة: pb7.0 وpb8.0 هما نفس الشيء بشكل أساسي.