【 tulaoshi.com - 编程语言 】
摘要
本文讨论了VisualBasic应用程序访问SQLServer数据的几中常用的方法，分别说明了每种方法的内部机理并给出了每种方法的一个简单的实例，最后比较了每种方法的性能和优缺点。
引言
MicrosoftVisualBasic(简称VB)作为一种面向对象的可视化编程工具，具有简单易学的，灵活方便和易于扩充的特点。而且Microsoft为其提供了与SQLServer通信的API函数集及工具集。因此它越来越多地用作大型公司数据和客户机—服务器应用程序的前端。与后端的MicrosoftSQLServer相结合，VB能够提供一个鲁棒的、高性能的客户机—服务器方案。
使用VisualBasic作为前端开发语言，与SQLServer接口有三种常用的方法，即：
*数据访问对象/Jet
*为ODBCAPI编程
*使用SQLServer的VisualBasic库(VBSQL)为DB库API编程
本文将讨论这三种VB应用程序管理SQLServer数据的方法，并比较每种方法的性
能和优缺点。
方法1.数据访问对象/JetVisualBasic支持DataAccessObjects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它确有许多优点。使用DAOs访问SQLServer的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通地调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQLServer提交SQL语句且返回结果。下面是一个用DAOs访问SQLServer的VB实例。
'FormDeclarations
DimmydbAsDatabase
DimmydynasetAsDynaset
PrivateSubForm_Load()
Setmydb=OpenDatabase("",Fa|se,Fa|se,"ODBC;DSN=Myserver;WSID=LCL;DATABASE=sa|es")
Setmydynaset=mydbCreateDynaset("Select*fromCustomers")
EndSub
上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了MicrosoftAccess连接到SQLServer所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，
“DATABASE”为所要访问的数据库名。
方法2.用ODBCAPI编程
ODBC(OpenDatabaseConnectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器反过来通来驱动器(SQLSRVR.DLL)把它们送到服务器中。
用ODBCAPI编程，一般要用到以下一些函数。下面列出了常用的函数以及它们的功能。
函数功能
SQLALLocEnv初始化ODBC环境，返回环境句柄
SQLALLocConnect为连接句柄分配内存并返回连接句柄
SQLConnect连接一个SQL数据资源
SQLDriverConnect连接一个SQL数据资源，允许驱动器向用户询问信息
SQLALLocStmt为语句句柄分配内存并返回语句句柄
SQLExecDirect把SQL语句送到服务器
SQLFetchAdvances到结果集的下一行(或第一行)
SQLGetData从结果集的特定的一列取回数据
SQLFreeStmt释放与语句句柄相关的资源
SQLDisconnect切断连接
SQLFreeConnect释放与连接句柄相关的资源
SQLFreeEnv释放与环境句柄相关的资源
下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句
句柄。
G|oba|giHEnvAsLong
G|oba|giHDBAsLong
G|oba|giHStmtAsLong
DimmyResultAsinteger
DimmyConnectionAsSrting
DimmyBuffAsString*256
DimmyBufflenAsInteger
IfSQLA||ocEnv(giHEnv)SQL_SUCCESSThen
MsgBox"A||ocationcouldn'thappen!"
Endif
ifSQL||ocConnect(giHEnv,giHDB)SQL_SUCCESSThen
MsgBox"SQLServercouldn'tconnect!"
Endif
myConnection="DSN=myServer;UID=|c|;PWD=;APP=ODBCTest;WS|D=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),
myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)
myResult=SQLA||ocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select*fromCustomersWhereCity="Wuhan""
myResult=SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))
方法3.使用VBSQL对DB库API编程
DB库是SQLServer的本地API，SQLServer的VisualBasic库(VBSQL)为VisualBasic程序员提供API。从一定意义上说，VBSQL是连接VisualBasic程序到SQLServer的性能最好最直接的方式。VBSQL包含以下三个文件：
VBSQL.VBX包含库函数，具有访问重要的消息和处理错误的能力
VBSQL.BI包括所有的常量和变量说明
VBSQL.HLPWindows帮助文件，使用VBSQL的指南
使用VBSQL时，必需将VBSQL.BI加入到VisualBasic工程文件中，并确保VB程序运行时有VBSQL.VBX文件。
一个典型的VBSQL对话中，一般要用到以下这些函数。
函数功能
Sq||nit在客户机上装载DB库
Sq|OpenConnection打开服务器连接，返回连接句柄
Sq|Cmd在客户机上建立批处理命令
Sq|Exec向服务器提交批处理命令
Sq|rexu|ts把客户机定位在第一条(或下一条)结果集的开端
Sq|NextRow驱动每个结果集的行之间的循环
Sq|Data访问一个特定列的数据
Sq|C|ose切断特定的连接
Sq|Exit切断所有找开的连接
Sq|WinExit卸下DB库
一般的DB库API编程的过程是这样的：先通过调用SqlInit对DB库进行初始化，再调用
SqlConnection打开一个连接，然后就可做一些工作。下面的代码是一个初始化DB库并
登录到服务器的通用例程。
PrivateSub|nitia|izeApp|ication()
DBL|B-VERS|ON●=Sq||nit●()
|fDBL|B_VERS|ON●=""Then
MsgBox"Couldnotinitia|izeDBL|B!Exitapp|ication.",MB_|CONEXCLAMAT|ON
End
Endif
EndSub
PrivateFunctionLoginToServer()Asinteger
loginToServer=SUCCEED
Status=Sq|SetloginTime(loginTimeOut)
|fgiSq|Conn0Then
Sq|C|ose(giSq|Conn)'关闭已打开的连接
giSq|Conn=Sq|OpenConnection(gsServerName,gsLogin|D,gsPassword,ProgramName●,ProgramName●)
|fgiSq|ConnoThen
|iresu|t=Sq|Use(giSq|Conn,"Sales")
Else
LogintoServer=FA|L
End|f
EndFunction
性能比较
以上三种访问SQLServer的方法各有各的特点。DAOs方法是基于对象的，因而便于使用，但是它从VisualBasic到SQLServer的最慢的方式。ODBCAPI和VBSQL方法从本质上讲是基于程序的。ODBCAPI方法通用性好，允许最强的互操作性，编程简单，但速度慢于VBSQL方法。VBSQL方法通过VBSQL控件，提供了重要的SQL`Server前端应用程序所需的灵活性、强大功能和良好性能。它具有真正的事件驱动及错误处理能力，完全支持异步处理、游标和计算列等。这些都是VBSQL方法超出其它方法的优势，但其编程稍复杂。至于实际使用哪一种接口方式，在很大程度上依赖于用户的应用程序的具体情况而定。->
