目前，絕大多數(shù)的數(shù)據(jù)庫參考書都介紹了ODBC的手工配置方法，或者介紹了如何在代碼中進行ODBC配置。但這兩種方法都有一定的局限性: 不是當(dāng)程序最終完成并分發(fā)到用戶手中后，還需要為用戶配置ODBC，顯得既麻煩又不符合專業(yè)軟件的要求；就是得編寫復(fù)雜的更改操作系統(tǒng)注冊表文件的程序，十分煩瑣。本文從ADO（ActiveX Data Objects）入手，介紹無需配置數(shù)據(jù)源的幾種常用大型數(shù)據(jù)庫連接方法。

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

走近ADO

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

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

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

1．ADO組件

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

● ActiveX Data Objects Extensions for DDL and Security(ADOX) ：將ADO擴展為包括創(chuàng)建、修改和刪除的模式對象，如表格和過程，以及包括用于維護用戶和組以及管理對象權(quán)限的安全對象。

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

2．ADO優(yōu)點

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

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

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

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

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

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

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

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

連接對象屬性

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

1．Provider

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

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

２．Driver

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

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

3．Server(SRVR)

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

4．Database(DB)

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

5．DSN(Data Source)

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

6．UID(User ID)

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

7．PWD(Password)

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

8．Persist Security Info

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

無DSN（非DSN）連接

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

1. Visual Foxpro

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

DRIVER={Driver Name};

SourceDB=Path;

SourceType=DBF

例如：

cnna.ConnectionString = “PROVIDER=MSDASQL; ”

+ “DRIVER={Microsoft Visual Foxpro Driver};”

+ “SourceDB=D:\data\;”

+ “SourceType=DBF”

2．SQL Server

[PROVIDER=MSDASQL;]

DRIVER={Driver Name};

SERVER=server;

DATABASE=database;

UID=user;

PWD=password

例如：

cnnb.ConnectionString = “PROVIDER=

MSDASQL;”

+ “DRIVER={SQL Server};”

+ “SERVER=servera;”

+ “DATABASE=pubs;”

+ “UID=sa;”

+ “PWD=yyuui”

3. Sybase數(shù)據(jù)庫

[PROVIDER=MSDASQL;]

DRIVER={Driver Name};

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

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

DSN=; ’可以省略

UID=user;

PWD=passwod;

PERSIST SECURITY INFO=False

例如：

cnnc.ConnectionString=

“PROVIDER=MSDASQL;”

+ “DRIVER={Sybase System 11};”

+ “SRVR=serveru; ”

+ “DSN=;”

+ “DB=dataa;”

+ “UID=sa;”

+ “PWD=dqwe;”

+ “PERSIST SECURITY INFO=False”

4. Oracle數(shù)據(jù)庫

[PROVIDER=MSDASQL;]

DRIVER={Driver Name};

SERVER=server;

databasename=database;

databasefile=path;

DSN=;

UID=user;

PWD=password;

例如：

cnnd.ConnectionString =

“PROVIDER=MSDASQL; ”

+ “DRIVER={Microsoft ODBC for Oracle};”

+ “SERVER=Webserver;”

+ “DSN=;”

+ “databasename=dataall;”

+ “databasefile=d:\data\;”

+ “UID=dba;”

+ “PWD=killer”

應(yīng)用實例

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

字段名稱　　　　寬度　　　　　　　注釋

code nchar(4) 代號

name char(8) 姓名

…… …… ……

首先安裝ADO，在VB的“工程”/“引用”對話框中選擇“ActiveX Data Object 2. 5 Library”(ADODB)。其中“ADO Recordset 2. 5 Library”是一個客戶端的版本(ADOR)，因為不需要Connection對象來建立與遠程數(shù)據(jù)源的聯(lián)系，所以ADOR對于客戶端的數(shù)據(jù)訪問來說已經(jīng)足夠了。 下面是部分主要代碼：

1. 處理代碼

’在工程菜單中引用Microsoft ActiveX Data Object 2. 5 Library

’聲明ADO連接對象為工程級全局變量

Public cndbase As New ADODB.Connection

……

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

Public Function ConnectDbase(StrConnect As String) As Boolean

On Error GoTo ErrHandle

cndbase.ConnectionString = StrConnect

cndbase.Open

cndbase.CursorLocation = adUseClient

ConnectDbase = True

Exit Function

ErrHandle:

ConnectDbase = False

End Function

Private Sub Form_Load()

……

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

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

VarUser ’用戶名稱

VarPassword ’用戶口令

……

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

StrConnect = “Provider=MSDASQL;”

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

+“SRVR=” & VarServer & “;”

+“DB=” & VarDbase & “;”

+“DSN=;”

+“UID=” & VarUser & “;”

+“PWD=” & VarPassword & “;”

+ “Persist Security Info=False” ’不采用集成安全機制

if ConnectDbase(StrConnect) Then

Exit Sub

else

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

Unload me

endif

ErrHand:

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

If myexit = 3 Then

Err.Clear

Unload Me

Else

If myexit = 4 Then

Err.Clear

Resume

Else

Err.Clear

Resume Next

End If

End If

End Sub

Private Sub Form_Unload()

……

cndbase.Close

Set cndbase = Nothing

End Sub

2. 建表

codbase.CommandText=“{call CREATABLE (?) }”

codbase.CommandType = adCmdText

codbase.Name = “CREATABLE”

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

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

codbase. Parameters. Append param

Set codbase. ActiveConnection = cndbase

codbase. Execute

If codbase. Parameters(0) = 0 Then

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

Else

myexit = MsgBox(“建表失敗!”, vbOKOnly, “錯誤提示:”)

Endif

……

3. 修改

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

rsdbase. MoveFirst

cndbase. BeginTrans

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

Do Until rsdbase.EOF

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

If rsdbase! duty = 1 Then

rsdbase! salary = rsdbase! salary + 20

End If

rsdbase. MoveNext

Loop

rsdbase.UpdateBatch

……

4. 統(tǒng)計

StrSQL = “Select avg(salary)， sum(salary) from worker”

rsdbase. CursorLocation = adUseClient

rsdbase. Open StrSQL，cndbase

salaryavg = rsdbase(0) ’平均工資

salarysum = rsdbase(1) ’工資總和

……

rsdbase .Close

5. 存儲過程creatable. sql

CREATE PROCEDURE dbo.creatable(@return_value integer output)

AS

Begin

Create table Workerdb..Worker

( code nchar(4) not null ,

name char(8) not null ,

year nchar(4) ,

month nchar(2) ,

day nchar(2) ,

salary numeric(18,2) ,

duty nchar(1) )

If @@error != 0

begin

select @return_value = 1

　　End

　Else

Begin

select @return_value = 0

End

return

End