admin 管理员组文章数量: 1086019
2024年3月19日发(作者：网络工作室源码)
维普资讯
地震地磁观测与研究
第２３卷 第３期
２００２矩
６月
ＳＥＩＳＭ０Ｌ０ＧＩＣＡＬ ＡＮＤ ＧＥ０ＭＡＧＮＥＴＩＣ
ＯＢＳＥＲ ＩＯＮ ＡＮＤ ＲＥＳＥＡＲＣＨ
Ｖ＿０ｌ ２３ ＮＯ ３
Ｊｕｎ ２００２
用ＶＢ访问ＳＯＬ Ｓｅｒｖｅｒ
赵辉 包淑娴
（中国郑州４５００００河南省地震局）
中图分类号：Ｐ３ｌ５．６９文献标识码：Ｂ文章编号：１００３－３２４６（２００２）０３－００７１—０４
Ｍｉｃｒｏｓｏｆｔ Ｖｉｓｕａｌ Ｂａｓｉｃ（简称ＶＢ）作为一种面向对象的可视化编程工具，具有简单易学、
灵活方便和易于扩充的特点。而且Ｍｉｃｒｏｓｏｆｔ为其提供了与ＳＱＬ Ｓｅｒｖｅｒ通信的ＡＰＩ函数集及
工具集。因此，它越来越多地用作大型公司数据和客户机——服务器应用程序的前端；与
后端的Ｍｉｃｒｏｓｏｆｔ ＳＱＬ Ｓｅｒｖｅｒ相组合，ＶＢ能够提供一个高性能的客户机——服务器方案。
使用Ｖｉｓｕａｌ Ｂａｓｉｃ作为前端开发语言，与ＳＱＬ Ｓｅｒｖｅｒ接口有３种常用的方法，即：
（１）数据访问对象／Ｊｅｔ。
（２）为ＯＤＢＣＡＰＩ编程。
（３）使用ＳＱＬ Ｓｅｒｖｅｒ的Ｖｉｓｕａｌ Ｂａｓｉｃ库（ＶＢＳＱＬ）为ＤＢ库ＡＰＩ编程。
本文将讨论这３种ＶＢ应用程序管理ＳＱＬ Ｓｅｒｖｅｒ数据的方法，并比较每种方法的性能
和优缺点。
方法１，数据访问对象／Ｊｅｔ Ｖｉｓｕａｌ Ｂａｓｉｃ支持ＤａｔａＡｃｃｅｓｓ Ｏｂｊｅｃｔｓ（ＤＡＯｓ）的子集
ＤＡＯ的方法虽然不是性能最好的管理客户机——服务器之间的对话方式，但它确有许
多优点。使用ＤＡＯｓ访问ＳＱＬ Ｓｅｒｖｅｒ的过程如下：应用程序准备好语句并送至Ｊｅｔ，Ｊｅｔ引
擎（ＭＡＳＪＴ２００．ＤＬＬ）优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器
（ＯＤＢＣ．ＤＬＬ）通过调用驱动器（ＳＱＬＳＲＶＲ．ＤＬＬ）的函数，实现连接到数据源，翻译并向
ＳＱＬ Ｓｅｒｖｅｒ提交ＳＱＬ语句且返回结果。下面是一个用ＤＡＯｓ访问ＳＱＬ Ｓｅｒｖｅｒ的ＶＢ实例。
、Ｆｒｏｍ Ｄｅｃｌａｒａｔｉｏｎｓ
Ｄｉｍ ｍｙｄｂ ａｓ Ｄａｔａｂａｓｅ
Ｄｉｍ ｍｙｄｙｎａｓｅｔ ｓ ａＤｙｎａｓｅｔ
Ｐｒｉｖａｔｅ Ｓｕｂ ｆｒｏｍ
＿
Ｌｏａｄ（）
Ｓｅｔ
Ｍｙｄｂ＝Ｏｐｅｎ Ｄａｔａｂａｓｅ（＂，Ｆａｌｓｅ，Ｆａｌｓｅ，”ＯＤＢＣ；ＤＳＮ＝Ｍｙｓｅｒｖｅｒ；ＷＳＩＤ ＬＣＬ；
ＤＡＴＡＢＡＳＥ＝ｓａｌｅｓ”１
Ｓｅｔ ｍｙｄｙｎａｓｅｔ－＝ｍｙｄｂ ＣｒｅａｔｅＤｙｎａｓｅｔ（ Ｓｅｌｅｃｔ ｆｒｏｍ Ｃｕｓｔｏｍｅｒｓ 、
Ｅｎｄ Ｓｕｂ
上述例子是以非独占、非只读方式打开ｓａｌｅｓ数据库，并检索Ｃｕｓｔｏｍｅｒｓ表中的所有字
段。ＯｐｅｎＤａｔａｂａｓｅ函数的最后一个参数是ＯＤＢＣ连接字符串参数，它指明了Ｍｉｃｒｏｓｏｆｔ Ａｃｃｅｓｓ
本文收到日期：２００１—１０—０７
维普资讯
７２ 地震地磁观测与研究 ２３卷
连接到ＳＱＬ Ｓｅｒｖｅｒ所需要知道的一些内容。其中“ＤＳＮ”为数据源名，“ＷＳＩＤ”为工作站
名，“ＤＡＴＡＢＡＳＥ”为所要访问的数据库名。
方法２，用ＯＤＢＣ ＡＰＩ编程
ＯＤＢＣ（Ｏｐｅｎ Ｄａｔａｂａｓｅ Ｃｏｎｎｅｃｔｉｖｉｔｙ）的思想是访问异种数据库的一种可移植的方式。
与数据资源对话的公用函数组装在一个称为驱动程序管理器（ＯＤＢＣ．ＤＬＬ）的动态连接中。
应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器
（ＳＱＬＳＲＶＲ．ＤＬＬ）把它们送到服务器中。
用ＯＤＢＣ ＡＰＩ编程，一般要用到以下一些函数。下面列出了常用的函数以及它们的功
能。
函数： 功能：
ＳＱＬＡＬＬｏｃＥｎｖ
ＳＯＬＡＬＬｏｃＣｏｎｎｅｃｔ
ＳＱＬＣｏｎｎｅｃｔ
ＳＱＬＤｒｉｖｅｒＣｏｎｎｅｃｔ
ＳＱＬＡＬＬｏｃＳｔｍｔ
ＳＱＬＥｘｅｃＤｉｒｅｃｔ
ＳＱＬＦｅｔｃｈＡｄｖａｎｃｅｓ
ＳＱＬＧｅｔＤａｔａ
ＳＱＬＦｒｅｅＳｔｍｔ
ＳＱＬＤｉｓｃｏｎｎｅｃｔ
初始化ＯＤＢＣ环境，返回环境句柄；
为连接句柄分配内存并返回连接句柄；
连接一个ＳＱＬ数据资料；
连接一个ＳＱＬ数据资料，允许驱动器向用户询问
信息；
为语句句柄分配内存并返回语句句柄；
把ＳＱＬ语句送到服务器；
到结果集的下一行（或第一行）；
从结果集特定的一列取回数据；
释放与语句句柄相关的资源；
切断连接；
ＳＱＬＦｒｅｅＣｏｎｎｅｃｔ
ＳＱＬＦｒｅｅＥｎｖ
句句柄。
Ｇｌｏｂａｌ ｇｉＨＥｎｖ ｓ ａＬｏｎｇ
Ｇｌｏｂａｌ ｇｉＨＤＢ ａｓ Ｌｏｎｇ
Ｇｌｏｂａｌ ｇｉＨＳｔｍｔ ｓ Ｌｏｎｇ ａ
Ｄｉｍ ｍｙＲｅｓｕｌｔ ａｓ ｉｎｔｅｇｅｒ
Ｄｉｍ ｍｙＣｏｎｎｅｃｔｉｏｎ ａｓ Ｓｔｒｉｎｇ
释放与连接句柄相关的资源；
释放与环境句柄相关的资源。
下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语
Ｄｉｍ ｍｙＢｕｆｆ ｓ Ｓｔｒｉａｎｇ ２５６
Ｄｉｍ ｍｙＢｕｆｆｌｅｎ ａｓ Ｉｎｔｅｇｅｒ
Ｉｆ ＳＱＬＡｌｌｏｃＥｎｖ（ｇｉＨＥｎｖ）＜＞ＳＱＬ＿ｓＵＣＣＥＳＳ Ｔｈｅｎ
ＭｓｇＢｏｘ”Ａｌｌｏｃａｔｉｏｎ ｃｏｕｌｄｎ ｔ ｈａｐｐｅｎ！”
Ｅｎｄ ｉｆ
Ｉｆ ＳＱＬＡｌｌｏｃＣｏｎｎｅｃｔ（ｇｉＨＥｎｖ，ｇｉＨＤＢ）＜＞ＳＱＬ —ＳＵＣＣＥＳＳ Ｔｈｅｎ
ＭｓｇＢｏｘ”Ａｌｌｏｃａｔｉｏｎ ｃｏｕｌｄｎ’ｔ ｈａｐｐｅｎ！”
Ｅｎｄｉｆ
ＭｙｒＣｏｎｎｅｃｔｉｏｎ＝”ＤＳＮ＝ｍｙＳｅｒｖｅｒ；ＵＩＤ＝１ｃ１；ＰＷＤ＝；ＡＰＰ＝ＯＤＢＣＴｅｓｔ；ＷＳＩＤ ＬＣＬ；
维普资讯
３期
Ｄ ＩＡＢＡＳＥ＝ｓａｌｅｓ”
赵辉等：用ＶＢ访问ＳＱＬＳｅｒｖｅｒ
ＭｙＲｅｓｕｌｔ＝ＳＱＬＤｒｉｖｅｒＣｏｎｎｅｃｔ（ｇｉＨＤＢ，Ｔｅｓｔ，ｆｒｏｍ１．ｈＷｎｄ，ｍｙＣｏｎｎｅｃｔｉｏｎ．１ｅｎ（ｍｙＣｏｎｎｅｃｔｉｏｎ）
ＭｙＢｕｆｆ，２５６，ｍｙＢｕｆｌｆｅｎ，ＳＱＬ
ＤＲＩＶＥＲ
＿
ＣＯＭＬＥＴＥ
＿＿
ＲＥＱＵＩＥＤ）
ＭｙＲｅｓｕｌｔ＝ＳＱＬＡｌｌｏｃＳｔｍｔ（ｇｉＨＤＳ，ｇｉＨＳｔｍｔ）
ＭｙＲｅｓｕｌｔ＝ＳＱＬＦｒｅｅＳｔｍｔ（ｇｉＨＳｔｍｔ，ＳＱＬ－＿ＣＯＬＳＥ）
ＲｓＳＱＬ＝”Ｓｅｌｅｃｔ ｆｒｏｍ Ｃｕｓｔｏｍｅｒｓ Ｗｈｅｒｅ Ｃｉｔｙ＝”Ｗｕｈａｎ””
ＭｙＲｅｓｕｌｔ＝ＳＱＬＥｘｅｃＤｉｒｅｃｔ（ｇｉＨＳｔｍｔ，ｒｓＳＱＬ，Ｌｅｎ（ｒｓＳＱＬ））
方法３，使用ＶＢＳＱＬ对本地ＡＰＩ，ＳＱＬ Ｓｅｒｖｅｒ的Ｖｉｓｕａｌ Ｂａｓｉｃ库（ＶＢＳＱＬ）为Ｖｉｓｕａｌ Ｂａｓｉｃ
程序员提供ＡＰＩ。从一定意义上说，ＶＢＳＱＬ是连接Ｖｉｓｕａｌ Ｂａｓｉｃ程序到ＳＱＬ Ｓｅｒｖｅｒ的性能
最好最直接的方式。ＶＢＳＱＬ包含以下３个文件。
ＶＢＳＱＬ．ＶＢＸ包含库函数，具有访问重要的消息和处理错误的能力。
ＶＢＳＱＬ．ＢＩ包括所有的常量和变量说明。
ＶＢＳＱＬ．ＨＬＰ Ｗｉｎｄｏｗｓ帮助文件，使用ＶＢＳＱＬ的指南。
使用ＶＢＳＱＬ时，必须将ＶＢＳＱＬ．ＢＩ加入到Ｖｉｓｕａｌ Ｂａｓｉｃ工程文件中，并确保ＶＢ程序
运行时有ＶＢＳＱＬ．ＶＢＸ文件。
个典型的ＶＢＳＱＬ对话中，一般要用到以下这些函数。
一
函数： 功能：
Ｓｑｌｉｎｉｔ
ＳｑｌＯｐｅｎＣｏｎｎｅｃｔｉｏｎ
ＳｑｌＣｍｄ
ＳｑｌＥｘｅｃ
Ｓｑｌｒｅｓｕｌｔｓ
ＳｑｌＮｅｘｔＲｏｗ
ＳｑｌＤａｔａ
ＳｑｌＣｌｏｓｅ
ＳｑｌＥｘｉｔ
ＳｑｌＷｉｎＥｘｉｔ
一
在客户机上装载ＤＢ库；
打开服务器连接，返回连接句柄；
在客户机上建立批处理命令；
向服务器提交批处理命令；
把客户机定位在第一条（或下一条）结果集的开
端：
驱动每个结果集的行之间的循环；
访问一个特定的连接；
切断特定的连接：
切断所有打开；
卸下ＤＢ库。
般的ＤＢ库ＡＰＩ编程的过程是这样的：先通过调用Ｓｑｌｌｎｉｔ对ＤＢ库进行初始化，再
调用ＳｑｌＣｏｎｎｅｃｔｉｏｎ打开一个连接，然后就可做一些工作。下面的代码是一个初始化ＤＢ库
并登录到服务器的通用例程。
Ｐｒｉｖａｔｅ Ｓｕｂ ｉｎｉｔｉａｌｉｚｅＡｐｐｌｉｃａｔｉｏｎ（）
ＤＢＬＩＢ
＿
ＶＥＲＳＩＯＮ Ｓｑｌｉｎｉｔ（）
—
ａｌｉｚｅ ＤＢＬＩＢ！
Ｉｆ ＤＢＬＩＢ
ＶＥＲＳＩＯＮ＝””ｃｏｕｌｄ ｎｏｔ ｉｎｉｔｉ
Ｅｘｉｔ ａｐｐｌｉｃａｔｉｏｎ，ｒｒ ＭＢ
——
ＩＣＯＮＥＸＣＬＡＭＡＴＩＯＮ
Ｅｎｄ
Ｅｎｄ ｉｆ
ＥｎｄＳｕｂ
Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ ＬｏｇｉｎＴｏＳｅｒｖｅｒ０ ｓ ｉａｎｔｅｇｅｒ
维普资讯
７４ 地震地磁观测与研究 ２３卷
ＬｏｇｉｎＴｏＳｅｒｖｅｒ＝ＳＵＣＣＥＥＤ
Ｓｔａｔｕｓ％＝ＳｑｌＳｅｔｌｏｇｉｎＴｉｍｅ％（１ｏｇｉｎＴｉｍｅＯｕｔ）
Ｉｆ ｇｉＳＱＩＣｏｍ＜＞０ Ｔｈｅｎ
ＳｑｌＣｌｏｓｅ（ｇｉＳｑｌＣｏｎｎ）、关闭已打开的连接
ＧｉＳｑｌＣｏｎｎ＝ＳｑｌＯｐｅｎＣｏｎｎｅｃｔｉｏｎ（ｇｓＳｅｒｖｅｒＮａｍｅ，ｇｓＬｏｇｉｎｌＤ，ｇｓＰａｓｓｗｏｒｄ，
ＰｒｏｇｒａｍＮａｍｅ，ＰｒｏｇｒａｍＮａｍｅ）
Ｉｆ ｇｉＳｑｌＣｏｎｎ＜＞０ Ｔｈｅｎ
Ｉｉｒｅｓｕｌｔ＝ＳｑｌＵｓｅ（ｇｉＳｑｌＣｏｎｎ，”Ｓａｌｅｓ”）
Ｅｌｓｅ
ＬｏｇｉｎｔｏＳｅｒｖｅｒ＝ＦＡＬＬ
Ｅｎｄ ｉｆ
Ｅｎｄ Ｆｕｎｃｔｉｏｎ
性能比较：以上３种访问ＳＱＬ Ｓｅｒｖｅｒ的方法各有其特点。ＤＡＯｓ的方法是基于对象的，
因而便于使用，但它是从Ｖｉｓｕａｌ Ｂａｓｉｃ到ＳＱＬ Ｓｅｒｖｅｒ最慢的方式。ＯＤＢＣ ＡＰＩ和ＶＢＳＱＬ方
法从本质上讲是基于程序的。ＯＤＢＣＡＰＩ方法通用性好，允许最强的互操作性，编程简单，
但速度慢于ＶＢＳＱＬ方法。ＶＢＳＱＬ方法通过ＶＢＳＱＬ控件，提供了重要的ＳＱＬ Ｓｅｒｖｅｒ前端
应用程序所需的灵活性、强大功能和良好性能。它具有真正的事件驱动及错误处理能力，
完全支持异步处理、游标和计算列等。这些都是ＶＢＳＱＬ方法超出其他方法的优势，但其编
程稍复杂。至于实际使用哪一种接口方式，在很大程度上依赖用户的应用程序的具体情况
而定。
Ａｃｃｅｓｓ ＳＱＬ ｄａｔａｂａｓｅ ｕｓｉｎｇ Ｖｉｓｕａｌ Ｂａｓｉｃ
Ｚｈａｏ Ｈｕｉ ａｎｄ Ｂａｏ Ｓｈｕｘｉａｎ
（Ｓｅｉｓｍｏｌｏｇｉｃａｌ Ｂｕｒｅａｕ ｏｆＨｅｎａｎ Ｐｒｏｖｉｎｃｅ，Ｚｈｅｎｇｚｈｏｕ ４５００００，Ｃｈｉｎａ）
版权声明：本文标题：用VB访问SQL Server 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1710854582a576420.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论