VB与大型数据库无数据源的连接

本文所述的无“数据源”连接，意义不是不需要数据源，否则连接无从谈起，而是不需要配置注册数据源所进行的连接。ODBC（OpenDataBaseConnectivity，开放式数据库连接）是用于连接不同数据源的标准编程语言接口。许多文章中介绍，在实现ODBC时，必须首先配置ODBC环境，进行数据源的注册，然后才能在对数据库编程时，对数据源进行连接、访问和操作，并提供了用PB或VB等语言工具实现数据源注册的具体方法。这些方法不但复杂烦琐，而且由于参数内容不一，配置时令人感觉无所适从，不宜把握。

走近ADO

ADO是微软提供的数据库访问技术。它被设计用来同新的数据访问层OLEDBProvider一起协同工作，以提供通用数据访问（UniversalDataAccess）能力。OLEDB是一个底层的数据访问接口，用它可以访问各种数据源，包括传统的关系型数据库、电子邮件系统及自定义的商业对象等。

ADO提供了一个熟悉的、高层的对OLEDB的Automation封装接口。对那些熟悉RDO的程序员来说，可以把OLEDB看作ODBC驱动程序，如同RDO对象是ODBC驱动程序接口一样，ADO对象是OLEDB的接口。同样，像不同的数据库系统需要它们自己的ODBC驱动程序一样，不同的数据源也要求它们自己的OLEDB提供者（OLEDBprovider）。目前，虽然OLEDB提供者比较少，但微软正积极推广该技术，并计划用OLEDB取代ODBC。

微软公司已宣布今后不会对VBSQL/DBLib进行升级，而且ODBCAPI函数一级的编程方式也不为人们所喜爱，所以，RDO今后将被以ActiveX技术为基础的ADO所替代。ADO是基于OLEDB之上的技术，它通过内部的属性和方法提供统一的数据库访问接口。

1．ADO组件

●MicrosoftActiveXDataObjects(ADO)：使客户端应用程序能通过OLEDB提供者访问和操作数据库服务器中的数据。

●ActiveXDataObjectsExtensionsforDDLandSecurity(ADOX)：将ADO扩展为包括创建、修改和删除的模式对象，如表格和过程，以及包括用于维护用户和组以及管理对象权限的安全对象。

●ActiveXDataObjects(Multidimensional)(ADOMD):将ADO扩展为包括指定到多维数据的对象，并允许浏览多维模式、查询立方和检索结果。

2．ADO优点

●ADO具有高度的灵活性，它可以使用相同的编程模式连接到不同的数据提供者，而不管给定提供者的特定特性。

●较低的内存占用率。

●具有远程数据服务(RDS)功能，通过RDS可以在一次往返过程中将数据从服务器移动到客户端应用程序或Web页，并在客户端对数据进行处理后将更新结果返回服务器。

●同传统的数据对象层次（DAO和RDO）不同，ADO可以独立创建。可以只创建一个“Connection”对象，然后由多个独立的“Recordset”对象来使用它。

●ODBC本身是以SQLServer、Oracle等关系数据库作为访问对象，而OLEDB则不仅限于此，它还可以对电子邮件、文本文件、复合文件、数据表等各种各样的数据通过统一的接口进行存取。

OLEDBProviderforODBC是ADO的默认提供者，默认值是MSDASQL，如果省略连接字符串的Provider=参数，ADO将试图建立与该提供者的连接。

ADO的连接方式主要可分为OLEDBPrivder方式与OLEDBProviderforODBC方式。前者很明显是微软公司极力推荐的方式，对于ADO或RDS程序员来说，理想的环境是每个数据源都具有一个OLEDB接口，这比ODBC方式要快且所需资源更少。

ODBCProvider允许ADO连接到任何ODBC数据源。ODBC驱动程序对于当今使用的各种主要DBMS都有效，包括SQLServer、Access、FoxPro，以及诸如Oracle等非微软数据库产品。提供者将不受线程控制，允许使用Unicode，并将支持事务。

连接对象属性

ConnectionString是Connection对象的属性名称，为可读写String类型，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Provider、Driver、Server、Database、DSN、UID、PWD或者Provider、DataSource、User、Password、InitialCatalog等。

