欢迎光临
我们一直在努力

vbcom基础讲座之创建第一个com对象_visualbasic教程

建站超值云服务器,限时71元/月

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

  具体步骤如下:

-align=”right”>->->->

  启动VisualBasic;

  我们将看到一个”NewProject”对话框,其中有几个与ActiveX相关的选项图标。下面来解释一下:

  ActiveXDLL——创建一个包含类的.DLL程序,这是我们将要采用的选项;

  ActiveXEXE——创建一个包含类的.EXE程序,以后将讨论这个类型;

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

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

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

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

  当然,在上述那么多选项中,我们真正感兴趣的是ActiveXDLLs和ActiveEXEs。等会再来讨论后一种,这里先看看第一种!

  选中”ActiveXDLL”项;

  单击[OK]按钮;

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

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

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

  将类的Name属性改为”Customers”;

  选择”Project”->”ProjectProperties”菜单,在弹出的对话框中,将工程名改为”Northwind”;

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

  选择”Project”->”References”菜单;

  在弹出的对话框中,选择”MicrosoftActiveXDataObjects2.1Library”,单击[OK]按钮;该”引用”允许用户处理一个数据库,当然现在都使用COM对象来处理了。下面将围绕相应的记录集而展开:

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

->DimrsAsRecordset->

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

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

  在代码窗口中,将Object组合框中当前的”(General)”项改为”Class”;

  在右边的组合框中,确保当前项为”Initialize”;

  代码窗口中将出现:

->  PrivateSubClass_Initialize()

  EndSub->

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

  在”Initialize”事件中键入下列代码:

->  Setrs=NewRecordset

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

            ”Jet.OLEDB.4.0;DataSource=C:\ProgramFiles\”&_

            ”MicrosoftVisualStudio\VB98\Nwind.mdb;”&_

            ”PersistSecurityInfo=False”

  rs.Open”select*fromcustomers”,,adOpenKeyset,adLockOptimistic->

  这里不需要任何与该类相关的代码,它只是使用VisualBasic通用的ADO数据库处理代码,该类中的代码是用来如何与数据库建立连接的。

  需要说明的是,如果Northwind数据库Nwind.mdb不在C:\ProgramFiles\MicrosoftVisualStudio\VB98文件夹,那么必须将ActiveConnection字符串内容作适当修改!

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

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

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

  从Object组合框中选择”Class”,从Procedure组合框中选择”Terminate”;

  在”Terminate”事件中,添加下列代码:

->  rs.Close

  Setrs=Nothing->

  这就是我们添加的又一段简单代码,它只是简单地关闭数据库,然后将rs设置为Nothing。这样,rs就会被有效删除。

  好了,本节就到这里。下一节中,我们将继续添加代码用来处理数据中的记录集。->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » vbcom基础讲座之创建第一个com对象_visualbasic教程
分享到: 更多 (0)