VB访问SQLServer的探讨

原创 2001年06月03日 14:08:00

 

VB访问SQLServer的探讨 -----------(VB数据库)

摘要

本文讨论了Visual Basic应用程序访问SQL Server数据的几中常用的方法,分别说

明了每种方法的内部机理并给出了每种方法的一个简单的实例,最后比较了每种方法的

性能和优缺点。

引言

Microsoft Visual Basic(简称VB)作为一种面向对象的可视化编程工具,具有简单

易学的,灵活方便和易于扩充的特点。而且Microsoft为其提供了与SQL Server通信的

API函数集及工具集。因此它越来越多地用作大型公司数据和客户机—服务器应用程序

的前端。与后端的Microsoft SQL Server相结合,VB能够提供一个鲁棒的、高性能的客

户机—服务器方案。

使用Visual Basic作为前端开发语言,与SQL Server接口有三种常用的方法,即:


*数据访问对象/Jet
*为ODBC API编程
*使用SQL Server的Visual Basic库(VBSQL)为DB库API编程
本文将讨论这三种VB应用程序管理SQL Server数据的方法,并比较每种方法的性
能和优缺点。

方法1.数据访问对象/JetVisual Basic支持Data Access Objects(DAOs)的子集。DAO的

方法虽然不是性能最好的管理客户机—服务器之间的对话方式,但它确有许多优点。使

用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("",Fa|se,Fa|se,"ODBC;DSN=Myserver;WSID=LCL;DATABASE=sa|es")
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)把它们送到服务器中。

用ODBC API编程,一般要用到以下一些函数。下面列出了常用的函数以及它们的功能。
函数 功能
SQLALLocEnv 初始化ODBC环境,返回环境句柄
SQLALLocConnect 为连接句柄分配内存并返回连接句柄
SQLConnect 连接一个SQL数据资源
SQLDriverConnect 连接一个SQL数据资源,允许驱动器向用户询问信息
SQLALLocStmt 为语句句柄分配内存并返回语句句柄
SQLExecDirect 把SQL语句送到服务器
SQLFetchAdvances 到结果集的下一行(或第一行)
SQLGetData 从结果集的特定的一列取回数据
SQLFreeStmt 释放与语句句柄相关的资源
SQLDisconnect 切断连接
SQLFreeConnect 释放与连接句柄相关的资源
SQLFreeEnv 释放与环境句柄相关的资源
下面的代码使用上面一些函数先登录到一个服务器数据库,并为随后的工作设置了语句
句柄。
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 SQLA||ocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"A||ocation couldn't happen!"
End if
if SQL||ocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn't connect!"
End if
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*from Customers Where City="Wuhan""
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的指南
使用VBSQL时,必需将VBSQL.BI加入到Visual Basic工程文件中,并确保VB程序运行时有
VBSQL.VBX文件。
一个典型的VBSQL对话中,一般要用到以下这些函数。
函数 功能
Sqllnit 在客户机上装载DB库
SqlOpenConnection 打开服务器连接,返回连接句柄
SqlCmd 在客户机上建立批处理命令
SqlExec 向服务器提交批处理命令
Sqlrexu|ts 把客户机定位在第一条(或下一条)结果集的开端
SqlNextRow 驱动每个结果集的行之间的循环
SqlData 访问一个特定列的数据
SqlC|ose 切断特定的连接
SqlExit 切断所有找开的连接
SqlWinExit 卸下DB库
一般的DB库API编程的过程是这样的:先通过调用SqlInit对DB库进行初始化,再调用
SqlConnection打开一个连接,然后就可做一些工作。下面的代码是一个初始化DB库并
登录到服务器的通用例程。
Private Sub |nitia|izeApp|ication()
DBL|B-VERS|ON=Sq||nit()
|f DBL|B_VERS|ON=""Then
MsgBox"Could not initia|ize DBL|B!Exit app|ication.", MB_|CONEXCLAMAT|ON
End
End if
End Sub
Private Function LoginToServer() As integer
loginToServer=SUCCEED
Status%=Sq|SetloginTime%(loginTimeOut)
|f giSq|Conn<>0 Then
Sq|C|ose(giSq|Conn) '关闭已打开的连接
giSq|Conn=Sq|OpenConnection(gsServerName,gsLogin|D,gsPassword,Progr amName,ProgramName)
|f giSq|Conn<>o Then
|iresu|t=Sq|Use(giSq|Conn,"Sales")
Else
LogintoServer=FA|L
End |f
End Function

