本文所述的無(wú)“數(shù)據(jù)源”連接，意義不是不需要數(shù)據(jù)源，否則連接無(wú)從談起，而是不需要配置注冊(cè)數(shù)據(jù)源所進(jìn)行的連接。ODBC（OpenDataBaseConnectivity，開放式數(shù)據(jù)庫(kù)連接）是用于連接不同數(shù)據(jù)源的標(biāo)準(zhǔn)編程語(yǔ)言接口。許多文章中介紹，在實(shí)現(xiàn)ODBC時(shí)，必須首先配置ODBC環(huán)境，進(jìn)行數(shù)據(jù)源的注冊(cè)，然后才能在對(duì)數(shù)據(jù)庫(kù)編程時(shí)，對(duì)數(shù)據(jù)源進(jìn)行連接、訪問和操作，并提供了用PB或VB等語(yǔ)言工具實(shí)現(xiàn)數(shù)據(jù)源注冊(cè)的具體方法。這些方法不但復(fù)雜煩瑣，而且由于參數(shù)內(nèi)容不一，配置時(shí)令人感覺無(wú)所適從，不宜把握。

走近ADO

ADO是微軟提供的數(shù)據(jù)庫(kù)訪問技術(shù)。它被設(shè)計(jì)用來(lái)同新的數(shù)據(jù)訪問層OLEDBPRovider一起協(xié)同工作，以提供通用數(shù)據(jù)訪問（UniversalDataaccess）能力。OLEDB是一個(gè)底層的數(shù)據(jù)訪問接口，用它可以訪問各種數(shù)據(jù)源，包括傳統(tǒng)的關(guān)系型數(shù)據(jù)庫(kù)、電子郵件系統(tǒng)及自定義的商業(yè)對(duì)象等。

ADO提供了一個(gè)熟悉的、高層的對(duì)OLEDB的Automation封裝接口。對(duì)那些熟悉RDO的程序員來(lái)說(shuō)，可以把OLEDB看作ODBC驅(qū)動(dòng)程序，如同RDO對(duì)象是ODBC驅(qū)動(dòng)程序接口一樣，ADO對(duì)象是OLEDB的接口。同樣，像不同的數(shù)據(jù)庫(kù)系統(tǒng)需要它們自己的ODBC驅(qū)動(dòng)程序一樣，不同的數(shù)據(jù)源也要求它們自己的OLEDB提供者（OLEDBprovider）。目前，雖然OLEDB提供者比較少，但微軟正積極推廣該技術(shù)，并計(jì)劃用OLEDB取代ODBC。

微軟公司已宣布今后不會(huì)對(duì)VBSQL/DBLib進(jìn)行升級(jí)，而且ODBCAPI函數(shù)一級(jí)的編程方式也不為人們所喜愛，所以，RDO今后將被以ActiveX技術(shù)為基礎(chǔ)的ADO所替代。ADO是基于OLEDB之上的技術(shù)，它通過內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)庫(kù)訪問接口。

1．ADO組件

●MicrosoftActiveXDataObjects(ADO)：使客戶端應(yīng)用程序能通過OLEDB提供者訪問和操作數(shù)據(jù)庫(kù)服務(wù)器中的數(shù)據(jù)。

●ActiveXDataObjectsExtensionsforDDLandSecurity(ADOX)：將ADO擴(kuò)展為包括創(chuàng)建、修改和刪除的模式對(duì)象，如表格和過程，以及包括用于維護(hù)用戶和組以及管理對(duì)象權(quán)限的安全對(duì)象。

●ActiveXDataObjects(Multidimensional)(ADOMD):將ADO擴(kuò)展為包括指定到多維數(shù)據(jù)的對(duì)象，并允許瀏覽多維模式、查詢立方和檢索結(jié)果。

2．ADO優(yōu)點(diǎn)

●ADO具有高度的靈活性，它可以使用相同的編程模式連接到不同的數(shù)據(jù)提供者，而不管給定提供者的特定特性。

●較低的內(nèi)存占用率。

●具有遠(yuǎn)程數(shù)據(jù)服務(wù)(RDS)功能，通過RDS可以在一次往返過程中將數(shù)據(jù)從服務(wù)器移動(dòng)到客戶端應(yīng)用程序或Web頁(yè)，并在客戶端對(duì)數(shù)據(jù)進(jìn)行處理后將更新結(jié)果返回服務(wù)器。