1．Provider

字符串表达式，指定OLEDB数据或服务提供者的名称，可以缺省。

一般有三种提供者：数据提供者、服务提供者和服务组件。数据提供者拥有自己的数据并将数据以表的格式显示给应用程序。服务提供者将服务封装，使ADO应用程序中的功能得以扩大。服务提供者也可以进一步定义为服务组件，服务组件必须连同其他服务提供者或组件一起工作。

２．Driver

字符串表达式，表示ODBC驱动程序的名称，并不是ODBC驱动程序动态链接库（DLL）的文件名。

有些驱动程序是微软公司的产品，在安装操作系统时就已经安装好了;而有些数据库产品的驱动程序由开发数据库产品的软件公司随数据库产品一起提供，需要在安装数据库时选择安装后，才可以使用。如：Sybase数据库驱动程序等。

3．Server(SRVR)

字符串表达式，数据库服务名称。

4．Database(DB)

字符串表达式，指定服务器上的数据库名称。即使DSN定义已经指定了数据库，也可以在DSN之外指定Database参数以便连接到不同的数据库。

5．DSN(DataSource)

字符串表达式，在此为空，无须指定连接的ODBC数据源的名称。

6．UID(UserID)

字符串表达式，为ODBC数据源指定用户标识(用户账号名)，指定用户必须有足够的权限。

7．PWD(Password)

字符串表达式，为ODBC数据源指定用户口令，必须有足够的权限。

8．PersistSecurityInfo

布尔类型，为True时，表明采用集成安全机制；若为False，则表明不采用集成安全机制。

无DSN（非DSN）连接

除了ADO所定义的参数外，提供者不支持任何特定连接参数，它将把任何非ADO连接参数传递给ODBC驱动程序管理器。下面介绍几种常见数据库的处理方法。

1.VisualFoxpro

[PROVIDER=MSDASQL.1];’或者为MSDASQL

DRIVER={DriverName};

SourceDB=Path;

SourceType=DBF

例如：

cnna.ConnectionString=“PROVIDER=MSDASQL;”

“DRIVER={MicrosoftVisualFoxproDriver};”

“SourceDB=D:\data\;”

“SourceType=DBF”

2．SQLServer

[PROVIDER=MSDASQL;]

DRIVER={DriverName};

SERVER=server;

DATABASE=database;

UID=user;

PWD=password

例如：

cnnb.ConnectionString=“PROVIDER=

MSDASQL;”

“DRIVER={SQLServer};”

“SERVER=servera;”

“DATABASE=pubs;”

“UID=sa;”

“PWD=yyuui”

3.Sybase数据库

[PROVIDER=MSDASQL;]

DRIVER={DriverName};

SRVR=server;’必须是SRVR，不能是SERVER

DB=database;’可以是DB，也可以是DATABASE

DSN=;’可以省略

UID=user;

PWD=passwod;

PERSISTSECURITYINFO=False

例如：

cnnc.ConnectionString=

“PROVIDER=MSDASQL;”

“DRIVER={SybaseSystem11};”

“SRVR=serveru;”

“DSN=;”

“DB=dataa;”

“UID=sa;”

“PWD=dqwe;”

“PERSISTSECURITYINFO=False”

4.Oracle数据库

[PROVIDER=MSDASQL;]

DRIVER={DriverName};

SERVER=server;

databasename=database;

databasefile=path;

DSN=;

UID=user;

PWD=password;

例如：

cnnd.ConnectionString=

“PROVIDER=MSDASQL;”

“DRIVER={MicrosoftODBCforOracle};”

“SERVER=Webserver;”

“DSN=;”

“databasename=dataall;”

“databasefile=d:\data\;”

“UID=dba;”

“PWD=killer”

应用实例

下面以Sybase11.9.2为例，编制一个简单的工作人员管理程序，介绍ADO的具体实现方法和步骤。数据库名称为Workerdb，只包括一个表（Worker），其结构如下：

字段名称　　　　宽度　　　　　　　注释

codenchar(4)代号

