VB对SQL Server数据库的访问解析

第１Ｏ卷第６期　

２０１０年ｌ２月　

潍坊学院学报　

Ｊｏｕｒｎａｌ　ｏｆ　Ｗｅｉｆａｎｇ　Ｕｎｉｖｅｒｓｉｔｙ　

ＶｏＩ．１０　Ｎｏ．６　

ＮＯＶ．２Ｏ１Ｏ　

ＶＢ对ＳＱＬ　Ｓｅｒｖｅｒ数据库的访问解析　

侯　刚　

（潍坊学院，山东　

潍坊２６１０６１）　

摘　要：本文讨论了Ｖｉｓｕａｌ　Ｂａｓｉｃ应用程序访问ＳＱＬ　Ｓｅｒｖｅｒ数据库的几种常用的方法，分别说明了每　

种方法的内部机理并给出了每种方法的一个简单的实例，最后比较了每种方法性能和优缺点。　

关键词：Ｖｉｓｕａｌ　Ｂａｓｉｃ；ＳＱＬ　Ｓｅｒｖｅｒ；数据库　

中图分类号：ＴＰ３９３　文献标识码：Ａ　文章编号：１６７１—４２８８（２０１０）０６－－００６１—０６　

ＳＱＬ　Ｓｅｒｖｅｒ是微软推出的中小型网络数据库系统，是目前最常用的数据库系统之一。随着ＳＱＬ　

Ｓｅｒｖｅｒ网络数据库应用程序日益增多，这种ｗｅｂ数据库应用系统的正常运行一般依赖于已存在的用户数　

据库。创建维护数据库的工作可用ＳＱＬ　Ｓｅｒｖｅｒ提供的ＳＱＬ　Ｅｎｔｅｒｐｒｉｓｅ　Ｍａｎａｇｅｒ　２１２具来进行，如能提供一　

种定制的数据库管理工具，通过管理应用程序来管理数据库及其设备，对用户来说无疑是最理想的。　

Ｖｉｓｕａｌ　Ｂａｓｉｃ作为一种面向对象的可视化编程工具，具有简单易学，灵活方便和易于扩充的特点。而　

且Ｍｉｃｒｏｓｏｆｔ为其提供了与ＳＱＬ　Ｓｅｒｖｅｒ通信的ＡＰＩ函数集及工具集，因此它越来越多地用作大型公司数　

据和客户机一服务器应用程序的前端，与后端的Ｍｉｃｒｏｓｏｆｔ　ＳＱＬ　Ｓｅｒｖｅｒ相结合，ＶＢ能够提供一个高性能　

的客户机一服务器方案。　

１　ＶＢ访问ＳＱＬ　Ｓｅｒｖｅｒ数据的常用方法　

１．１数据访问对象／Ｊｅｔ　

ＶＢ支持Ｄａｔａ　Ａｃｃｅｓｓ　Ｏｂｊｅｃｔｓ（ＤＡＯｓ）的子集。ＤＡＯ的方法虽然不是性能最好的管理客户机一服务　

器之间的对话方式，但它的确有许多优点。ＤＡＯ／Ｊｅｔ是为了实现从ＶＢ访问Ａｃｃｅｓｓ数据库而开发的程序　

接口对象。使用ＤＡＯｓ访问ＳＱＬ　Ｓｅｒｖｅｒ的过程如下：　

应用程序准备好语句并送至Ｊｅｔ，Ｊｅｔ引擎（ＭＡＳＪＴ２ＯＯ．ＤＬＬ）优化查询，载人驱动程序管理器并与之　

通讯，驱动程序管理器（ＯＤＢＣ．ＤＬＬ）通过调用驱动器（ＳＱＬＳＲＶＲ．ＤＬＬ）的函数，实现连接到数据源，翻译　

并向ＳＱＬ　Ｓｅｒｖｅｒ提交ＳＱＬ语句且返回结果。下面是一个用ＤＡＯｓ访问ＳＱＬ　Ｓｅｒｖｅｒ的ＶＢ实例。　

Ｄｉｍ　ｍｙｄｂ　Ａｓ　Ｄａｔａｂａｓｅ　

Ｄｉｍ　ｍｙｄｙｎａｓｅｔ　Ａｓ　Ｄｙｎａｓｅｔ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＦｏｒｍＩ　ｏａｄ（）　

＿

Ｓｅｔ　ｍｙｄｂ—ＯｐｅｎＤａｔａｂａｓｅ（””，Ｆａｌｓｅ，Ｆａｌｓｅ，”ＯＤＢＣ；ＤＳＮ＝Ｍｙｓｅｒｖｅｒ；ＷＳＩＤ＝ＬＣＩ　；ＤＡＴＡＢＡＳＥ—ｓａｌｅｓ”）　

Ｓｅｔ　ｍｙｄｙｎａｓｅｔ—ｍｙｄｂ　ＣｒｅａｔｅＤｙｎａｓｅｔ（”Ｓｅｌｅｃｔ＊ｆｒｏｍ　Ｃｕｓｔｏｍｅｒｓ”）　

Ｅｎｄ　Ｓｕｂ　

上述例子是以非独占、非只读方式打开ｓａｌｅｓ数据库，并检索Ｃｕｓｔｏｍｅｒｓ表中的所有字段。ＯｐｅｎＤａｔａ—　