●同傳統(tǒng)的數(shù)據(jù)對(duì)象層次（DAO和RDO）不同，ADO可以獨(dú)立創(chuàng)建。可以只創(chuàng)建一個(gè)“Connection”對(duì)象，然后由多個(gè)獨(dú)立的“Recordset”對(duì)象來(lái)使用它。

●ODBC本身是以SQLServer、Oracle等關(guān)系數(shù)據(jù)庫(kù)作為訪問對(duì)象，而OLEDB則不僅限于此，它還可以對(duì)電子郵件、文本文件、復(fù)合文件、數(shù)據(jù)表等各種各樣的數(shù)據(jù)通過統(tǒng)一的接口進(jìn)行存取。

OLEDBProviderforODBC是ADO的默認(rèn)提供者，默認(rèn)值是MSDASQL，如果省略連接字符串的Provider=參數(shù)，ADO將試圖建立與該提供者的連接。

ADO的連接方式主要可分為OLEDBPrivder方式與OLEDBProviderforODBC方式。前者很明顯是微軟公司極力推薦的方式，對(duì)于ADO或RDS程序員來(lái)說(shuō)，理想的環(huán)境是每個(gè)數(shù)據(jù)源都具有一個(gè)OLEDB接口，這比ODBC方式要快且所需資源更少。

ODBCProvider允許ADO連接到任何ODBC數(shù)據(jù)源。ODBC驅(qū)動(dòng)程序?qū)τ诋?dāng)今使用的各種主要DBMS都有效，包括SQLServer、Access、FoxPro，以及諸如Oracle等非微軟數(shù)據(jù)庫(kù)產(chǎn)品。提供者將不受線程控制，允許使用Unicode，并將支持事務(wù)。

連接對(duì)象屬性

ConnectionString是Connection對(duì)象的屬性名稱，為可讀寫String類型，提供數(shù)據(jù)提供者或服務(wù)提供者打開到數(shù)據(jù)源的連接所需要的特定信息，包括Provider、Driver、Server、Database、DSN、UID、PWD或者Provider、DataSource、User、PassWord、InitialCatalog等。

1．Provider

字符串表達(dá)式，指定OLEDB數(shù)據(jù)或服務(wù)提供者的名稱，可以缺省。

一般有三種提供者：數(shù)據(jù)提供者、服務(wù)提供者和服務(wù)組件。數(shù)據(jù)提供者擁有自己的數(shù)據(jù)并將數(shù)據(jù)以表的格式顯示給應(yīng)用程序。服務(wù)提供者將服務(wù)封裝，使ADO應(yīng)用程序中的功能得以擴(kuò)大。服務(wù)提供者也可以進(jìn)一步定義為服務(wù)組件，服務(wù)組件必須連同其他服務(wù)提供者或組件一起工作。

２．Driver

字符串表達(dá)式，表示ODBC驅(qū)動(dòng)程序的名稱，并不是ODBC驅(qū)動(dòng)程序動(dòng)態(tài)鏈接庫(kù)（DLL）的文件名。

有些驅(qū)動(dòng)程序是微軟公司的產(chǎn)品，在安裝操作系統(tǒng)時(shí)就已經(jīng)安裝好了;而有些數(shù)據(jù)庫(kù)產(chǎn)品的驅(qū)動(dòng)程序由開發(fā)數(shù)據(jù)庫(kù)產(chǎn)品的軟件公司隨數(shù)據(jù)庫(kù)產(chǎn)品一起提供，需要在安裝數(shù)據(jù)庫(kù)時(shí)選擇安裝后，才可以使用。如：Sybase數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序等。

3．Server(SRVR)

字符串表達(dá)式，數(shù)據(jù)庫(kù)服務(wù)名稱。

4．Database(DB)

字符串表達(dá)式，指定服務(wù)器上的數(shù)據(jù)庫(kù)名稱。即使DSN定義已經(jīng)指定了數(shù)據(jù)庫(kù)，也可以在DSN之外指定Database參數(shù)以便連接到不同的數(shù)據(jù)庫(kù)。

5．DSN(DataSource)

字符串表達(dá)式，在此為空，無(wú)須指定連接的ODBC數(shù)據(jù)源的名稱。

6．UID(UserID)

字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶標(biāo)識(shí)(用戶賬號(hào)名)，指定用戶必須有足夠的權(quán)限。

