เริ่ม 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()//ใช้เพื่อตัดการเชื่อมต่อฐานข้อมูลและปล่อยวัตถุที่เก็บข้อมูล
ถ้า isvalid(ds_datastore) ให้ทำลาย ds_datastore
ตัดการเชื่อมต่อโดยใช้ sqlca;
resultset uf_retrieve()//อ่านข้อมูลลูกค้า
ผลลัพธ์ชุด lrs_customers
ds_datastore.dataobject="d_customer"
ds_datastore.ดึง()
ds_datastore.generateresultset(lrs_customers)//สร้างชุดผลลัพธ์
return lrs_customers//ส่งคืนชุดผลลัพธ์ สุดท้ายให้บันทึกอ็อบเจ็กต์ที่เปลี่ยนแปลงเป็น "uo_customers"
สร้างโครงการส่วนประกอบ COM สร้าง "โครงการ" ใหม่ เลือก "ตัวช่วยสร้างส่วนประกอบ Com/mts" และยืนยัน
กำหนดชื่อ "p_recordset_com" สำหรับโครงการ
จากนั้นเลือกอ็อบเจ็กต์ผู้ใช้ "uo_customer" เพื่อสร้าง com
ตั้งค่าคุณสมบัติอินเทอร์เฟซหลังจากสร้างคอมโพเนนต์ COM คุณสามารถใช้ค่าเริ่มต้นได้ที่นี่
จากนั้นกำหนดรหัสโปรแกรมของส่วนประกอบด้วยตนเองเป็น "pb70.uocustomer"
จากนั้นเลือกชื่อไฟล์ dll ของส่วนประกอบ com คลิก "ใหม่" เพื่อสร้าง "appid เซิร์ฟเวอร์ส่วนประกอบ"
สร้าง "รหัสไลบรารีประเภท" สุดท้าย เลือกชื่อไฟล์ทรัพยากร 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
-
<tr>
<td><%=rs("lname")%></td>
<td><%=rs("ที่อยู่")%></td>
<td><%=rs("เมือง")%></td>
</tr>
<%rs.movenext
วนซ้ำ
฿.ปิด
ลูกค้าuf_disconnect()
-
</ตาราง>
</ร่างกาย>
บันทึกเป็นไฟล์ asp
สุดท้ายนี้ คุณสามารถเรียกดูไฟล์ asp ในเบราว์เซอร์ได้
หมายเหตุ: โดยพื้นฐานแล้ว pb7.0 และ pb8.0 ก็เหมือนกัน