ｂａｓｅ函数的最后一个参数是ＯＤＢＣ连接字符串参数，它指明了Ｍｉｃｒｏｓｏｆｔ　Ａｃｃｅｓｓ连接到ＳＱＬ　Ｓｅｒｖｅｒ所需　

要知道的一些内容。其中“ＤＳＮ”为数据源名，“ＷＳＩＤ”为工作站名，“ＤＡＴＡＢＡＳＥ”为所要访问的数据库　

名。　

１．２利用ＯＤＢＣ　ＡＰＩ编程　

ＯＤＢＣ（Ｏｐｅｎ　Ｄａｔａｂａｓｅ　Ｃｏｎｎｅｃｔｉｖｉｔｙ）的思想是访问异种数据库的一种可移植的方式。与数据资源对　

话的公用函数组装在一个称为驱动程序管理器（ＯＤＢＣ．ＤＬＬ）的动态连接中。应用程序调用驱动程序管理　

器中的函数，而驱动程序管理器反过来通过驱动器（ＳＱＬＳＲＶＲ．ＤＬＬ）把它们送到服务器中。　

＊收稿日期：２ＯｌＯ一０８—１６　

作者简介：侯刚（１９７０一），男，山东高密人，潍坊学院计算机与通信工程学院讲师。　

潍坊学院学报　２Ｏ１０年１２月　

下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。　

Ｇｌｏｂａｌ　ｇｉＨＥｎｖ　Ａｓ　Ｌｏｎｇ　

Ｇｌｏｂａｌ　ｇｉＨＤＢ　Ａｓ　Ｌｏｎｇ　

Ｇｌｏｂａｌ　ｇｉＨＳｔｍｔ　Ａｓ　Ｌｏｎｇ　

Ｄｉｍ　ｍｙＲｅｓｕｈ　Ａｓ　ｉｎｔｅｇｅｒ　

Ｄｉｍ　ｍｙＣｏｎｎｅｃｔｉｏｎ　Ａｓ　Ｓｒｔｉｎｇ　

Ｄｉｍ　ｍｙＢｕｆｆ　Ａｓ　Ｓｔｒｉｎｇ　２５６　

Ｄｉｍ　ｍｙＢｕｆｆｌｅｎ　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｉｆ　ＳＱＩ　ＡｌｌｏｃＥｎｖ（ｇｉＨＥｎｖ）＜＞ＳＱＬ—ＳＵＣＣＥＳＳ　Ｔｈｅｎ　

ＭｓｇＢｏｘ”Ａｌｌｏｃａｔｉｏｎ　ｃｏｕｌｄｎ注释：ｔ　ｈａｐｐｅｎ！”　

Ｅｎｄ　Ｉｆ　

Ｉｆ　ＳＱＩ　ＡｌｌｏｃＣｏｎｎｅｃｌ（ｇｉＨＥｎｖ，ｇｉＨＤＢ）＜＞ＳＱＩ　一ＳＵＣＣＥＳＳ　Ｔｈｅｎ　

ＭｓｇＢｏｘ”ＳＱＬ　Ｓｅｒｖｅｒ　ｃｏｕｌｄｎ注释：ｔ　ｃｏｎｎｅｃｔ！＿ｌ　

Ｅｎｄ　ｌｆ　

ｍｙＣｏｎｎｅｃｔｉｏｎ＝”ＤＳＮ＝ｍｙＳｅｒｖｅｒ；ＵＩＤ＝Ｉ　ＣＩ　；ＰＷＤ＝；ＡＰＰ＝ＯＤＢＣＴｅｓｔ；ＷＳＩＤ＝Ｉ　ＣＩ　；ＤＡＴＡＢＡＳＥ—ｓａｌｅｓ”　

ｍｙＲｅｓｕｌｔ—ＳＱ１　ＤｒｉｖｅｒＣｏｎｎｅｃｔ（ｇｉＨＤＢ，Ｔｅｓｔ，ｆｏｒｍ１．ｈＷｎｄ，ｍｙＣｏｎｎｅｃｔｉｏｎ．１ｅｎ（ｍｙＣｏｎｎｅｃｔｉｏｎ），ｍｙＢｕｆｆ，２５６，ｍｙＢｕｆｆｌｅｎ，　

ＳＱＩ　一ＤＲＩＶＥＲ—ＣＯＭＰＩ　ＥＴＥ—ＲＥＱＵ　ＩＥＤ）　

ｍｙＲｅｓｕｌｔ＝ＳＱＩ　ＡｌｌｏｃＳｔｍｔ（ｇｉＨＤＳ．ｇｉＨＳｔｍｔ）　

ｍｙＲｅｓｕｌｔ—ＳＱＩＪＦｒｅｅＳｔｍｔ（ｇｉＨＳｔｍｔ，ＳＱ１　Ｃ０Ｉ　ＳＥ）　

ｒｓＳＱＩ　一”Ｓｅｌｅｃｔ＊ｆｒｏｍ　Ｃｕｓｔｏｍｅｒｓ　Ｗｈｅｒｅ　Ｃｉｔｙ一”Ｈｕｎａｎ””　

