本文所述的無“數據源”連接，意義不是不需要數據源，否則連接無從談起，而是不需要配置注冊數據源所進行的連接。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
->
