如何在pb中创建COM组件，并在asp中调用并返回结果集？

最新推荐文章于 2022-11-17 12:15:42 发布

zgqtxwd

最新推荐文章于 2022-11-17 12:15:42 发布

阅读量354

点赞数

分类专栏：数据库文章标签： asp 数据库 object 浏览器 dll table

数据库专栏收录该内容

3935 篇文章 3 订阅

订阅专栏

启动 COM" target=_blank>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.auto COMmit=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为" COM" target=_blank>pb70.uocustomer",
然后选择该 COM 组件的dll文件名，单击"new",生成" COMponent  server  appid",
同样生成"type  library  id",最后，选择 COM" target=_blank>pb资源文件名，以及注册方式，之后，系统会
给出用户设置的大致信息，然后选择生成"to  do  list"
这样就完成一个生成 COM 组件的工程，名为"p_test_ COM"。

编译工程并注册组件
打开已经生成的工程，选择相应的 COM" target=_blank>pbl文件及用户对象，编译就可以了

下面我们创建 asp网页来调用这个 COM" target=_blank>pb   COM
<head><title> COM" target=_blank>pb   COM</title></head>
<body>
<%
set  customers=server.createobject(" COM" target=_blank>pb70.uo_customers")
iflag=customers.uf_connect()
set  rs=customers.uf_retrieve()
%>
<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文件了

说明: COM" target=_blank>pb7.0和 COM" target=_blank>pb8.0基本上差不多，读者可以自己实践。 <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>