ｍｙＲｅｓｕｌｔ　ＳＱＩ　ＥｘｅｃＤｉｒｅｃｔ（ｇｉＨＳｔｍｔ，ｒｓＳＱＩ　，Ｉ．ｅｎ（ｒｓＳＱＩ　））　

１．３使用ＶＢＳＱＬ对ＤＢ库ＡＰＩ编程　

ＤＢ库是ＳＱＩ　Ｓｅｒｖｅｒ的本地ＡＰＩ，ＳＱＬ　Ｓｅｒｖｅｒ的Ｖｉｓｕａｌ　Ｂａｓｉｃ库（ＶＢＳＱＬ）为Ｖｉｓｕａｌ　Ｂａｓｉｃ程序员提　

供ＡＰＩ。从一定意义上说，ＶＢＳＱＬ是连接Ｖｉｓｕａｌ　Ｂａｓｉｃ程序到ＳＱＩ　Ｓｅｒｖｅｒ的性能最好最直接的方式。　

ＶＢＳＱＬ包含以下三个文件：　

ＶＢＳＱＬ．ＶＢＸ：包含库函数，具有访问重要的消息和处理错误的能力。　

ＶＢＳＱＩ　ＢＩ：包括所有的常量和变量说明。　

ＶＢＳＱＬ．ＨＬＰ：Ｗｉｎｄｏｗｓ帮助文件，使用ＶＢＳＱＬ的指南。　

使用ＶＢＳＱＩ　时，必须将ＶＢＳＱＬ．ＢＩ加入到Ｖｉｓｕａｌ　Ｂａｓｉｃ工程文件中，并确保ＶＢ程序运行时有ＶＢＳ—　

ＱＩ　．ＶＢＸ文件。　

一

般的ＤＢ库ＡＰＩ编程的过程是这样的：先通过调用ＳｑｌＩｎｉｔ对ＤＢ库进行初始化，再调用ＳｑｌＣｏｎｎｅｃ—　

ｔｉｏｎ打开一个连接，然后就可做一些工作。下面的代码是一个初始化ＤＢ库并登录到服务器的通用例程。　

ＰｒｉｖａｌＣ　Ｓｕｂ　ＩｎｉｔｉａｌｉｚｅＡｐｐｌｉｃａｔｉｏｎ（）　

ＤＢＩ　１Ｂ＿ｋ：ＥＲＳＩＯＮ＝ＳｑｌＩｎｉｔ（）　

Ｉｆ　ＤＢＩ　ＩＩ３

ＶＥＲＳＩＯＮ－二””Ｔｈｅｎ　

＿

ＭｓｇＢｏｘ”Ｃｏｕｌｄ　ｌ１（］１　ｉｎｉｔｉａｌｉｚｅ　ＤＢＩ　ＩＢ！Ｅｘｉｔ　ａｐｐｌｉｃａｔｉｏｎ．”，ＭＩ　ＩＣＯＮＥＸＣＩ　ＡＭＡＴ１０Ｎ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｓｔ１ｂ　

Ｐｒｉｖａｔｅ　Ｆｕｎｃｔｉｏｎ　Ｉ　ｏｇｉｎＴｏＳｅｒｖｅｒ（）Ａｓ　ｉｎｔｅｇｅｒ　

ｔｏｇｉｎＴｏＳｃｒｖｅｒ＝ＳＵＣＣＥＥＤ　

Ｓｔａｔｕｓ　一ＳｑｌＳｅｌｌｏｇｉｎＴｉｍｅ　（１ｏｇｉｎＴｉｍｅ（）ｕｔ）　

Ｉｆ　ｇｉＳｑｌＣｏｎｎ＜￣；＞０　Ｔｈｅｎ　

ＳｑｌＣ１ｏｓｅ（　ＳｑｌＣｏｎｎ）注释：关闭已打开的连接　

ｇｉＳｑｌＣｏｎｎ＝ＳｑｌＯｐｅｎＣｏｎｎｅｃｔｉｏｎ（ｇｓＳｅｒｖｅｒＮａｍｅ。ｇｓＩ　ｏｇｉｎｌＤ，ｇｓＰａｓｓｗｏｒｄ，ＰｒｏｇｒａｍＮａｍｅ，ＰｒｏｇｒａｍＮａｍｅ）　

Ｉｆ　ｇｉＳｑｌＣｏｎｎ￣０　Ｔｈｅｎ　

ｌｉｒｅｓｕｉｔ—ＳｑｌＵｓｅ（ｇｉＳｑｌＣｏｎｎ。”Ｓａｌｅｓ”）　

Ｅ１ｓｅ　

６２—　

第６期　侯刚：ＶＢ时ＳＱＩ　Ｓｅｒｖｅｒ数据库的访问解析　

ＬｏｇｉｎｔｏＳｅｒｖｅｒ＝ＦＡＩＩ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

１．４　ＲＤＯ远程数据对象（ＲｅｍｏｔｅＤａｔａ　Ｏｂｊｅｃｔｓ）　

ＲＤＯ是从ＤＡＯ派生出来的，但两者很大的不同在于其数据库模式。ＤＡＯ是针对［记录（Ｒｅｃｏｒｄｓ）］　

