科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道VB应用程序访问SQL Server方法探讨

VB应用程序访问SQL Server方法探讨

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本文讨论了Visual Basic应用程序访问SQL Server数据的几种常用的方法,分别说明了每种方法的内部机理,并对每种方法都给出了一个简单的实例,最后比较了每种方法的性能和优缺点。

作者:佚名 来源:VB编程乐园 2007年10月22日

关键字: VB 应用程序 访问 SQL Server

  • 评论
  • 分享微博
  • 分享邮件

在本页阅读全文(共2页)

引言 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("",False,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)把它们送到服务器中。用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 SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"Allocation couldn't happen!"
End if
if SQLllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn't connect!"
End if
myConnection="DSN=myServer;UID=lcl;PWD=;APP=ODBCTest;WSlD=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),
myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)
myResult=SQLAllocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select*from Customers Where City="Wuhan""
myResult=SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))
    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章