本文讨论了Visual Basic应用程序访问sql Server数据库的几种常用的方法,分别说明了每种方法的内部机理并给出了每种方法的一个简单的实例,最后比较了每种方法性能和优缺点。
一、引言
sql Server是微软推出的中小型网络数据库系统,是目前最常用的数据库系统之一。随着sql Server网络数据库应用程序日益增多,这种Web数据库应用系统的正常运行一般依赖于已存在的用户数据库。创建维护数据库的工作可用sql Server提供的sql Enterprise Manager工具来进行,如能提供一种定制的数据库管理工具,通过管理应用程序来管理数据库及其设备,对用户来说无疑是最理想的。
Visual Basic作为一种面向对象的可视化编程工具,具有简单易学,灵活方便和易于扩充的特点。而且Microsoft为其提供了与sql Server通信的API函数集及工具集,因此它越来越多地用作大型公司数据和客户机—服务器应用程序的前端,与后端的Microsoft sql Server相结合,VB能够提供一个高性能的客户机—服务器方案。
二、VB访问sql Server数据的常用方法
使用Visual Basic作为前端开发语言,与sql Server接口有几种常用的方法,即:
①数据访问对象/Jet
②为ODBC API编程
③使用sql Server的Visual Basic库(VBsql)为DB库的API编程
④RDO 远程数据对象(RemoteData Objects)
⑤ADO 数据对象(Active Data Objects)
1、数据访问对象/Jet
VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式,但它的确有许多优点。DAO/Jet是为了实现从 VB访问Access数据库而开发的程序接口对象。使用DAOs访问sql Server的过程如下:应用程序准备好语句并送至Jet,Jet引擎(MASJT200.DLL)优化查询,载入驱动程序管理器并与之通讯,驱动程序管理器(ODBC.DLL)通过调用驱动器(sqlSRVR.DLL)的函数,实现连接到数据源,翻译并向sql Server提交sql语句且返回结果。下面是一个用DAOs访问sql Server的VB实例。
注释:Form Declarations
Dim mydb As Database
Dim mydynaset As Dynaset オ
Private Sub Form_Load()
Set mydb = OpenDatabase("",False,"ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")
Set mydynaset = mydb CreateDynaset("Select*from Customers") オ
End Sub ァ
上述例子是以非独占、非只读方式打开sales数据库,并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是 ODBC连接字符串参数,它指明了Microsoft Access连接到sql Server所需要知道的一些内容。其中“DSN”为数据源名,“WSID”为工作站名,“DATABASE”为所要访问的数据库名。
2、利用ODBC API编程
ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数,而驱动程序管理器反过来通过驱动器(sqlSRVR.DLL)把它们送到服务器中。
下面的代码使用上面一些函数先登录到一个服务器数据库,并为随后的工作设置了语句句柄。
Global giHEnv As Long
Global giHDB As Long
Global giHStmt As Long
Dim myResult As integer
Dim myConnection As Srting
Dim myBuff As String*256
Dim myBufflen As Integer
If sqlAllocEnv(giHEnv)<>sql_SUCCESS Then
MsgBox"Allocation couldn注释:t happen!"
End If
If sqlAllocConnect(giHEnv,giHDB)<>sql_SUCCESS Then
MsgBox "sql Server couldn注释:t connect!"
End If
myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"
myResult=sqlDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),myBuff,256,myBufflen,sql_DRIVER_COMPLETE_REQU IE D)
myResult=sqlAllocStmt(giHDS,giHStmt)
myResult=sqlFreeStmt(giHStmt,sql_COLSE)
RSSQL="Select * from Customers Where City = "Hunan""
myResult = sqlExecDirect(giHStmt,RSSQL,Len(RSSQL))
3、使用VBsql对DB库API编程
DB库是sql Server的本地API,sql Server的Visual Basic库(VBsql)为Visual Basic程序员提供API。从一定意义上说,VBsql是连接Visual Basic程序到sql Server的性能最好最直接的方式。VBsql包含以下三个文件:
VBsql.VBX: 包含库函数,具有访问重要的消息和处理错误的能力
VBSQL.BI:包括所有的常量和变量说明
VBsql.HLP:Windows帮助文件,使用VBsql的指南
在使用 sql Server 的过程中,用户遇到的最多的问题莫过于连接失败了。一般而言,有以下两种连接 sql Server 的方式,一是利用 sql Server 自带的客户端工具,如企业管理器、查询分析器、事务探查器等;二是利用用户自己开发的客户端程序,如ASP 脚本、VB程序等,客户端程序中又是利用 ODBC 或者 OLE DB 等连接 sql Server。下面,我们将就这两种连接方式,具体谈谈如何来解决连接失败的问题。 一、客户端工具连接失败 在使用 sql Server 自带的客户端工具(以企业管理器为例)连接 sql Server时,最常见的错误有如下一些: 1、sql Server 不存在或访问被拒绝 ConnectionOpen (Connect()) 2、用户'sa'登录失败。原因:未与信任 sql Server 连接相关联。 3、超时已过期。 下面我们依次介绍如何来解决这三个最常见的连接错误。 第一个错误"sql Server 不存在或访问被拒绝"通常是最复杂的,错误发生的原因比较多,需要检查的方面也比较多。一般说来,有以下几种可能性: 1、sql Server名称或IP地址拼写有误; 2、服务器端网络配置有误; 3、客户端网络配置有误。 要解决这个问题,我们一般要遵循以下的步骤来一步步找出导致错误的原因。 首先,检查网络物理连接: ping <服务器IP地址> 或者 ping <服务器名称> 如果 ping <服务器IP地址> 失败,说明物理连接有问题,这时候要检查硬件设备,如网卡、HUB、路由器等。还有一种可能是由于客户端和服务器之间安装有防火墙软件造成的,比如 ISA Server。防火墙软件可能会屏蔽对 ping、telnet 等的响应,因此在检查连接问题的时候,我们要先把防火墙软件暂时关闭,或者打开所有被封闭的端口。 如果ping <服务器IP地址> 成功而 ping <服务器名称> 失败,则说明名字解析有问题,这时候要检查 DNS 服务是否正常。有时候客户端和服务器不在同一个局域网里面,这时候很可能无法直接使用服务器名称来标识该服务器,这时候我们可以使用HOSTS文件来进行名字解析,具体的方法是: 1、使用记事本打开HOSTS文件(一般情况下位于C:\WINNT\system32\drivers\etc). 2、添加一条IP地址与服务器名称的对应记录,如: 172.168.10.24 myserver 也可以在 sql Server 的客户端网络实用工具里面进行配置,后面会有详细说明。 其次,使用 telnet 命令检查sql Server服务器工作状态: telnet <服务器IP地址> 1433 如果命令执行成功,可以看到屏幕一闪之后光标在左上角不停闪动,这说明 sql Server 服务器工作正常,并且正在监听1433端口的 TCP/IP 连接;如果命令返回"无法打开连接"的错误信息,则说明服务器端没有启动 sql Server 服务,也可能服务器端没启用 TCP/IP 协议,或者服务器端没有在 sql Server 默认的端口1433上监听。 接着,我们要到服务器上检查服务器端的网络配置,检查是否启用了命名管道,是否启用了 TCP/IP 协议等等。我们可以利用 sql Server 自带的服务器网络使用工具来进行检查。 点击:程序 -> Microsoft sql Server -> 服务器网络使用工具,打开该工具后看到的画面如下图所示: 从这里我们可以看到服务器启用了哪些协议。一般而言,我们启用命名管道以及 TCP/IP 协议。 点中 TCP/IP 协议,选择"属性",我们可以来检查 SQK Server 服务默认端口的设置,如下图所示: 一般而言,我们使用 sql Server 默认的1433端口。如果选中"隐藏服务器",则意味着客户端无法通过枚举服务器来看到这台服务器,起到了保护的作用,但不影响连接。 检查完了服务器端的网络配置,接下来我们要到客户端检查客户端的网络配置。我们同样可以利用 sql Server 自带的客户端网络使用工具来进行检查,所不同的是这次是在客户端来运行这个工具。 点击:程序 -> Microsoft sql Server -> 客户端网络使用工具, 打开该工具后看到的画面如下图所示: 从这里我们可以看到客户端启用了哪些协议。一般而言,我们同样需要启用命名管道以及 TCP/IP 协议。 点击 TCP/IP 协议,选择"属性",可以检查客户端默认连接端口的设置,如下图所示。 该端口必须与服务器一致。 单击"别名"选项卡,还可以为服务器配置别名。服务器的别名是用来连接的名称,连接参数中的服务器是真正的服务器名称,两者可以相同或不同。如下图中,我们可以使用myserver来代替真正的服务器名称sql2kcn-02,并且使用网络库 Named Pipes。别名的设置与使用HOSTS文件有相似之处。 通过以上几个方面的检查,错误 1 发生的原因基本上可以被排除。下面我们再详细描述如何来解决错误 2。 当用户尝试在查询分析器里面使用sa来连接sql Server,或者在企业管理器里面使用sa来新建一个sql Server注册时,经常会遇到如图 2 所示的错误信息。该错误产生的原因是由于sql Server使用了"仅 Windows"的身份验证方式,因此用户无法使用sql Server的登录帐户(如 sa )进行连接。解决方法如下所示: 1、 在服务器端使用企业管理器,并且选择"使用 Windows 身份验证"连接上 sql Server; 2、 展开"sql Server组",鼠标右键点击sql Server服务器的名称,选择"属性",再选择"安全性"选项卡; 3、 在"身份验证"下,选择"sql Server和 Windows "。 4、 重新启动sql Server服务。 在以上解决方法中,如果在第 1 步中使用"使用 Windows 身份验证"连接 sql Server 失败,那么我们将遇到一个两难的境地:首先,服务器只允许了 Windows 的身份验证;其次,即使使用了 Windows 身份验证仍然无法连接上服务器。这种情形被形象地称之为"自己把自己锁在了门外",因为无论用何种方式,用户均无法使用进行连接。实际上,我们可以通过修改一个注册表键值来将身份验证方式改为 sql Server 和 Windows 混合验证,步骤如下所示: 1、点击"开始"-"运行",输入regedit,回车进入注册表编辑器; 2、依次展开注册表项,浏览到以下注册表键: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSsqlServer\MSsqlServer] 3、在屏幕右方找到名称"LoginMode",双击编辑双字节值; 4、将原值从1改为2,点击"确定"; 5、关闭注册表编辑器; 6、重新启动sql Server服务。 此时,用户可以成功地使用sa在企业管理器中新建sql Server注册,但是仍然无法使用Windows身份验证模式来连接sql Server。这是因为在 sql Server 中有两个缺省的登录帐户:BUILTIN\Administrators 以及 <机器名>\Administrator 被删除。要恢复这两个帐户,可以使用以下的方法: 1、打开企业管理器,展开服务器组,然后展开服务器; 2、展开"安全性",右击"登录",然后单击"新建登录"; 3、在"名称"框中,输入 BUILTIN\Administrators; 4、在"服务器角色"选项卡中,选择"System Administrators" ; 5、点击"确定"退出; 6、使用同样方法添加 <机器名>\Administrator 登录。 以下注册表键 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSsqlServer\MSsqlServer\LoginMode 的值决定了sql Server将采取何种身份验证模式。该值为1,表示使用Windows 身份验证模式;该值为2,表示使用混合模式(Windows 身份验证和 sql Server 身份验证)。 看完如何解决前两个错误的方法之后,让我们来看一下如图 3 所示的第三个错误。 如果遇到第三个错误,一般而言表示客户端已经找到了这台服务器,并且可以进行连接,不过是由于连接的时间大于允许的时间而导致出错。这种情况一般会发生在当用户在Internet上运行企业管理器来注册另外一台同样在Internet上的服务器,并且是慢速连接时,有可能会导致以上的超时错误。有些情况下,由于局域网的网络问题,也会导致这样的错误。 要解决这样的错误,可以修改客户端的连接超时设置。默认情况下,通过企业管理器注册另外一台sql Server的超时设置是 4 秒,而查询分析器是 15 秒(这也是为什么在企业管理器里发生错误的可能性比较大的原因)。