Inicie pb7.0, cree un objeto de usuario invisible "uo_customer", cree un nuevo "objeto" y seleccione "clase personalizada"
Escriba y haga clic en "Aceptar".
Escriba el siguiente programa en el objeto de usuario recién creado:
1. Declare variables de instancia "variables de instancia". Para los tipos que no son compatibles con com, declarelos como tipos protegidos. protegido:
almacén de datos ds_datastore
2. Cree tres nuevas funciones miembro:
int uf_connect()//Se utiliza para conectarse a la base de datos y crear objetos del almacén de datos.
Código:
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit=falso
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
conectarse usando sqlca;
ds_datastore = crear almacén de datos
si sqlca.sqlcode=0 entonces
regresar 1
demás
regresar -1
end if
void uf_disconnect()//Se utiliza para desconectar la base de datos y liberar el objeto del almacén de datos.
si es válido (ds_datastore), entonces destruya ds_datastore
desconectarse usando sqlca;
conjunto de resultados uf_retrieve()//Leer información del cliente
conjunto de resultados lrs_customers
ds_datastore.dataobject="d_cliente"
ds_datastore.retrieve()
ds_datastore.generateresultset(lrs_customers)//Generar conjunto de resultados
return lrs_customers // Devuelve el conjunto de resultados Finalmente, guarde el objeto modificado como "uo_customers".
Cree un proyecto de componente COM, cree un nuevo "proyecto", seleccione "Asistente de componentes Com/mts" y confirme.
Defina un nombre "p_recordset_com" para el proyecto
A continuación, seleccione el objeto de usuario "uo_customer" para generar com.
Establezca las propiedades de la interfaz después de generar el componente COM. Puede usar el valor predeterminado aquí.
Luego defina usted mismo la identificación del programa del componente como "pb70.uocustomer",
Luego seleccione el nombre del archivo dll del componente com, haga clic en "nuevo" para generar "appid del servidor de componentes",
También genere "tipo de identificación de biblioteca". Finalmente, seleccione el nombre del archivo de recursos pb y el método de registro. Después de eso, el sistema le brindará la información general de la configuración del usuario y luego elegirá generar "lista de tareas pendientes".
Esto completa un proyecto para generar componentes COM, denominado "p_test_com".
Compile el proyecto y registre los componentes. Abra el proyecto generado, seleccione el archivo pbl y el objeto de usuario correspondientes y compilamos.
A continuación, creamos una página web asp para llamar a este pb com.
<head><title>pb com</title></head>
<cuerpo>
<%
establecer clientes=server.createobject("pb70.uo_customers")
iflag=clientes.uf_connect()
establecer rs=clientes.uf_retrieve()
'www.downcodes.com
%>
<tabla>
<%rs.movefirst
hacer mientras no rs.eof
%>
<tr>
<td><%=rs("lnombre")%></td>
<td><%=rs("dirección")%></td>
<td><%=rs("ciudad")%></td>
</tr>
<%rs.movenext
bucle
rs.cerrar
clientes.uf_disconnect()
%>
</tabla>
</cuerpo>
Guárdelo como un archivo asp.
Finalmente, puede explorar el archivo asp en el navegador.
Nota: pb7.0 y pb8.0 son básicamente iguales.