和Ｅ－Ｔ－段（Ｆｉｅｌｄｓ）］，而ＲＤＯ是作为［行（Ｒｏｗｓ）］和［列（Ｃｏｌｕｍｎｓ）］来处理。也就是说ＤＡＯ是ＩＳＡＭ模　

式，ＲＤＯ是关系模式。此外ＤＡＯ是访问Ａｃｃｅｓｓ的Ｊｅｔ引擎（Ｊｅｔ是ＩＳＡＭ）的接口，而ＲＤＯ则是访问ＯＤ—　

ＢＣ的接口。　

可见，ＲＤＯ是综合了ＤＡｏ／Ｊｅｔ、ＶＢＳＱＬ／ＤＢ　ｂ以及ＯＤＢＣ的优点的对象（Ｏｂｊｅｃｔ）。需要强调的是，　

ＲＤＯ是包裹着ＯＤＢＣ　ＡＰＩ的一层薄薄的外壳，被设计成在后台（服务器端）有数据库存在的前提下运行，　

同时也是针对ＳＱＬ　Ｓｅｒｖｅｒ和Ｏｒａｃｌｅ而特别设计的。　

ＲＤＯ的优势在于它完全被集成在ＶＢ之中。此外，直接访问ｓＱＬ　Ｓｅｒｖｅｒ存储过程、完全支持Ｔ—　

ＳＱＩ　、Ｔ—ＳＱＬ调试集成在开发环境中、Ｖｉｓｕａｌ　Ｄａｔａｂａｓｅ　Ｔｏｏｌｓ的集成化等，也是ＲＤＯ的长处。　

在ＲＤＯ的对象和集合中，有很多对数据库的状态和设定进行操作的属性（Ｐｒｏｐｅｒｔｙ），以及对数据库　

进行操作的方法（Ｍｅｔｈｏｄ）。利用这些，从ＲＤＯ２．０起就可以开发事件驱动的数据库应用程序。　

ＲＤＯ对象与ＶＢ中其他对象的概念相同。与ＶＢ用的ＡｃｔｉｖｅＸ控件（以往称为Ｃｕｓｔｏｍ　Ｃｏｎｔｒｏｌ或　

ＯＣＸ、ＶＢＸ）相似的是，ＲＤＯ也带有属性和方法；但同Ｓｐｒｅａｄ、ＩｎｐｕｔＭａｎ等普遍应用的ＡｃｔｉｖｅＸ控件不同　

的是，ＲＤ０没有自己的用户界面，因而可以和ＶＢ标准的Ｔｉｍｅｒ控件归为同一类。当然也可以将ＲＤＯ看　

作调用ｏＤＢＣ　ＡＰＩ函数，进而对后台数据库操作加以控制的对象。在ＲＤＯ的属性和方法中，包含了对单　

个的（）ＤＢＣ　ＡＰＩ函数以及一连串ＡＰＩ函数的调用。　

（１）ｒｄｏＥｎｇｉｎｅ对象　

最初调用ＲＤＯ对象以及ＲＤＣ（远程数据控件）时，自动生成ｒｄｏＥｎｇｉｎｅ对象的附带事件（ｉｎｃｉｄｅｎｔ）。　

ｒｄｏＥｎｇｉｎｅ用于对ＲＤＯ全局属性的参数、选项进行设置，是在ＲＤＯ的阶层结构内处于最上层的对象，包　

含了所有的其他对象。　

ｒｄｏＥｎｇｉｎｅ对象与ＤＡＯ／Ｊｅｔ不同，虽然被多个应用程序共享，但体现ｒｄｏＥｎｇｉｎｅ对象的设定值的属性　

却并不共用，而是在各自的应用程序的程序界面中对其分别加以设定。这些设定值对其他使用ＲＤＯ以及　

ＲＤＣ的应用程序没有任何影响。ｒｄｏＥｎｇｉｎｅ不是集合的要素，而是重新定义的对象，ｒｄｏＥｎｇｉｎｅ对象不能　

被追加作成对象属性的初值。　

（２）ｒｄｏＥｎｖｉｒｏｎｍｅｎｔ对象　

ＲＤＯ对象在自动创建ｒｄｏＥｎｇｉｎｅ对象时，将ｒｄｏＥｎｖｉｒｏｍｅｎｔ对象的初始值生成并保存为ｒｄｏＥｎｖｉｒｏ－　

ｍｅｎｔｓ（０）。一般情况下，应用程序中不必追加ｒｄｏＥｎｖｉｒｏｎｍｅｎｔ对象，大多只需对已有的ｒｄｏＥｎｖｉｒｏｍｅｎｔｓ　

（０）进行操作就可以了。只有在支持一个以上事务（Ｔｒａｎｓａｃｔｉｏｎ），需要将用户名和口令信息分别处理的情　

况下，利用ｒｄｏＣｒｅａｔｅＥｎｖｉｒｏｎｍｅｎｔ方法将特定的用户名和口令值做成新的ｒｄｏＥｎｖｉｒｏｎｍｅｎｔ对象。在这个　

方法中可以指定固有名、用户名和口令，如果所指定的值与ｒｄｏＥｎｖｉｒｏｎｍｅｎｔｓ集合的已经存在的成员名称　