性能比较

以上三种访问SQL Server的方法各有各的特点。DAOs方法是基于对象的,因而便于

使用,但是它从Visual Basic到SQL Server的最慢的方式。ODBC API和VBSQL方法从本质

上讲是基于程序的。ODBC API方法通用性好,允许最强的互操作性,编程简单,但速度

慢于VBSQL方法。VBSQL方法通过VBSQL控件,提供了重要的SQL` Server前端应用程序所

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

异步处理、游标和计算列等。这些都是VBSQL方法超出其它方法的优势,但其编程稍复

杂。至于实际使用哪一种接口方式,在很大程度上依赖于用户的应用程序的具体情况而

定。

手机管理应用研究【1】——总篇

说明 由于自己一直以来对手机管理方面的东西比较感兴趣,加上最近以来老大的驱动,所以决定研究整理一下root相关技术(不局限于root)。手机Root是一门大学问,root的招数各有不同。Root权...
  • zhgxhuaa
  • zhgxhuaa
  • 2014年07月22日 15:33
  • 2466

《苏菲的世界》~哲学是什么?

亲爱的苏菲:   人的嗜好各有不同。有的人喜欢收集古钱或外国邮票,有的人喜欢刺绣,有的人则利用大部分的空间时间从事某种运动。   另外有许多人以阅读为乐,但阅读的品味人各不同。有的人喜欢看报纸和漫画,...
  • leiaixue
  • leiaixue
  • 2014年01月16日 18:52
  • 1087

VB.NET访问SQLServer数据库

用vb6.0编写收费系统,用的是ADODB(Active Data Objects Data Base)+Recordset,而在vb.net中用的是SqldataAdapter、SqldataRea...
  • lidaasky
  • lidaasky
  • 2012年02月09日 16:04
  • 16006

Vb.net数据库编程(05):SQlserver的存储过程

SQlserver的存储过程      说白了,就是一个批处理过程。      就是一堆SQl语句连续执行,里面可能有一些变量、流程控制,显示等。 所以首先定义一个存储过程,它就有了一批...
  • dzweather
  • dzweather
  • 2013年02月01日 20:11
  • 5791

VB.net数据库编程(07):SQLserver中的通讯录

前面用过Access的通讯录,下面用一个SQLserver的通讯录。 首先,在SQL2012中建立一个表,插入一个记录: use Sales go create table txl (...
  • dzweather
  • dzweather
  • 2013年02月02日 15:34
  • 6499

VB.net数据库编程(03):一个SQLserver连接查询的简单例子

这个例子,由于在ADO.net入门已经专门学了,再次进行复习 一下。 主要掌握连接字串的情况。 过程就是: 1、引用System.Data.SqlClient。而Ac...
  • u014366427
  • u014366427
  • 2014年03月26日 11:10
  • 923

用VB备份和恢复SQLServer数据库的方法

对于关键应用的数据库学习应根据具体环境和条件制订一个完善可行确保系统安全的备份计划,没有备份的系统是不可靠、危险的,后果将是严重的,破坏性病毒、误操作、自然灾害等等都可能会对数据库系统造成难以估量的破...
  • u011440741
  • u011440741
  • 2013年08月26日 18:08
  • 455

VB.net数据库编程(03):一个SQLserver连接查询的简单例子

这个例子,由于在ADO.net入门已经专门学了,再次进行复习 一下。 主要掌握连接字串的情况。 过程就是: 1、引用System.Data.SqlClient。而Access中引用 的是...
  • dzweather
  • dzweather
  • 2013年02月01日 18:52
  • 41056

Vb.net数据库编程(05):SQlserver的存储过程

SQlserver的存储过程      说白了,就是一个批处理过程。      就是一堆SQl语句连续执行,里面可能有一些变量、流程控制,显示等。 所以首先定义一个存...
  • u014366427
  • u014366427
  • 2014年03月26日 11:11
  • 519

VB6.0与SQLServer——有源数据库连接

VB6.0中数据访问接口有三种:ActiveX数据库对象(ADO)、远程数据对象(RDO)和数据访问对象(DAO)。ADO(ActiveX Data Objects)是用于存取数据源的COM组件是Mi...
  • kanglix1an
  • kanglix1an
  • 2012年07月27日 20:42
  • 2125
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB访问SQLServer的探讨
举报原因:
原因补充:

(最多只允许输入30个字)