namechar(8)姓名

………………

首先安装ADO，在VB的“工程”/“引用”对话框中选择“ActiveXDataObject2.5Library”(ADODB)。其中“ADORecordset2.5Library”是一个客户端的版本(ADOR)，因为不需要Connection对象来建立与远程数据源的联系，所以ADOR对于客户端的数据访问来说已经足够了。下面是部分主要代码：

1.处理代码

’在工程菜单中引用MicrosoftActiveXDataObject2.5Library

’声明ADO连接对象为工程级全局变量

PubliccndbaseAsNewADODB.Connection

……

’自定义连接数据库函数

PublicFunctionConnectDbase(StrConnectAsString)AsBoolean

OnErrorGoToErrHandle

cndbase.ConnectionString=StrConnect

cndbase.Open

cndbase.CursorLocation=adUseClient

ConnectDbase=True

ExitFunction

ErrHandle:

ConnectDbase=False

EndFunction

PrivateSubForm_Load()

……

输入VarServer’服务名称

VarDbase’数据库名称

VarUser’用户名称

VarPassword’用户口令

……

’连接数据库,采取无DSN连接方法

StrConnect=“Provider=MSDASQL;”

“Driver={”&VarDriver&“};”

“SRVR=”&VarServer&“;”

“DB=”&VarDbase&“;”

“DSN=;”

“UID=”&VarUser&“;”

“PWD=”&VarPassword&“;”

“PersistSecurityInfo=False”’不采用集成安全机制

ifConnectDbase(StrConnect)Then

ExitSub

else

myexit=MsgBox(“数据库连接失败！请检查连接设置信息。”,vbOKOnly,“错误提示:”)

Unloadme

endif

ErrHand:

myexit=MsgBox(“错误程序:”&Err.Source&Chr(10)&“错误代码:”&Err.Number&Chr(10)&“错误信息:”&Err.Description,VbAbortRetryIgnore,“错误提示:”)

Ifmyexit=3Then

Err.Clear

UnloadMe

Else

Ifmyexit=4Then

Err.Clear

Resume

Else

Err.Clear

ResumeNext

EndIf

EndIf

EndSub

PrivateSubForm_Unload()

……

cndbase.Close

Setcndbase=Nothing

EndSub

2.建表

codbase.CommandText=“{callCREATABLE(?)}”

codbase.CommandType=adCmdText

codbase.Name=“CREATABLE”

’设定OutPut的参数

Setparam=codbase.CreateParameter(“flag”,adInteger,adParamOutput)

codbase.Parameters.Appendparam

Setcodbase.ActiveConnection=cndbase

codbase.Execute

Ifcodbase.Parameters(0)=0Then

myexit=MsgBox(“建表成功!”,vbOKOnly,“程序提示:”)

Else

myexit=MsgBox(“建表失败!”,vbOKOnly,“错误提示:”)

Endif

……

3.修改

rsdbase.Open“worker”，cndbase，adOpenDynamic，adLockPessimistic，adCmdTable

rsdbase.MoveFirst

cndbase.BeginTrans

’在记录集中进行循环更改

DoUntilrsdbase.EOF

’增加20元职务代码为1的人员的工资

Ifrsdbase!duty=1Then

rsdbase!salary=rsdbase!salary 20

EndIf

rsdbase.MoveNext

Loop

rsdbase.UpdateBatch

……

4.统计

StrSQL=“Selectavg(salary)，sum(salary)fromworker”

rsdbase.CursorLocation=adUseClient

rsdbase.OpenStrSQL，cndbase

salaryavg=rsdbase(0)’平均工资

salarysum=rsdbase(1)’工资总和

……

rsdbase.Close

5.存储过程creatable.sql

CREATEPROCEDUREdbo.creatable(@return_valueintegeroutput)

AS

Begin

CreatetableWorkerdb..Worker

(codenchar(4)notnull,

namechar(8)notnull,

yearnchar(4),

monthnchar(2),

daynchar(2),

salarynumeric(18,2),

dutynchar(1))

If@@error!=0

begin

select@return_value=1

　　End

　Else

Begin

select@return_value=0

End

return

End