Démarrez pb7.0, créez un objet utilisateur invisible "uo_customer", créez un nouvel "objet" et sélectionnez "classe personnalisée"
Tapez et cliquez sur "ok".
Écrivez le programme suivant dans l'objet utilisateur nouvellement créé :
1. Déclarez les variables d'instance "variables d'instance". Pour les types qui ne sont pas pris en charge dans com, veuillez les déclarer comme types protégés. protégé:
banque de données ds_datastore
2. Créez trois nouvelles fonctions membres :
int uf_connect()//Utilisé pour se connecter à la base de données et créer des objets de banque de données.
Code:
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit=false
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
connectez-vous en utilisant sqlca ;
ds_datastore = créer une banque de données
si sqlca.sqlcode=0 alors
retour 1
autre
retour -1
end if
void uf_disconnect()//Utilisé pour déconnecter la base de données et libérer l'objet banque de données.
si est valide (ds_datastore) alors détruisez ds_datastore
déconnectez-vous en utilisant sqlca ;
resultset uf_retrieve()//Lire les informations client
ensemble de résultats lrs_customers
ds_datastore.dataobject="d_customer"
ds_datastore.retrieve()
ds_datastore.generateresultset(lrs_customers)//Générer un jeu de résultats
return lrs_customers//Renvoyer le jeu de résultats Enfin, enregistrez l'objet modifié sous "uo_customers".
Créez un projet de composant COM, créez un nouveau "projet", sélectionnez "Assistant de composant Com/mts" et confirmez.
Définir un nom "p_recordset_com" pour le projet
Ensuite, sélectionnez l'objet utilisateur "uo_customer" pour générer com
Définissez les propriétés de l'interface après avoir généré le composant COM. Vous pouvez utiliser la valeur par défaut ici.
Définissez ensuite vous-même l'ID de programme du composant comme "pb70.uocustomer",
Sélectionnez ensuite le nom du fichier dll du composant com, cliquez sur "nouveau" pour générer "l'appid du serveur de composants",
Générez également "l'identifiant de la bibliothèque de types". Enfin, sélectionnez le nom du fichier de ressources pb et la méthode d'enregistrement. Après cela, le système vous donnera les informations générales sur les paramètres utilisateur, puis choisira de générer une "liste de tâches".
Ceci termine un projet de génération de composants COM, nommé "p_test_com".
Compilez le projet et enregistrez les composants. Ouvrez le projet généré, sélectionnez le fichier pbl et l'objet utilisateur correspondant, puis compilons.
Ensuite, nous créons une page Web asp pour appeler ce pb com.
<head><title>pb com</title></head>
<corps>
<%
set clients=server.createobject("pb70.uo_customers")
iflag=clients.uf_connect()
définir rs=clients.uf_retrieve()
'www.downcodes.com
%>
<tableau>
<%rs.movefirst
faire sans rs.eof
%>
<tr>
<td><%=rs("lname")%></td>
<td><%=rs("adresse")%></td>
<td><%=rs("ville")%></td>
</tr>
<%rs.movenext
boucle
rs.fermer
clients.uf_disconnect()
%>
</table>
</corps>
Enregistrez-le en tant que fichier asp.
Enfin, vous pouvez parcourir le fichier asp dans le navigateur.
Remarque : pb7.0 et pb8.0 sont fondamentalement les mêmes.