7．PWD(Password)

字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶口令，必須有足夠的權(quán)限。

8．PersistSecurityInfo

布爾類型，為True時(shí)，表明采用集成安全機(jī)制；若為False，則表明不采用集成安全機(jī)制。

無(wú)DSN（非DSN）連接

除了ADO所定義的參數(shù)外，提供者不支持任何特定連接參數(shù)，它將把任何非ADO連接參數(shù)傳遞給ODBC驅(qū)動(dòng)程序管理器。下面介紹幾種常見數(shù)據(jù)庫(kù)的處理方法。

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數(shù)據(jù)庫(kù)

[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數(shù)據(jù)庫(kù)

[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”

應(yīng)用實(shí)例

下面以Sybase11.9.2為例，編制一個(gè)簡(jiǎn)單的工作人員管理程序，介紹ADO的具體實(shí)現(xiàn)方法和步驟。數(shù)據(jù)庫(kù)名稱為Workerdb，只包括一個(gè)表（Worker），其結(jié)構(gòu)如下：

字段名稱　　　　寬度　　　　　　　注釋

codenchar(4)代號(hào)

namechar(8)姓名

………………

首先安裝ADO，在VB的“工程”/“引用”對(duì)話框中選擇“ActiveXDataObject2.5Library”(ADODB)。其中“ADORecordset2.5Library”是一個(gè)客戶端的版本(ADOR)，因?yàn)椴恍枰狢onnection對(duì)象來(lái)建立與遠(yuǎn)程數(shù)據(jù)源的聯(lián)系，所以ADOR對(duì)于客戶端的數(shù)據(jù)訪問來(lái)說(shuō)已經(jīng)足夠了。下面是部分主要代碼：

1.處理代碼

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

’聲明ADO連接對(duì)象為工程級(jí)全局變量

PubliccndbaseAsNewADODB.Connection

……

’自定義連接數(shù)據(jù)庫(kù)函數(shù)

PublicFunctionConnectDbase(StrConnectAsString)AsBoolean

OnErrorGoToErrHandle

cndbase.ConnectionString=StrConnect

cndbase.Open

cndbase.CursorLocation=adUseClient

ConnectDbase=True

ExitFunction

ErrHandle:

ConnectDbase=False

EndFunction

PrivateSubForm_Load()

……

輸入VarServer’服務(wù)名稱

VarDbase’數(shù)據(jù)庫(kù)名稱

VarUser’用戶名稱

VarPassword’用戶口令

……

’連接數(shù)據(jù)庫(kù),采取無(wú)DSN連接方法

StrConnect=“Provider=MSDASQL;”

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

“SRVR=”&VarServer&“;”

“DB=”&VarDbase&“;”

“DSN=;”

“UID=”&VarUser&“;”

“PWD=”&VarPassword&“;”

“PersistSecurityInfo=False”’不采用集成安全機(jī)制

ifConnectDbase(StrConnect)Then

ExitSub

else

myexit=MsgBox(“數(shù)據(jù)庫(kù)連接失敗！請(qǐng)檢查連接設(shè)置信息。”,vbOKOnly,“錯(cuò)誤提示:”)

Unloadme

endif

ErrHand:

myexit=MsgBox(“錯(cuò)誤程序:”&Err.Source&Chr(10)&“錯(cuò)誤代碼:”&Err.Number&Chr(10)&“錯(cuò)誤信息:”&Err.Description,VbAbortRetryIgnore,“錯(cuò)誤提示:”)

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”

’設(shè)定OutPut的參數(shù)

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,“錯(cuò)誤提示:”)

Endif

……

3.修改

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

rsdbase.MoveFirst

cndbase.BeginTrans

’在記錄集中進(jìn)行循環(huán)更改

DoUntilrsdbase.EOF

’增加20元職務(wù)代碼為1的人員的工資

Ifrsdbase!duty=1Then

rsdbase!salary=rsdbase!salary 20

EndIf

rsdbase.MoveNext

Loop

rsdbase.UpdateBatch

……

4.統(tǒng)計(jì)

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

rsdbase.CursorLocation=adUseClient

rsdbase.OpenStrSQL，cndbase

salaryavg=rsdbase(0)’平均工資

salarysum=rsdbase(1)’工資總和

……

rsdbase.Close

5.存儲(chǔ)過程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