Mulai pb7.0, buat objek pengguna yang tidak terlihat "uo_customer", buat "objek" baru, dan pilih "kelas khusus"
Ketik dan klik "ok".
Tulis program berikut di objek pengguna yang baru dibuat:
1. Deklarasikan variabel instan "variabel instan". Untuk tipe yang tidak didukung di com, harap deklarasikan sebagai tipe yang dilindungi. terlindung:
penyimpanan data ds_datastore
2. Buat tiga fungsi anggota baru:
int uf_connect()//Digunakan untuk terhubung ke database dan membuat objek datastore.
Kode:
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit=salah
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
terhubung menggunakan sqlca;
ds_datastore =membuat penyimpanan data
jika sqlca.sqlcode=0 maka
kembali 1
kalau tidak
kembali -1
end if
void uf_disconnect()//Digunakan untuk memutuskan koneksi database dan melepaskan objek datastore.
jika tidak valid(ds_datastore) maka hancurkan ds_datastore
putuskan sambungan menggunakan sqlca;
resultet uf_retrieve()//Baca informasi pelanggan
hasil yang ditetapkan lrs_customers
ds_datastore.dataobject="d_customer"
ds_datastore.retrieve()
ds_datastore.generateresultset(lrs_customers)//Buat kumpulan hasil
return lrs_customers//Kembalikan kumpulan hasil. Terakhir, simpan objek yang diubah sebagai "uo_customers".
Buat proyek komponen COM, buat "proyek" baru, pilih "Com/mts Component Wizard", dan konfirmasi.
Tentukan nama "p_recordset_com" untuk proyek tersebut
Selanjutnya, pilih objek pengguna "uo_customer" untuk menghasilkan com
Atur properti antarmuka setelah membuat komponen COM. Anda dapat menggunakan default di sini.
Kemudian tentukan sendiri id program komponen tersebut sebagai "pb70.uocustomer",
Kemudian pilih nama file dll dari komponen com, klik "baru" untuk menghasilkan "appid server komponen",
Juga buat "ketik id perpustakaan". Terakhir, pilih nama file sumber daya pb dan metode pendaftaran. Setelah itu, sistem akan memberi Anda informasi umum tentang pengaturan pengguna, dan kemudian pilih untuk membuat "daftar tugas".
Ini menyelesaikan proyek untuk menghasilkan komponen COM, bernama "p_test_com".
Kompilasi proyek dan daftarkan komponennya. Buka proyek yang dihasilkan, pilih file pbl dan objek pengguna yang sesuai, dan kompilasi.
Selanjutnya, kita membuat halaman web asp untuk memanggil pb com.
<head><title>pb com</title></head>
<tubuh>
<%
atur pelanggan=server.createobject("pb70.uo_customers")
iflag=pelanggan.uf_connect()
atur rs=customers.uf_retrieve()
'www.downcodes.com
%>
<tabel>
<%rs.movefirst
lakukan selagi tidak rs.eof
%>
<tr>
<td><%=rs("lname")%></td>
<td><%=rs("alamat")%></td>
<td><%=rs("kota")%></td>
</tr>
<%rs.movenext
lingkaran
rs.tutup
pelanggan.uf_disconnect()
%>
</tabel>
</tubuh>
Simpan sebagai file asp.
Terakhir, Anda dapat menelusuri file asp di browser.
Catatan: pb7.0 dan pb8.0 pada dasarnya sama.