相同，会产生错误。新建的ｒｄｏＥｎｖｉｒｏｎｍｅｎｔ对象自动追加在ｒｄｏＥｎｖｉｒｏｎｍｅｎｔｓ集合的最后。调ｒｄｏＣｒｅａ—　

ｔｅＥｎｖｉｒｏｎｍｅｎｔ方法时，其ｎａｍｅ参数可以是长度为０的文字列，这时新的ｒｄｏＥｎｖｉｒｏｎｍｅｎｔ对象将不会被　

迫加在ｒｄｏＥｎｖｉｒｏｎｍｅｎｔｓ集合之中。　

（３）ｒｄｏＣｏｎｎｅｃｔｉｏｎ对象　

ｒｄｏＣｏｎｎｅｃｔｉｏｎ对象用于同ＳＱＩ　Ｓｅｒｖｅｒ的连接管理。下面是与ＳＱＩ　Ｓｅｒｖｅｒ连接的例子。　

用（）ｐｅｎＣｏｎｎｅｃｔｉｏｎ方法的一个实例。设定的ＤＳＮ为ＭｙＤＳＮ：　

Ｄｉｍ　Ｃｎ　Ａｓ　ｒｄｏＣｏｎｎｅｃｔｉｏｎ　

Ｄｉｍ　Ｅｎ　Ａｓ　ｒｄｏＥｎｖｉｒｏｎｍｅｎｔ　

Ｄｉｍ　Ｃｏｎｎ　Ａｓ　Ｓｔｒｉｎｇ　

Ｃｏｎｎ＝”ＤＳＮ—ＭｙＤＳＮ；ＵＩＤ—Ｊａｃｏｂ；’’８Ｌ”ＰＷＤ一１２３４５６；ＤＡＴＡ　ＢＡＳＥ—ＭｙＤｂ；“　

一

６３—　

潍坊学院学报　２０１０年１２月　

Ｓｅｔ　Ｃｎ＝Ｅｎ．ＯＤｅｎＣｏｎｎｅｃｔｉｏｎ（””，ｒｄＤｒｉｖｅｒＰｒｏｍｐｔ，Ｆａｌｓｅ，Ｃｏ　ｎｎ）　

Ｓｅｔ　Ｃｎ＝Ｅｎ．０ｐｅｎＣｏｎｎｅｃｔｉｏｎ（Ｐｒｏｍｐｔ：一ｒｄＤｒｉｖｅｒＰｒｏｍｐｔ，Ｒｅａ　ｄＯｎｌｙ：一Ｆａｌｓｅ，Ｃｏｎｎｅｃｔ：　Ｃｎｎ）　

１．５　ＡＤＯ数据对象（Ａｃｔｉｖｅ　Ｄａｔａ　Ｏｂｊｅｃｔｓ）　

ＡＤＯ是基于全新的ＯＬＥ　ＤＢ技术，ＯＬＥ　ＤＢ可对电子邮件、文本文件、复合文件、数据表等各种各样　

的数据通过统一的接口进行存取。随着ＡｃｔｉｖｅＸ控件的升级（Ｗｉｎｄｏｗｓ　９８的ＡｃｔｉｖｅＸ　５．Ｏ），ＲＤＯ将被以　

ＡｃｔｉｒｅＸ技术为基础的ＡＤＯ接口所替代。下面将介绍基于ＡｃｔｉｖｅＸ技术的ＡＤＯ访问ＳＱＬ　Ｓｅｒｖｅｒ　６．５数　

据库的技术和方法。　

（１）取当前的工作数据库　

由于管理任务一般都必须在Ｍａｓｔｅｒ库中完成，因此在执行管理任务之前，最好保存当前工作库，以便　

完成任务之后再切换回原来的任务。　

Ｐｕｂｌｉｃ　Ｆｕｎｃｔｉｏｎ　ＳＱＩ　ＧｅｔＣｕｒｒｅｎｔＤａｔａｂａｓｅＮａｍｅ（Ｃｎ　Ａｓ　ＡＥＫ）ＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）Ａｓ　Ｓｔｒｉｎｇ　

Ｄｉｍ　ｓＳＱＩ　Ａｓ　Ｓｔｒｉｎｇ　

Ｄｉｍ　ＲＳ　Ａｓ　Ｎｅｗ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒＳＱＬＧｅｔＣｕｒｒｅｎｔＤａｔａｂａｓｅＮａｍｅ　

ｓＳＱＬ一”ｓｅｌｅｃｔ　ＣｕｒｒｅｎｔＤＢ＝Ｄ１３＿ＮＡＭＥ（）”　

ＲＳ．Ｏｐｅｎ　ｓＳＱＩ　，Ｃｎ　

ＳＱＩ　ＧｅｔＣｕｒｒｅｎｔＤａｔａｂａｓｅＮａｍｅ＝Ｔｒｉｍ￥（ＲＳ　Ｉ　ＣｕｒｒｅｎｔＤＢ）　

ＲＳ．Ｃｌｏｓｅ　

Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ　

ｅｒｒＳＱＩ　ＧｅｔＣｕｒｒｅｎｔＤａｔａｂａｓｅＮａｍｅ：　

ＳＱＬＧｅｔＣｕｒｒｅｎｔＤａｔａｂａｓｅＮａｍｅ＝…’　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

