六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心:是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺!

如何在pb中創(chuàng)建COM組件,并在asp中調(diào)用并返回結(jié)果集?

[摘要]啟動pb7.0,創(chuàng)建一個不可視的用戶對象"uo_customer",新建"object",選擇"custom class" 類型,點擊"ok"。 在新創(chuàng)建的用戶對象中編寫如下程序: 1.聲明實例變量"ins...

啟動pb7.0,創(chuàng)建一個不可視的用戶對象"uo_customer",新建"object",選擇"custom  class"
類型,點擊"ok"。
在新創(chuàng)建的用戶對象中編寫如下程序:
1.聲明實例變量"instance  variables",對于com中不支持的類型,請聲明為protected類型。protected:
datastore  ds_datastore
2.新建三個成員函數(shù):
int  uf_connect()//用于連結(jié)數(shù)據(jù)庫與創(chuàng)建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()//用于斷開數(shù)據(jù)庫連結(jié)和釋放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)//生成結(jié)果集
return  lrs_customers//返回結(jié)果集
最后,保存改對象為"uo_customers"。

制作一個com組件的工程
新建"project",選擇"Com/mts  component  wizard",確定。
給工程定義一個名字"p_recordset_com"
接下來,選擇要生成com的用戶對象"uo_customer"
設(shè)置生成com組件后的接口屬性,這里可以使用缺省。
然后自己定義組件的program  id為"pb70.uocustomer",
然后選擇該com組件的dll文件名,單擊"new",生成"component  server  appid",
同樣生成"type  library  id",最后,選擇pb資源文件名,以及注冊方式,之后,系統(tǒng)會
給出用戶設(shè)置的大致信息,然后選擇生成"to  do  list"
這樣就完成一個生成com組件的工程,名為"p_test_com"。

編譯工程并注冊組件
打開已經(jīng)生成的工程,選擇相應(yīng)的pbl文件及用戶對象,編譯就可以了

下面我們創(chuàng)建asp網(wǎng)頁來調(diào)用這個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基本上差不多,讀者可以自己實踐。




主站蜘蛛池模板: 午夜影院在线看 | 五月婷婷在线观看视频 | 亚洲婷婷影院 | 晚上正能量91香蕉 | 特级生活片 | 午夜久久久精品 | 亚洲高清日韩精品第一区 | 日韩毛片免费观看 | 欧洲亚洲综合 | 午夜小视频在线播放 | 中文字幕乱视频 | 天天躁日日躁成人字幕aⅴ 天天躁日日躁 疯人影院 | 午夜久久久久久久 | 亚洲欧洲免费 | 欧美小视频在线观看 | 日本国产免费一区不卡在线 | 青青在线视频 | 日本高清一区二区三区不卡免费 | 欧美一级高清视频在线播放 | 亚洲一区二区在线播放 | 涩涩涩在线视频 | 色婷婷综合激情 | 色综合久久天天综合 | 日本三级韩国三级欧美三级 | 亚洲狼人区 | 亚洲资源最新版在线观看 | 天天爱天天干天天操 | 婷婷开心六月久久综合丁香 | 日韩高清成人毛片不卡 | 青草青在线 | 青春草视频免费观看 | 三级中文有码中文字幕 | 婷婷伊人| 天天做天天爱夜夜爽毛片毛片 | 偷偷干夜夜拍 | 色无极影院亚洲 | 日本a级片免费看 | 五月天伊人 | 亚洲美女在线播放 | 午夜91视频| 午夜黄视频 |