VB访问SQLServer数据库技术全揭密

VB访问SQLServer数据库技术全揭密

摘要：

本文讨论了VisualBasic应用程序访问SQLServer数据库的几种常用的方法，分别说明了

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

点。

一、引言

SQLServer是微软推出的中小型网络数据库系统，是目前最常用的数据库系统之一.随

着SQLServer网络数据库应用程序日益增多，这种Web数据库应用系统的正常运行一般依

赖于已存在的用户数据库。创建维护数据库的工作可用SQLServer提供的SQLEnterprise

Manager工具来进行，如能提供一种定制的数据库管理工具，通过管理应用程序来管理数据

库及其设备，对用户来说无疑是最理想的。

VisualBasic作为一种面向对象的可视化编程工具，具有简单易学，灵活方便和易于扩充

的特点。而且Microsoft为其提供了与SQLServer通信的API函数集及工具集，因此它越来

越多地用作大型公司数据和客户机一服务器应用程序的前端，与后端的MicrosoftSQLServer

相结合，VB能够提供一个高性能的客户机一服务器方案。

二、VB访问SQLServer数据的常用方法

使用VisualBasic作为前端开发语言，与SQLServer接口有几种常用的方法，即：

①数据访问对象/Jet

②为ODBCAPI编程

③使用SQLServer的VisualBasic库(VBSQL)为DB库的API编程

@RDO远程数据对象(RemoteDataObjects)

⑤ADO数据对象(ActiveDataObjects)

1、数据访问对象/Jet

VB支持DataAccessObjects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客

户机一服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access

数据库而开发的程序接口对象。使用DAOs访问SQLServer的过程如下：应用程序准备好

语句并送至Jet,Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，

驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数

据源，翻译并向SQLServer提交SQL语句且返回结果。下面是一个用DAOs访问SQLServer

的VB实例。

注释：FormDeclarations

DimmydbAsDatabase

DimmydynasetAsDynaset才

PrivateSubForm_Load()

