如何在pb中創(chuàng)建COM組件,并在asp中調(diào)用并返回結(jié)果集
啟動(dòng)pb7.0,創(chuàng)建一個(gè)不可視的用戶對(duì)象"uo_customer",新建"object",選擇"custom? class"
類型,點(diǎn)擊"ok"。
在新創(chuàng)建的用戶對(duì)象中編寫(xiě)如下程序:
1.聲明實(shí)例變量"instance? variables",對(duì)于com中不支持的類型,請(qǐng)聲明為protected類型。protected:
datastore? ds_datastore
2.新建三個(gè)成員函數(shù):
int? uf_connect()//用于連結(jié)數(shù)據(jù)庫(kù)與創(chuàng)建datastore對(duì)象。
代碼:
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()//用于斷開(kāi)數(shù)據(jù)庫(kù)連結(jié)和釋放datastore對(duì)象。
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)//生成結(jié)果集
return? lrs_customers//返回結(jié)果集
最后,保存改對(duì)象為"uo_customers"。
制作一個(gè)com組件的工程
新建"project",選擇"Com/mts? component? wizard",確定。
給工程定義一個(gè)名字"p_recordset_com"
接下來(lái),選擇要生成com的用戶對(duì)象"uo_customer"
設(shè)置生成com組件后的接口屬性,這里可以使用缺省。
然后自己定義組件的program? id為"pb70.uocustomer",
然后選擇該com組件的dll文件名,單擊"new",生成"component? server? appid",
同樣生成"type? library? id",最后,選擇pb資源文件名,以及注冊(cè)方式,之后,系統(tǒng)會(huì)
給出用戶設(shè)置的大致信息,然后選擇生成"to? do? list"
這樣就完成一個(gè)生成com組件的工程,名為"p_test_com"。
編譯工程并注冊(cè)組件
打開(kāi)已經(jīng)生成的工程,選擇相應(yīng)的pbl文件及用戶對(duì)象,編譯就可以了
下面我們創(chuàng)建asp網(wǎng)頁(yè)來(lái)調(diào)用這個(gè)pb? com
保存成asp文件
最后,在瀏覽器中就可以瀏覽這個(gè)asp文件了
說(shuō)明:pb7.0和pb8.0基本上差不多,讀者可以自己實(shí)踐
本文章來(lái)自www.21shipin.com? 21視頻教程網(wǎng)
如何在pb中創(chuàng)建COM組件,并在asp中調(diào)用并返回結(jié)果集?_asp教程 原文鏈接:http://www.21shipin.com/html/81103.shtml