Home > Developer > ASP

How can I create a COM component in Pb, call it in ASP, and return the result set?

Source: Internet
Author: User
Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞
Start pb7.0 and create an invisible user object "uo_customer". Create an "object" and select "Custom class"
Type, click "OK ".
Write the following program in the newly created user object:
1. Declare the instance variable "instance variables". For types not supported in COM, declare it as protected type. Protected:
Datastore ds_datastore
2. Create three new member functions:
Int uf_connect () // used to link a database and create a datastore object.
Code:
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 () // used to disconnect a database and release a datastore object.
If isvalid (ds_datastore) then destroy ds_datastore
Disconnect using sqlca;

Resultset uf_retrieve () // read customer information
Resultset lrs_customers
Ds_datastore.dataobject = "d_customer"
Ds_datastore.retrieve ()
Ds_datastore.generateresultset (lrs_customers) // generate a result set
Return lrs_customers // return result set
Finally, save the modified object as "uo_customers ".

Create a COM Component Project
Create a project, select COM/MTS component wizard, and click OK.
Define a name for the project "p_recordset_com"
Next, select the user object "uo_customer" to generate COM"
Set the interface attribute after the COM component is generated. The default attribute can be used here.
Then define the program ID of the component as "pb70.uocustomer ",
Select the DLL file name of the COM component and click "new" to generate "component server appid ",
Generate the "Type Library ID" and select the Pb resource file name and registration method.
Give the general information set by the user, and then choose to generate "to do list"
This completes a project for generating the COM component named "p_test_com ".

Compile the project and register Components
Open the generated project, select the corresponding PBL file and user object, and compile it.

Next we will create an ASP Webpage to call this Pb com
<Head> <title> Pb com </title> <Body>
<%
Set MERs = server. Createobject ("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>
Save as an ASP file

Finally, you can browse the ASP file in the browser.

Note: pb7.0 and pb8.0 are basically the same. You can practice them on your own.

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

Related Keywords:
how can create website in html how to create website in asp net how to set default page in asp net website and in asp net create website in asp net with master page and css how to set default page in asp net web config how to create forum website in asp net
Related Article
Formatremoteurl function of the ASP implementation format int...
ASP. NET core combined with consul cluster &docker to rea...
ASP. NET Core SignalR uses a generic hub to gracefully invoke...
ASP. NET Core 2.0 leverages Masstransit integrated RABBITMQ
Integration testing of ASP. NET Core Webapi using Xunit
CKEDITOR + CKFINDER image upload configuration (C #/asp.net/php)

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

What's Trending
Top 10 Tags
datastax versions naming convention zookeeper client class definition md5 microsoft sql server 2005 data structures exception handling error handling
Top 10 Keywords
microsoft download center down wordpress address url site address url wordpress address url windows installer 4 0 download 302 not found web address url definition site address url wordpress db2 integer mac os installation step by step pdf abbreviation for return

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More