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

本文讨论了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引擎(MASJT200DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBCDLL)通过调用驱动器(SQLSRVRDLL)的函数，实现连接到数据源，翻译并向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("Selectfrom Customers") オ

End Sub ァ　

上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。

2、利用ODBC API编程

ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBCDLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVRDLL)把它们送到服务器中。

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

Global giHEnv As Long

Global giHDB As Long

Global giHStmt As Long

Dim myResult As integer

Dim myConnection As Srting

Dim myBuff As String256

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,form1hWnd,myConnectionlen(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))

ifix55 如何做历史数据库

pSpace在企业信息化的作用对于现代工业企业，如何能使决策者随时查看生产过程数据，以便快速地做出更为灵活的商业决策，是企业信息化建设的关键，在企业MES所关注的各项资源中，生产过程信息依然是重要的资源，如果不能解决生产过程信息实时有效上传的问题，将仍然无法充分利用和保障MES及ERP管理系统的投资。

企业MES核心是实时历史数据库，实时数据库可用于工厂过程的自动采集、存储和监视，可在线存储每个工艺过程点的多年数据，可以提供清晰、精确的 *** 作情况画面，用户既可浏览工厂当前的生产情况，也可回顾过去的生产情况，可以说，实时数据库对于流程工厂来说就如同飞机上的“黑匣子”。工厂的历史数据对公司来说是很有价值的，实时数据库的核心就是数据档案管理，它采集并存储与流程相关的上千点的数据，多年应用历史数据库管理的经验告诉我们，现在很难知道将来进行分析时哪些数据是必须的。

因此，保存所有的数据是防止丢失所需信息的最好方法。此外，要改进产品，必须具备与之相关物料的信息，并了解当前和过去的 *** 作状态。

实时数据库采集、存储流程信息，用来指导工艺改进、降低物料、增加产量。实时数据库为最终用户提供了快捷、高效的工厂信息，由于工厂实时数据存放在统一的数据库中，工厂中的所有人，无论在什么地方都可看到和分析相同的信息，客户端的应用程序可使用户很容易对工厂级实施管理，诸如工艺改进、质量控制、故障预防维护等。

通过实时数据库可集成产品计划、维护管理、专家系统、化验室信息系统、模拟与优化等应用程序，在业务管理和实时生产之间起到桥梁作用。北京三维力控推出的pSpaceTM就是这样一个极具竞争力的软件产品，pSpaceTM作为企业级实时历史数据库，通过极高速度的数据采集、大量历史数据存储和大量实时过程数据的发布，实现企业信息集成的基础平台，它为企业实现底层监控、信息集成提供了全方位的软件解决方案。

pSpace可以构成一个复杂的企业信息化系统，企业信息化系统是采用了实时历史数据库技术的计算机系统，该系统不仅仅是一组对数据进行处理的软件，也不只是一个数据库。一个实时历史数据库系统是一个实际可运行的，按照数据方式存储、维护和向应用程序提供数据或信息支持的系统，它是存储介质、处理对象和管理系统的 体，由数据库、硬件、软件几部分组成，pSpace是企业信息化的核心处理软件平台。

pSpace 企业级实时历史数据库为完全的分布式结构，可任意组建应用模式，支持C/S和B/S应用；它可以提供丰富的企业级信息系统客户端应用和工具；大容量支持企业级应用，内部实现高数据压缩率，可实现历史数据的大量存储，灵活的扩展结构可满足各种需求，具备广泛的安全性和可跟踪性。pSpace实时历史数据库能完成来自DCS、FCS和其它控制系统的实时数据的采集、存储、压缩，实时数据和历史数据的检索、统计、分析、建模，并进行曲线、图表显示，实现了流程工业中典型的应用功能，如工艺流程图展现、历史曲线分析、历史报警分析、EXCEL报表插件等，能为其他管理软件提供高效的数据接口，将连续存储的历史数据与这些管理软件进行双向通讯，pSpace是一个具有标准接口的、可二次开发的平台。

实时数据库结构：一个实时数据库系统的优劣，主要体现在它提供的功能是否齐备，系统性能是否优越，能否完成有效的数据存取，各种数据 *** 作、查询处理、存取方法、完整性检查，保证相关的事务管理，事务的概念、调度与并发控制、执行管理及存取控制，安全性检验。以下是力控的系统结构图系统组成：由采集站DA、数据服务器、 WEB服务器、客户端组成，同时和关系数据库进行有效的数据交换，DCS的数据经过DA进行采集，由DA SERVER送到数据服务器，数据服务器再有效的送给其它客户端。

pSpace实时数据库服务器主要由以下几部分构成：pSpace Server：负责整个pSpaceTM应用系统的实时数据处理、历史数据存储、统计数据处理、数据服务请求、事件触发器管理、调度管理、资源管理、系统配置等。pSpace Data Service：为第三方厂家的软件访问pSpaceTM Server时提供数据服务功能，包括：OPC Server、DDE Server、ODBC Router、Base API接口等pSpace COM SDK:COM SDK为用户开发基于pSpaceTM Server的应用程序提供基于COM对象的编程接口。

pSpace Visual ActiveX：是一组开放的控件，如：数据控件、文本控件、棒图控件、趋势控件等，控件可以直接访问实时数据库和关系数据库的数据。pSpace DA Server数据采集器：pSpaceTM DA server是数据采集站的设备通讯管理服务程序，用于系统和DCS、PLC等数据源之间的数据交换，具有自动网络通信负荷平衡功能和断线数据缓冲功能。

pSpace的Web服务器使用IIS作为Web管理服务器，用图形客户端生成Web网页；使用pSpace Visual ActiveX自行创建Web服务器和Web网页；使用pSpace Webserver，用图形客户端生成Web网页；pSpace 客户端监控组态软件：力控Forcecontrol系列；Microsoft Excel：采用标准EX。

VB提供的绘制图形的方法：（可以在窗体上或PicTureBox控件上使用）

与你主题相关的有：

1，绘制直线

objectLine (x1,y1) - (x2,y2), [color]

其中：(x1,y1) 和 (x2,y2)分别是平面上的两个点坐标。

2，绘制一点：

objectPSet (x,y), [color]

其中：(x1,y1) 是平面上的一个点坐标。

3，绘制图形的笔尖的粗细：

objectDrawWidth = size

默认粗细为1。

4，绘制图形的线条的颜色设置：

1）ObjectForeColor = QbColor(n) :n = 0 -- 15

2) 或者在使用上述方法时，在后边跟的参数[color]

思路：

绘制曲线，就是根据函数关系：y = f(x)，采用描点法，在某一区域范围内，根据x计算y，然后用

PSet (x,y)实现曲线的绘制。

以上就是关于VB访问SQLServer数据库技术全揭密全部的内容，包括:VB访问SQLServer数据库技术全揭密、历史数据库方案、想在VB中根据数据库的数据画曲线变化图，如何画用什么方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！