|教程: VBCOM基础讲座之创建第一个COM对象|-|无师自通-教程网|

欢迎大家光临【无师自通-教程网】您的到来是我们的荣幸。本站提供photoshop教程,ps教程,flash教程,cad教程,网页制作教程,excel教程,asp教程,vb教程,3d教程,c语言教程,html教程,coreldraw教程,dreamweaver教程,java教程,3dmax教程等各种教程为主题的内容和服务,相信您会在这里找到您所需要的东东。无师自通伴您一生-谢谢您的光临！！

		网站地图	设为首页
		简繁切换	加入收藏
		栏目待定	留言本站

您现在的位置：无师自通-教程网 >> 程序设计 >> vb教程 >> vb基础 >> 教程正文

没有公告

图形图像教程	photoshop	Flash	3DS Max	CorelDraw	Fireworks	Illustrator	Maya	AutoCAD
网络应用教程	局域网教程	综合布线	系统集成	无盘网络组建	网络产品资料	网络风险评估	光纤通信	网络接入
程序设计教程	C语言教程	vb教程	C#教程	VC语言教程	Ｃ＋＋教程	Java教程	数据库教程	Delphi教程
操作系统教程	WindowsXP	Linux	Win2003	Vista	Win2000	苹果系统	Dos教程	FreeBSD
办公软件教程	Word教程	Excel教程	Powerpoint	Wps教程	Office视频	系统相关	系统工具	杀毒查毒
WEB开发教程	Asp教程	Jsp教程	Php教程	Xml教程	Html教程	CSS教程	CGI-Perl教程	ASP.NET

教程: VBCOM基础讲座之创建第一个COM对象

让我们直接来开始创建第一个真正的COM对象，它将被用于那些ActiveX程序中。

　　具体步骤如下：

　　启动Visual Basic；

　　我们将看到一个"New Project"对话框，其中有几个与ActiveX相关的选项图标。下面来解释一下：

　　 ActiveX DLL——创建一个包含类的.DLL程序，这是我们将要采用的选项；

　　 ActiveX EXE——创建一个包含类的.EXE程序，以后将讨论这个类型；

　　 ActiveX Control——添加一个工程，允许自己创建用于toolbox中的控件。这里不去讨论它。

　　 ActiveX Document EXE——创建一个基于Web页的.EXE程序，这里也不去讨论。

　　 ActiveX Document DLL——创建一个基于Web页的.DLL程序，由于与我们的主题甚远，所以自然也不去讨论它。

　　顺便说明一下，如果在工程列表中没有上述选项，那么你可能使用了Visual Basic的学习版。

　　当然，在上述那么多选项中，我们真正感兴趣的是ActiveX DLLs和Active EXEs。等会再来讨论后一种，这里先看看第一种！

　　选中"ActiveX DLL"项；

　　单击[OK]按钮；

　　这样，一个ActiveX DLL工程就建立好了。我们之所以创建ActiveX DLL是准备将它作为一个前端服务器，它基于Northwind数据库中的Customers表的(Northwind数据库是随Visual Basic一起发行的，位于VB98文件夹中)。

　　这也就是说，我们后面一定会处理Customers信息，但那时我们仅仅需要对类的调用，而不想过多地停留在数据处理代码的纠缠中。

　　当然，我们得首先创建这个类。虽然COM能使编程更容易一点，但这个类的构造还是比较困难的。尽管如此，在深入数据库之前，先来对ActiveX程序中的名称作一些修改。

　　将类的Name属性改为"Customers"；

　　选择"Project"->"Project Properties"菜单，在弹出的对话框中，将工程名改为"Northwind"；

　　现在再来使类与数据库相连：

　　选择"Project"->"References"菜单；

　　在弹出的对话框中，选择"Microsoft ActiveX Data Objects 2.1 Library"，单击[OK]按钮；该"引用"允许用户处理一个数据库，当然现在都使用COM对象来处理了。下面将围绕相应的记录集而展开：

　　在我们的类中添加下列代码：

Dim rs As Recordset
　　这是一个用于访问数据库的记录集对象。

　　当然，当其他开始使用该类时，我们希望记录集对象能和数据库建立连接，而当类使用结束后，与数据库的连接能断开。基于这种思想，其代码如下：

　　在代码窗口中，将Object组合框中当前的"(General)"项改为"Class"；

　　在右边的组合框中，确保当前项为"Initialize"；

　　代码窗口中将出现：

　　Private Sub Class_Initialize()

　　 End Sub
　　当类刚开始时，所有这里面的代码都会被执行，类似于表单中的Form_Load事件。

　　在"Initialize"事件中键入下列代码：

　　Set rs = New Recordset

　　 rs.ActiveConnection = "Provider=Microsoft." & _

　　　　　　　　　　　　 "Jet.OLEDB.4.0;Data Source=C:\Program Files\" & _

　　　　　　　　　　　　 "Microsoft Visual Studio\VB98\Nwind.mdb;" & _

　　　　　　　　　　　　 "Persist Security Info=False"

　　 rs.Open "select * from customers", , adOpenKeyset, adLockOptimistic
　　这里不需要任何与该类相关的代码，它只是使用Visual Basic通用的ADO数据库处理代码，该类中的代码是用来如何与数据库建立连接的。

　　需要说明的是，如果Northwind数据库Nwind.mdb不在C:\Program Files\Microsoft Visual Studio\VB98文件夹，那么必须将ActiveConnection字符串内容作适当修改！

　　当类开始时，rs对象负责与数据库建立连接，但当类对象结束后或程序关闭它时，我们应该使该连接断开。

　　编程时，我们使用Terminate事件，它与Form_Unload非常相似的。从名称来看，它们都有一个"n"，但更相似的地方是当相应的对象关闭后，它们都会被激发。

　　下面来加入数据库关闭的代码：

　　从Object组合框中选择"Class"，从Procedure组合框中?br />

[1] [2] 下一页

教程录入：admin 责任编辑：admin

上一篇教程：教程: VBCOM基础讲座之类的测试

下一篇教程：教程: VisualBasicCOM基础讲座之事件

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

access基础知识

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|
	免责声明!本站资料大部分来自于互联网,其版权归原作者或其他合法者所有.如内容涉及或侵犯了您的权益,请通知本人,我将尽快处理!.欢迎您的光临。辽ICP备07003958号