pb7.0を起動し、非表示のユーザーオブジェクト「uo_customer」を作成し、新しい「オブジェクト」を作成し、「カスタムクラス」を選択します。
を入力して「OK」をクリックします。
新しく作成したユーザー オブジェクトに次のプログラムを記述します。
1. インスタンス変数を「インスタンス変数」として宣言します。com でサポートされていない型については、保護された型として宣言してください。保護されています:
データストア ds_datastore
2. 3 つの新しいメンバー関数を作成します。
int uf_connect()//データベースに接続し、データストア オブジェクトを作成するために使用されます。
コード：
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit=false
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
SQLCA を使用して接続します。
ds_datastore = データストアの作成
sqlca.sqlcode=0 の場合
1を返す
それ以外
-1 を返す
end if
void uf_disconnect()//データベースを切断し、データストア オブジェクトを解放するために使用されます。
isvalid(ds_datastore) の場合は、ds_datastore を破棄します
sqlca を使用して切断します。
resultset uf_retrieve()//顧客情報を読み取る
結果セット lrs_customers
ds_datastore.dataobject="d_customer"
ds_datastore.retrieve()
ds_datastore.generateresultset(lrs_customers)//結果セットを生成する
return lrs_customers//結果セットを返します。 最後に、変更したオブジェクトを「uo_customers」として保存します。
COM コンポーネント プロジェクトを作成し、新しい「プロジェクト」を作成し、「Com/mts コンポーネント ウィザード」を選択して確認します。
プロジェクトの名前「p_recordset_com」を定義します。
次に、com を生成するユーザー オブジェクト「uo_customer」を選択します。
COM コンポーネントを生成した後、インターフェイスのプロパティを設定します。ここではデフォルトを使用できます。
次に、コンポーネントのプログラム ID を自分で「pb70.uocustomer」として定義します。
次に、com コンポーネントの dll ファイル名を選択し、「新規」をクリックして「コンポーネント サーバー appid」を生成します。
「タイプ ライブラリ ID」も生成します。最後に、pb リソース ファイル名と登録方法を選択すると、システムはユーザー設定の一般的な情報を表示し、「To Do リスト」を生成することを選択します。
これで、「p_test_com」という名前の COM コンポーネントを生成するプロジェクトが完成します。
プロジェクトをコンパイルしてコンポーネントを登録します。生成されたプロジェクトを開き、対応する pbl ファイルとユーザー オブジェクトを選択して、
この pb com を呼び出す ASP Web ページを作成します。
<head><title>PB コム</title></head>
<本文>
<%
set Customers=server.createobject("pb70.uo_customers")
iflag=customers.uf_connect()
set rs=customers.uf_retrieve()
「www.downcodes.com」
%>
<テーブル>
<%rs.movefirst
rs.eof ではないときに実行します
%>
<tr>
<td><%=rs("lname")%></td>
<td><%=rs("アドレス")%></td>
<td><%=rs("city")%></td>
</tr>
<%rs.movenext
ループ
rs.close
customer.uf_disconnect()
%>
</テーブル>
</body>
それを asp ファイルとして保存します。
最後に、ブラウザで asp ファイルを参照できます。
注: pb7.0 と pb8.0 は基本的に同じです。