- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 9ipad版office如何激活? office365激活的圖文說明教程
- 10最新的Adobe Illustrator CS4序列號大全
- 11Mac怎么通過設置VPN來登錄youtube等國外網站
- 12qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看
[摘要]啟動pb7.0,創建一個不可視的用戶對象"uo_customer",新建"object",選擇"custom class" 類型，點擊"ok"。 在新創建的用戶對象中編寫如下程序: 1.聲明實例變量"ins...
啟動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.knowsky.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基本上差不多，讀者可以自己實踐。
推薦資訊 總人氣榜