（２）取ＳＱＬ　Ｓｅｒｖｅｒ安装目录下的ＤＡＴＡ子目录路径　

取ＳＱＬ　Ｓｅｒｖｅｒ的设备文件缺省目录，返回如Ｄ：ＭＳＳＱＬ　ＤＡＴＡ。　

Ｐｕｂｌｉｃ　Ｆｕｎｃｔｉｏｎ　ＳＱＩ　ＧｅｔＤａｔａＰａｔｈ（Ｃｎ　Ａｓ　ＡＩ）（）ＤＢ．Ｃｏｎｎｅｃｔｉｏｎ）Ａｓ　Ｓｔｒｉｎｇ　

Ｄｉｍ　ｓＳＱＬ　Ａｓ　Ｓｔｒｉｎｇ　

Ｄｉｍ　ＲＳ　Ａｓ　Ｎｅｗ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　

Ｄｉｍ　ｓＦｕｌｌＰａｔｈ　Ａｓ　Ｓｔｒｉｎｇ　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒＳＱＩ　ＧｅｔＤａｔａＰａｔｈ　

ｓＳＱＩ　一“ｓｅｌｅｃｔ　ｐｈｙｎａｍｅ　ｆｒｏｍ　ｍａｓｔｅｒ．．ｓｙｓｄｅｖｉｃｅｓ　ｗｈｅｒｅ　ｎａｍｅ＝注释：ｍａｓｔｅｒ注释：”　

ＲＳ．（）ｐｅｎ　ｓＳＱＩ　，Ｃｎ　

ｓＦｕｌｌＰａｔｈ＝＝ＲＳ！ｐｈｙｎａｍｅ　

ＲＳ．Ｃｌｏｓｅ　

ＳＱＩ　ＧｅｔＤａｔａＰａｔｈ＝Ｌｅｆｔ￥（ｓＦｕｌｌＰａｔｈ，Ｌｅｎ（ｓＦｕｌｌＰａｔｈ）一１０）注释：ＭＡＳＴＥＲ．ＤＡＴ的大小　

Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ　

ｅｒｒＳＱＩ　ＧｅｔＤａｔａＰａｔｈ：　

ＳＱＬＧｅｔＤａｔａＰａｔｈ　…’　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

（３）创建一个新数据库　

Ｐｕｂｌｉｃ　Ｆｕｎｃｔｉｏｎ　ＳＱＩ　ＣｒｅａｔｅＤａｔａｂａｓｅ６５（Ｃｎ　Ａｓ　ＡＥＫ）ＤＢ．Ｃｏｎｎｅｃｔｉｏｎ，ｓＤＢＮａｍｅ　Ａｓ　Ｓｔｒｉｎｇ，ｓＤａｔａＤｅｖｉｃｅＮａｍｅ　Ａｓ　Ｓｔｒｉｎｇ，　

ｎＤａｔａＳｉｚｅ　Ａｓ　Ｉｎｔｅｇｅｒ，Ｏｐｔｉｏｎａｌ　ｓＩ　ｏｇＤｅｖｉｃｅＮａｍｅ，Ｏｐｔｉｏｎａｌ　ｎＬｏｇＳｉｚｅ）Ａｓ　Ｂｏｏｌｅａｎ　

Ｄｉｍ　ｓＳＱＩ　Ａｓ　Ｓｔｒｉｎｇ　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒＳＱＩ　ＣｒｅａｔｅＤａｔａｂａｓｅ６５　

Ｄｉｍ　ｓＤＢ　Ａｓ　Ｓｔｒｉｎｇ　

ｓＤＢ　ＳＱＩ　ＧｅｔＣｕｒｒｅｎｔＤａｔａｂａｓｅＮａｍｅ（Ｃｎ）　

ｓＳＱＩ　一”ＵＳＥ　ｍａｓｔｅｒ”　

Ｃｎ．Ｅｘｅｃｕｔｅ　ｓＳＱＩ　

～

６４—　

第６期　侯刚：ＶＢ对ＳＱＩ　Ｓｅｒｖｅｒ数据库的访问解析　

ｓＳＱＬ一”ＣＲＥＡＴＥ　ＤＡＴＡＢＡＳＥ”＆ｓＤＢＮａｍｅ　

ｓＳＱＩ　一ｓＳＱＬ＆”ＯＮ”＆ｓＤａｔａＤｅｖｉｃｅＮａｍｅ＆”一”＆ｎＤａｔａＳｉｚｅ　

Ｉｆ　Ｎｏｔ　ＩｓＭｉｓｓｉｎｇ（ｓＬｏｇＤｅｖｉｃｅＮａｍｅ）Ａｎｄ　Ｎｏｔ　ＩｓＭｉｓｓｉｎｇ（ｎＬｏｇＳｉｚｅ）Ｔｈｅｎ　

ｓＳＱＩ　一ｓＳＱＩ　＆”ＬＯＧ　ＯＮ”＆ｓＩ　ｏｇＤｅｖｉｃｅＮａｍｅ＆’’一‘　＆ｎＩ　ｏｇＳｉｚｅ　

Ｅｎｄ　Ｉｆ　

Ｃｎ．Ｅｘｅｃｕｔｅ　ｓＳＱＩ　