Setmydb=OpenDatabase("“，False,False,"ODBC;DSN=Myserver;WSID=LCL;

DATABASE=sales")

Setmydynaset=mydbCreateDynaset("Select*fromCustomers1')才

EndSub

上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。

OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了MicrosoftAccess连

接到SQLServer所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，

“DATABASE”为所要访问的数据库名。

2、利用ODBCAPI编程

ODBC(OpenDatabaseConnectivity)的思想是访问异种数据库的一种可移植的方式。与

数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBCDLL)的动态连接中。应

用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器

(SQLSRVR.DLL)把它们送到服务器中。

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

句柄。

GlobalgiHEnvAsLong

GlobalgiHDBAsLong

GlobalgiHStmtAsLong

DimmyResultAsinteger

DimmyConnectionAsSiting

DimmyBuffAsString*256

DimmyBufflenAsInteger

IfSQLAllocEnv(giHEnv)<>SQL_SUCCESSThen

MsgBox,'Allocationcouldn注释：thappen!'1

EndIf

IfSQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESSThen

MsgBox"SQLServercouldn注释：tconnect!"

EndIf

myConnection=nDSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABAS

E=salesn

myResult=SQLDriverConnect(giHDB,Test,forml.hWnd,myConnection.len(myConnection),

myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)

myResult=SQLAllocStmt(giHDS,giHStmt)

myResult=SQLFreeStmt(giHStmt,SQL_COLSE)

rsSQL="Select*fromCustomersWhereCity="Hunan"”

myResult=SQLExecDirect(giHStmt,rsSQL,Len(rsSQD)

3、使用VBSQL对DB库API编程

DB库是SQLServer的本地API,SQLServer的VisualBasic库(VBSQL)为VisualBasic

程序员提供API。从一定意义上说，VBSQL是连接VisualBasic程序到SQLServer的性能

最好最直接的方式。VBSQL包含以下三个文件：

VBSQL.VBX：包含库函数，具有访问重要的消息和处理错误的能力

VBSQL.BI：包括所有的常量和变量说明

VBSQL.HLP：Windows帮助文件，使用VBSQL的指南

使用VBSQL时，，必须将VBSQL.BI加入到VisualBasic工程文件中，并确保VB程序运

行时有VBSQL.VBX文件。

一般的DB库API编程的过程是这样的：先通过调用Sqllnit对DB库进行初始化，再调

用SqlConnection打开一个连接，然后就可做一些工作。下面的代码是一个初始化DB库并

登录到服务器的通用例程。

PrivateSubInitializeApplication()

DBLIB_VERSION=SqlInit()

IfDBLIBVERSION=""Then

MsgBox"CouldnotinitializeDBLIBiExitapplication.",MBJCONEXCLAMATION

EndIf

EndSub

PrivateFunctionLoginToServer（）Asinteger

loginToServer=SUCCEED

Status%=SqlSetloginTime%（loginTimeOut）

IfgiSqlConnoOThen

SqlClose（giSqlConn）注释：关闭已打开的连接

giSqlConn=SqlOpenConnection（gsServerName,gsLoginlD,gsPassword,ProgramName,

ProgramName）

IfgiSqlConnoOThen

liresuit=SqlUse（giSqlConn,"Sales"）

Else

LogintoServer=FAIL

EndIf

EndFunction

4^RDO远程数据对象（RemoteDataObjects）

要讨论RDO,就必然要谈到DAO。RDO是从DAO派生出来的，但两者很大的不同在于

其数据库模式。DAO是针对［记录（Records）］和［字段（Fields）RDO是作为［行（Rows）］

和［列（Columns）］来处理。也就是说DAO是ISAM模式，RDO是关系模式。此外DAO

是访问Access的Jet引擎（Jet是ISAM）的接口，而RDO则是访问ODBC的接口。

可见，RDO是综合了DAO/Jet、VBSQL/DBLib以及ODBC的优点的对象（Object）»需

要强调的是，RDO是包裹着ODBCAPI的一层薄薄的外壳，被设计成在后台（服务器端）

有数据库存在的前提下运行，同时也是针对SQLServer和Oracle而特别设计的。

RDO的优势在于它完全被集成在VB之中。此外，直接访问SQLServer存储过程、完全

支持T-SQL、T-SQL调试集成在开发环境中、VisualDatabaseTools的集成化等，也是RDO

的长处。

在RDO的对象和集合中，有很多对数据库的状态和设定进行操作的属性（Property）,以

及对数据库进行操作的方法（Method）。利用这些，从RDO2.0起就可以开发事件驱动的数

据库应用程序。

RDO对象与VB中其他对象的概念相同。与VB用的ActiveX控件（以往称为Custom

Control或OCX、VBX）相似的是，RDO也带有属性和方法；但同Spread、InputMan等普

遍应用的ActiveX控件不同的是，RDO没有自己的用户界面，因而可以和VB标准的Timer

控件归为同一类。当然也可以将RDO看作调用ODBCAPI函数，进而对后台数据库操作加

以控制的对象。在RDO的属性和方法中，包含了对单个的ODBCAPI函数以及一连串API

函数的调用。

①rdoEngine对象

最初调用RDO对象以及RDC（远程数据控件）时，自动生成rdoEngine对象的附带事件

（incident）ordoEngine用于对RDO全局属性的参数、选项进行设置，是在RDO的阶层结

构内处于最上层的对象，包含了所有的其他对象。

rdoEngine对象与DAO/Jet不同，虽然被多个应用程序共享，但体现rdoEngine对象的设

定值的属性却并不共用，而是在各自的应用程序的程序界面中对其分别加以设定。这些设定

值对其他使用RDO以及RDC的应用程序没有任何影响。rdoEngine不是集合的要素，而是

重新定义的对象，rdoEngine对象不能被追加作成对象属性的初值。

©rdoEnvironment对象

RDO对象在自动创建rdoEngine对象时，将rdoEnviroment对象的初始值生成并保存为

rdoEnviroments(0)。一般情况下，应用程序中不必追加rdoEnvironment对象，大多只需对

已有的rdoEnviroments(0)进行操作就可以了。只有在支持一个以上事务(Transaction),

需要将用户名和口令信息分别处理的情况下，利用rdoCreateEnvironment方法将特定的用户

名和口令值做成新的rdoEnvironment对象。在这个方法中可以指定固有名、用户名和口令,

如果所指定的值与rdoEnvironments集合的己经存在的成员名称相同，会产生错误。新建的

rdoEnvironment对象自动追力口在rdoEnvironments集合的最后。调rdoCreateEnvironment方法

时，其name参数可以是长度为0的文字列，这时新的rdoEnvironment对象将不会被追加在

rdoEnvironments集合之中。

③rdoConnection对象

rdoConnection对象用于同SQLServer的连接管理。

下面是与SQLServer连接的例子。

用OpenConnection方法的一个实例。

设定的DSN为MyDSN:

DimCnAsrdoConnection

DimEnAsrdoEnvironment

DimConnAsString

Conn=HDSN=MyDSN;UID=Jacob;'1&"PWD=123456;DATABASE=MyDb;H

SetCn=En.OpenConnectionrdDriverPrompt,False,Conn)

SetCn=En.OpenConnection(Prompt:=rdDriverPrompt,ReadOnly:=False,ConnectsCnn)

用EstablishConnection方法的一个实例。

这里以独立的rdoConnection对象为例说明与SQLServer的连接。

PublicWithEventsEngAsrdoEngine

PublicWithEventsCnAsrdoConnection

PrivateSubForm__Load()

SetEng=NewrdoEngine

SetCn=NewrdoConnection

WithCn

.Connect="UID=;PWD=;n&"DATABASE=pubs;DSN=biblio11

.LoginTimeout=5

.EstablishConnectionrdoDriverNoPromt,True,rdAsyncEnable

EndWith

EndSub

在这个例子中，Form_Load函数对rdoEngine和rdoConnection对象进行初始化。这里有

一点需要注意，rdoConnection对象是处于独立的状态之下，即使是处于未连接状态也可以

设置属性的值。接下来是rdoConnect对象的事件处理程序。从RDO2.0起可以实现异步方

式(rdAsyncEnable),EstablishConnection就设定为该值。在异步状态下，不必等待与数据

库的连接，程序可以迅速从Form_Load函数中退出。然后是BeforeConnect事件，该处理

在与数据库的连接开始以前被激发，此时不能进行有关终止连接的操作：

PrivateSubCn_BeforeConnect(ConnetStringAsString,PromptAsVariant)

MsgBox”正在连接“&ConnectString,vbOKOnly,“连接前“

EndSub

连接完成之后的事件处理：

PrivateSubCn_Connect(ByVaiErrorOccurredAsBoolean)

DimMAsString

IfErrorOccurredThen

ForEacherInrdoErrors

M=M&er&vbCrLf&M

Next

MsgBox”连接失败"&vbCrLf&M

Else

MsgBox”连接成功”

注释：这是确认连接状态的测试代码

Cn.Excute"usepubs',

EndSub

RDO连接处理结束后，在该事件中确认连接成功与否。连接成功的情况下ErrorOccurred

返回False,失败时为True,由此可以对rdoErrors集合进行检测：

PrivateSubEng_InfoMessage()

ForEacherInrdoErrors

Debug.Printer

Next

RdoErrors.Clear

EndSub

不能与SQLServer连接的原因多种多样，有可能是由于对数据库的访问权限、网络连接

问题、数据库表的信息错误、SQLServer同时连接的许可数、资源不足等等，具体情况需要

与网络管理员商量。断开连接的操作非常简单，但又很重要，因为RDO不提供自动断开

的功能。

Cn.Close

SetCn=Nothing注释：释放对象所占的内存资源

En.Close

SetEn=Nothing注释：释放对象所占的内存资源

VB是对象语言,Form,ActiveX控件也都是对象。使用对象后必须养成将对象设为Nothing

把它从内存中释放的编程习惯。这样可以预防很多不可预测错误，往往程序中发生原因不明

的错误时，其原因就在于此。

5、ADO数据对象(ActiveDataObjects)

ADO是基于全新的OLEDB技术，OLEDB可对电子邮件、文本文件、复合文件、数据

表等各种各样的数据通过统一的接口进行存取。随着ActiveX控件的升级(Windows98的

ActiveX5.0),RDO将被以ActiveX技术为基础的ADO接口所替代。下面将介绍基于ActiveX

技术的ADO访问SQLServer6.5数据库的技术和方法。基于浏览器的ADO接口常用函数如

下：

(1)取当前的工作数据库

由于管理任务一般都必须在Master库中完成，因此在执行管理任务之前，最好保存当前

工作库，以便完成任务之后再切换回原来的任务。

PublicFunctionSQLGetCunentDatabaseName(CnAsADODB.Connection)AsString

DimsSQLAsString

DimRSAsNewADODB.Recordset

OnErrorGoToerrSQLGetCurrentDatabaseName

sSQL=nselectCurrentDB=DB_NAME()”

RS.OpensSQL,Cn

SQLGetCurrentDatabaseName=Trim$(RS!CurrentDB)

RS.Close

ExitFunction

errSQLGetCurrentDatabaseName:

SQLGetCuiTentDatabaseName="*"

EndFunction

(2)取SQLServer安装目录下的DATA子目录路径

取SQLServer的设备文件缺省目录，返回如D:MSSQLDATAo

PublicFunctionSQLGetDataPath(CnAsADODB.Connection)AsString

DimsSQLAsString

DimRSAsNewADODB.Recordset

DimsFullPathAsString

OnErrorGoToerrSQLGetDataPath

sSQL="selectphynamefrommastersysdeviceswherename=注释：master注释："

RS.OpensSQL,Cn

sFullPath=RS!phyname

RS.Close

SQLGetDataPath=Left$(sFullPath,Len(sFullPath)-10)注释：MASTER.DAT的大

小

ExitFunction

errSQLGetDataPath:

SQLGetDataPath=nn

EndFunction

(3)创建一个新数据库

PublicFunctionSQLCreateDatabase65(CnAsADODB.Connection,sDBNameAsString,

sDataDeviceNameAsString,nDataSizeAsInteger,OptionalsLogDeviceName,Optional

nLogSize)AsBoolean

DimsSQLAsString

OnErrorGoToerrSQLCreateDatabase65

DimsDBAsString

sDB=SQLGetCurrentDatabaseName(Cn)

sSQL="USEmaster"

Cn.ExecutesSQL

sSQL=nCREATEDATABASE,1&sDBName

sSQL=sSQL&"ON"&sDataDeviceName&"二"&nDataSize

IfNotIsMissing(sLogDeviceName)AndNotIsMissing(nLogSize)Then

sSQL=sSQL&"LOGON"&sLogDeviceName&'nLogSize

EndIf

Cn.ExecutesSQL

sSQL=MUSEn&sDB

Cn.ExecutesSQL

SQLCreateDatabase65=True

ExitFunction

errSQLCreateDatabase65:

OnErrorResumeNext

sSQL="USE"&sDB

Cn.ExecutesSQL

SQLCreateDatabase65=False

EndFunction

(4)判断一个数据库是否存在

PublicFunctionSQLExistDatabase(CnAsADODB.Connection,sDBNameAsString)As

Boolean

DimsSQLAsString

DimRSAsNewADODB.Recordset

DimbTmpAsBoolean

onErrorGoToerrSQLExistDatabase

sSQL="selectCntDB=count(*)"

sSQL=sSQL&"Frommaster.dbo.sysdatabasesu

sSQL=sSQL&"Wherename=注释："&sDBName&”注释：”

RS.OpensSQL,Cn

IfRS!CntDB=0ThenbTmp=FalseElsebTmp=True

RS.Close

SQLExistDatabase=bTmp

ExitFunction

errSQLExistDatabase:

SQLExistDatabase=False

ExitFunction

EndFunction

(5)删除一个数据库

PublicFunctionSQLDropDatabase(CnAsADODB.Connection,sDBNameAsString)As

Boolean

DimsSQLAsString

OnErrorGoToerrSQLDropDatabase

IfNotSQLExistDatabase(Cn,sDBName)Then

SQLDropDatabase=True

ExitFunction

EndIf

DimsDBAsString

sDB=SQLGetCurrentDatabaseName(Cn)

sSQL="Usemaster"

Cn.ExecutesSQL

sSQL="DROPDATABASE"&sDBName

Cn.ExecutesSQL

sSQL="USE"&sDB

Cn.ExecutesSQL

SQLDropDatabase=True

ExitFunction

errSQLDropDatabase:

OnErrorResumeNext

sSQL=nUSE（,&sDB

Cn.ExecutesSQL

SQLDropDatabase=False

EndFunction

三、性能比较及应用说明

用VB开发基于SQLServer的数据库系统，以上几种访问SQLServer的方法各有各的特

点。DAOs方法是基于对象的，因而便于使用，但是它是从VisualBasic到SQLServer最慢

的连接方式。ODBCAPI和VBSQL方法从本质上讲是基于程序的。ODBCAPI方法通用性

好，允许最强的互操作性，编程简单，但速度慢于VBSQL方法。VBSQL方法通过VBSQL

控件，提供了重要