啟動pb7.0,建立一個不可視覺的使用者物件"uo_customer",新建"object",選擇"custom class"
類型，點擊"ok"。
在新建立的使用者物件中編寫如下程式:
1.宣告實例變數"instance variables"，對於com中不支援的類型，請宣告為protected類型。 protected:
datastore ds_datastore
2.新建三個成員函數:
int uf_connect()//用於連結資料庫與建立datastore物件。
代碼：
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit=false
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
connect using sqlca;
ds_datastore =create datastore
if sqlca.sqlcode=0 then
return 1
else
return -1
end if
void uf_disconnect()//用於中斷資料庫連結和釋放datastore物件。
if isvalid(ds_datastore) then destroy ds_datastore
disconnect using sqlca;
resultset uf_retrieve()//讀取客戶訊息
resultset lrs_customers
ds_datastore.dataobject="d_customer"
ds_datastore.retrieve()
ds_datastore.generateresultset(lrs_customers)//產生結果集
return lrs_customers//傳回結果集最後，儲存改物件為"uo_customers"。
製作一個com組件的工程新建"project",選擇"Com/mts component wizard",確定。
給工程定義一個名字"p_recordset_com"
接下來，選擇要產生com的使用者物件"uo_customer"
設定產生com組件後的介面屬性，這裡可以使用預設。
然後自己定義元件的program id為"pb70.uocustomer",
然後選擇該com元件的dll檔名，點選"new",產生"component server appid",
同樣產生"type library id",最後，選擇pb資源檔名，以及註冊方式，之後，系統會給出使用者設定的大致訊息，然後選擇產生"to do list"
這樣就完成一個產生com元件的工程，名為"p_test_com"。
編譯工程並註冊元件開啟已經產生的工程，選擇對應的pbl檔及使用者對象，編譯就可以了
下面我們建立asp網頁來呼叫這個pb com
<head><title>pb com</title></head>
<body>
<%
set customers=server.createobject("pb70.uo_customers")
iflag=customers.uf_connect()
set rs=customers.uf_retrieve()
'www.downcodes.com
%>
<table>
<%rs.movefirst
do while not rs.eof
%>
<tr>
<td><%=rs("lname")%></td>
<td><%=rs("address")%></td>
<td><%=rs("city")%></td>
</tr>
<%rs.movenext
loop
rs.close
customers.uf_disconnect()
%>
</table>
</body>
儲存成asp檔
最後，在瀏覽器中就可以瀏覽這個asp檔了
說明:pb7.0和pb8.0基本上差不多，讀者可以自己實作。