ｓＳＱＩ　一”ＵＳＥ”＆ｓＤＢ　

Ｃｎ．Ｅｘｅｃｕｔｅ　ｓＳＱＩ　

ＳＱＬＣｒｅａｔｅＤａｔａｂａｓｅ６５：Ｔｒｕｅ　

Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ　

ｅｒｒＳＱＩ　ＣｒｅａｔｅＤａｔａｂａｓｅ６５：　

Ｏｎ　Ｅｒｒｏｒ　Ｒｅｓｕｍｅ　Ｎｅｘｔ　

ｓＳＱＬ一”ＵＳＥ”＆ｓＤＢ　

Ｃｎ．Ｅｘｅｃｕｔｅ　ｓＳＱＬ　

ＳＱＩ　ＣｒｅａｔｅＤａｔａｂａｓｅ６５一Ｆａｌｓｅ　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

（４）判断一个数据库是否存在　

Ｐｕｂｌｉｃ　Ｆｕｎｃｔｉｏｎ　ＳＱＬＥｘｉｓｔＤａｔａｂａｓｅ（Ｃｎ　Ａｓ　ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ。ｓＤＢＮａｍｅ　Ａｓ　Ｓｔｒｉｎｇ）Ａｓ　Ｂｏｏｌｅａｎ　

Ｄｉｍ　ｓＳＱＩ　Ａｓ　Ｓｔｒｉｎｇ　

Ｄｉｍ　ＲＳ　Ａｓ　Ｎｅｗ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　

Ｄｉｍ　ｂＴｍｐ　Ａｓ　Ｂｏｏｌｅａｎ　

ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒＳＱＬＥｘｉｓｔＤａｔａｂａｓｅ　

ｓＳＱＬ一”ｓｅｌｅｃｔ　ＣｎｔＤＢ—ｃｏｕｎｔ（＊）”　

ｓＳＱＩ　一ｓＳＱＩ　＆”Ｆｒｏｍ　ｍａｓｔｅｒ．ｄｂｏ．ｓｙｓｄａｔａｂａｓｅｓ”　

ｓＳＱＬ—ｓＳＱＩ　＆”Ｗｈｅｒｅ　ｎａｍｅ一注释：”＆ｓＤＢＮａｍｅ＆”注释：”　

ＲＳ．（）ｐｅｎ　ｓＳＱＬ，Ｃｎ　

Ｉｆ　ＲＳ！ＣｎｔＤＢ一０　Ｔｈｅｎ　ｂＴｍｐ＝Ｆａｌｓｅ　Ｅｌｓｅ　ｂＴｍｐ—Ｔｒｕｅ　

ＲＳ．Ｃｌｏｓｅ　

ＳＱＬＥｘｉｓｔＤａｔａｂａｓｅ—ｂＴｍｐ　

Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ　

ｅｒｒＳＱＩ　ＥｘｉｓｔＤａｔａｂａｓｅ：　

ＳＱＬＥｘｉｓｔＤａｔａｂａｓｅ—Ｆａｌｓｅ　

Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

（５）删除一个数据库　

Ｐｕｂｌｉｃ　Ｆｕｎｃｔｉｏｎ　ＳＱＩ　ＤｒｏｐＤａｔａｂａｓｅ（Ｃｎ　Ａｓ　ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ，ｓＤＢＮａｍｅ　Ａｓ　Ｓｔｒｉｎｇ）Ａｓ　Ｂｏｏｌｅａｎ　

Ｄｉｍ　ｓＳＱＩ　Ａｓ　Ｓｔｒｉｎｇ　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒＳＱＬＤｒｏｐＤａｔａｂａｓｅ　

Ｉｆ　Ｎｏｔ　ＳＱＬＥｘｉｓｔＤａｔａｂａｓｅ（Ｃｎ，ｓＤＢＮａｍｅ）Ｔｈｅｎ　

ＳＱＩ　ＤｒｏｐＤａｔａｂａｓｅ—Ｔｒｕｅ　

Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ　

Ｅｎｄ　Ｉｆ　

Ｄｉｍ　ｓＤＢ　ＡＳ　Ｓｔｒｉｎｇ　

ｓＤＢ—ＳＱＬＧｅｔＣｕｒｒｅｎｔＤａｔａｂａｓｅＮａｍｅ（Ｃｎ）　

ｓＳＱＬ一”Ｕｓｅ　ｍａｓｔｅｒ”　

Ｃｎ．Ｅｘｅｃｕｔｅ　ｓＳＱＬ　

ｓＳＱＩ　一”ＤＲＯＰ　ＤＡＴＡＢＡＳＥ”＆ｓＤＢＮａｍｅ　

Ｃｎ．Ｅｘｅｃｕｔｅ　ｓＳＱＬ　

６５—　

潍坊学院学报　２Ｏ１０年１２月　

ｓＳＱＩ　一”ＵＳＥ”＆ｓＤＢ　

Ｃｎ．Ｅｘｅｃｕｔｅ　ｓＳＱＩ　

ＳＱＩ　Ｉ）ｒｏｐＤａｔａｂａｓｅ—Ｔｒｕｅ　

Ｅｘｈ　ＦＵＩＩＣｔｉｏｎ　

ｅｒｒＳＱ１　Ｄｒｏｐ１）ａｔａｂａｓｅ：　

