Inicie o pb7.0, crie um objeto de usuário invisível "uo_customer", crie um novo "objeto" e selecione "classe personalizada"
Digite e clique em "ok".
Escreva o seguinte programa no objeto de usuário recém-criado:
1. Declarar variáveis de instância "variáveis de instância". Para tipos que não são suportados em com, declare-os como tipos protegidos. protegido:
armazenamento de dados ds_datastore
2. Crie três novas funções-membro:
int uf_connect()//Usado para conectar ao banco de dados e criar objetos de armazenamento de dados.
Código:
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit=falso
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
conectar usando sqlca;
ds_datastore =cria armazenamento de dados
se sqlca.sqlcode=0 então
retornar 1
outro
retornar -1
end if
void uf_disconnect()//Usado para desconectar o banco de dados e liberar o objeto de armazenamento de dados.
se for válido (ds_datastore) então destrua ds_datastore
desconectar usando sqlca;
conjunto de resultados uf_retrieve() //Lê as informações do cliente
conjunto de resultados lrs_customers
ds_datastore.dataobject="d_customer"
ds_datastore.retrieve()
ds_datastore.generateresultset(lrs_customers)//Gerar conjunto de resultados
return lrs_customers // Retorna o conjunto de resultados. Finalmente, salve o objeto alterado como "uo_customers".
Crie um projeto de componente COM, crie um novo "projeto", selecione "Assistente de componente Com/mts" e confirme.
Defina um nome "p_recordset_com" para o projeto
Em seguida, selecione o objeto de usuário "uo_customer" para gerar com
Defina as propriedades da interface após gerar o componente COM. Você pode usar o padrão aqui.
Em seguida, defina você mesmo o ID do programa do componente como "pb70.uocustomer",
Em seguida, selecione o nome do arquivo DLL do componente com, clique em "novo" para gerar "component server appid",
Gere também o "ID da biblioteca de tipos". Por fim, selecione o nome do arquivo do recurso pb e o método de registro. Depois disso, o sistema fornecerá as informações gerais das configurações do usuário e, em seguida, optará por gerar a "lista de tarefas".
Isso conclui um projeto para gerar componentes COM, denominado "p_test_com".
Compile o projeto e registre os componentes. Abra o projeto gerado, selecione o arquivo pbl e o objeto de usuário correspondentes e compile.
Em seguida, criamos uma página web asp para chamar este pb com.
<head><title>pb com</title></head>
<corpo>
<%
definir clientes=server.createobject("pb70.uo_customers")
iflag=clientes.uf_connect()
definir rs = clientes.uf_retrieve ()
'www.downcodes.com
%>
<tabela>
<%rs.movefirst
faça enquanto não rs.eof
%>
<tr>
<td><%=rs("lname")%></td>
<td><%=rs("endereço")%></td>
<td><%=rs("cidade")%></td>
</tr>
<%rs.movenext
laço
rs.fechar
clientes.uf_disconnect()
%>
</tabela>
</body>
Salve-o como um arquivo asp.
Finalmente, você pode navegar pelo arquivo asp no navegador.
Nota: pb7.0 e pb8.0 são basicamente os mesmos.