Ｏｎ　Ｅｒｒｏｒ　Ｒｅｓｕｍｅ　Ｎｅｘｌ　

ｓＳＱＩ　＝”ＵＳＥ”＆　ｓＤＢ　

Ｃｎ．Ｅｘｅｃｕｔｅ　ｓＳＱＩ　

ＳＱＩ　Ｄｒｏｐ１）ａｔａｂａｓｅ—Ｆａｌｓｅ　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

２性能ｂ匕较及应用说明　

用ＶＢ开发基于ＳＱＩ　Ｓｅｒｖｅｒ的数据库系统，以上几种访问ＳＱＩ　Ｓｅｒｖｅｒ的方法各有各的特点。ＤＡＯｓ　

方法是基于对象的，因而便于使用，但是它是从Ｖｉｓｕａｌ　Ｂａｓｉｃ到ＳＱＩ　Ｓｅｒｖｅｒ最慢的连接方式。ＯＤＢＣ　ＡＰＩ　

和ＶＢＳＱＬ方法从本质上讲是基于程序的。ＯＤＢＣ　ＡＰＩ方法通用性好，允许最强的互操作性，编程简单，　

但速度慢于ＶＢＳＱＩ　方法。ＶＢＳＱＩ　方法通过ＶＢＳＱＩ　控件，提供了重要的ＳＱＬ　Ｓｅｒｖｅｒ前端应用程序所需　

的灵活性、强大功能和良好性能。它具有真正的事件驱动及错误处理能力，完全支持异步处理、游标和计　

算列等。这些都是ＶＢＳＱＩ　方法超出其它方法的优势，但其编程稍复杂。ＲＤ（）是位于ＯＤＢＣ　ＡＰＩ之上的　

一

个对象模型层，它依赖ＯＤＢＣ　ＡＰＩ、ＯＤＢＣ驱动程序以及后端数据库引擎来实现，用ＲＤＯ所写的程序短　

小（约２５０　ＫＢ）、快速。ＲＤＯ具备基本的ＯＤＢＣ处理方法，可直接执行大多数ＯＤＢＣ　ＡＰＩ函数，ＲＤＯ包含　

在ＶＢ　４．Ｏ／ＶＢ　５．０企业版中，由ＭＳＲＤＯ３２．ＤＩ　Ｌ动态连接库来实现。ＲＤＯ是综合了ＤＡＯ／Ｊｅｔ、ＶＢＳ－　

ＱＩ　／ＤＢＬｉｂ和ＯＤＢＣ的优点的对象模型，包含ＯＤＢＣ　ＡＰＩ应．用层，设计为在后台（服务器端）有数据库存　

在的前提下运行，是针对ＳＱＩ　Ｓｅｒｖｅｒ和Ｏｒａｃｌｅ而特别设计的。ＲＤ（）的优势在于它完全被集成在ＶＢ之　

中，可直接访问ＳＱＩ　Ｓｅｒｖｅｒ存储过程、完全支持Ｔ—ｓＱＩ　、Ｔ～ＳＱＩ　调试集成在开发环境中、Ｖｉｓｕａｌ　Ｄａｔａ—　

ｂａｓｅ　Ｔｏｏｌｓ的集成化等。但微软已宣布今后不再对ＶＢＳＱＩ　／ＤＢＩ　ｉｂ进行升级，而ＯＤＢＣ　ＡＰＩ函数一般的　

编程方式也不为人们所喜爱，ＲＤＯ的应用将逐渐减少。至于实际使用哪一种接口方式，在很大程度上依　

赖于用户的应用程序的具体情况而定。　

３　ＶｉｓｕａｌＢａｓｉｃ访问数据库的前景　

近来随着ｗｅｂ应用软件的迅速发展和现有数据存储形式的多种多样，Ｖｉｓｕａｌ　Ｂａｓｉｃ访问数据库的解　

决方案面临诸如快速提取分布于企业内部和外部有用商业信息等的多种挑战。为此Ｍｉｃｒｏｓｏｆｔ提出一种　

新的数据库访问策略，即“统一数据访问”（ＵｎｉｖｅｒｓａｌＤａｔａＡｃｃｅｓｓ）的策略。“统一数据访问”提供了高性能　

的存取包括关系型和非关系型在内的多种数据源，提供独立于开发工具和开发语言的简单的编程接口，这　

些技术使得企业集成多种数据源、选择更好的开发工具、应用软件、操作平台、建立容易维护的解决方案成　

为可能。　

参考文献：　

［Ｊ］叶俊民，汪望珠．面向对象软件工程［Ｍ］．２版．北京：清华大学出版社，２００６．　

［２］郑阿奇，彭作民．Ｖｉｓｕａｌ　Ｂａｓｉｃ．ＮＥＴ程序设计教程［Ｍ］．北京：机械工业出版社，２００７．　

［３］郑阿奇．ｓＱＩ　Ｓｅｒｖｅｒ教程［Ｍ］．北京：清华大学出版社，２００５．　

［４］王昕．基于ＶＢ＋ＳＱＩ　数据库的方法及接口比较的研究［Ｊ］．微计算机信息，２００９，（１　５）：８６—８９　

（责任编辑：肖恩忠）