| 以文本方式查看主題 - 曙海教育集團(tuán)論壇 (http://www.022-oo.cn/bbs/index.asp) -- VB語(yǔ)言 (http://www.022-oo.cn/bbs/list.asp?boardid=77) ---- 語(yǔ)言創(chuàng)新 VB 6.0與大型數(shù)據(jù)庫(kù)的無(wú)“數(shù)據(jù)源”連接 (http://www.022-oo.cn/bbs/dispbbs.asp?boardid=77&id=2599) |
| -- 作者：wangxinxin -- 發(fā)布時(shí)間：2010-12-14 13:59:46 -- 語(yǔ)言創(chuàng)新 VB 6.0與大型數(shù)據(jù)庫(kù)的無(wú)“數(shù)據(jù)源”連接 目前，絕大多數(shù)的數(shù)據(jù)庫(kù)參考書(shū)都介紹了ODBC的手工配置方法，或者介紹了如何在代碼中進(jìn)行ODBC配置。但這兩種方法都有一定的局限性: 不是當(dāng)程序最終完成并分發(fā)到用戶手中后，還需要為用戶配置ODBC，顯得既麻煩又不符合專業(yè)軟件的要求；就是得編寫(xiě)復(fù)雜的更改操作系統(tǒng)注冊(cè)表文件的程序，十分煩瑣。本文從ADO（ActiveX Data Objects）入手，介紹無(wú)需配置數(shù)據(jù)源的幾種常用大型數(shù)據(jù)庫(kù)連接方法。 本文所述的無(wú)“數(shù)據(jù)源”連接，意義不是不需要數(shù)據(jù)源，否則連接無(wú)從談起，而是不需要配置注冊(cè)數(shù)據(jù)源所進(jìn)行的連接。ODBC（Open DataBase Connectivity，開(kāi)放式數(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)行連接、訪問(wèn)和操作，并提供了用PB或VB等語(yǔ)言工具實(shí)現(xiàn)數(shù)據(jù)源注冊(cè)的具體方法。這些方法不但復(fù)雜煩瑣，而且由于參數(shù)內(nèi)容不一，配置時(shí)令人感覺(jué)無(wú)所適從，不宜把握。 走近ADO ADO是微軟提供的數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)。它被設(shè)計(jì)用來(lái)同新的數(shù)據(jù)訪問(wèn)層OLE DB Provider一起協(xié)同工作，以提供通用數(shù)據(jù)訪問(wèn)（Universal Data Access）能力。OLE DB是一個(gè)底層的數(shù)據(jù)訪問(wèn)接口，用它可以訪問(wèn)各種數(shù)據(jù)源，包括傳統(tǒng)的關(guān)系型數(shù)據(jù)庫(kù)、電子郵件系統(tǒng)及自定義的商業(yè)對(duì)象等。 ADO提供了一個(gè)熟悉的、高層的對(duì)OLE DB的Automation封裝接口。對(duì)那些熟悉RDO的程序員來(lái)說(shuō)，可以把OLE DB看作ODBC驅(qū)動(dòng)程序，如同RDO對(duì)象是ODBC驅(qū)動(dòng)程序接口一樣，ADO對(duì)象是OLE DB的接口。同樣，像不同的數(shù)據(jù)庫(kù)系統(tǒng)需要它們自己的ODBC驅(qū)動(dòng)程序一樣，不同的數(shù)據(jù)源也要求它們自己的OLE DB提供者（OLE DB provider）。目前，雖然OLE DB提供者比較少，但微軟正積極推廣該技術(shù)，并計(jì)劃用OLE DB取代ODBC。 微軟公司已宣布今后不會(huì)對(duì)VB SQL/DBLib進(jìn)行升級(jí)，而且ODBC API函數(shù)一級(jí)的編程方式也不為人們所喜愛(ài)，所以，RDO今后將被以ActiveX技術(shù)為基礎(chǔ)的ADO所替代。ADO是基于OLE DB之上的技術(shù)，它通過(guò)內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)庫(kù)訪問(wèn)接口。 1．ADO組件 ● Microsoft ActiveX Data Objects (ADO) ：使客戶端應(yīng)用程序能通過(guò)OLE DB提供者訪問(wèn)和操作數(shù)據(jù)庫(kù)服務(wù)器中的數(shù)據(jù)。 ● ActiveX Data Objects Extensions for DDL and Security(ADOX) ：將ADO擴(kuò)展為包括創(chuàng)建、修改和刪除的模式對(duì)象，如表格和過(guò)程，以及包括用于維護(hù)用戶和組以及管理對(duì)象權(quán)限的安全對(duì)象。 ● ActiveX Data Objects (Multidimensional) (ADO MD): 將ADO擴(kuò)展為包括指定到多維數(shù)據(jù)的對(duì)象，并允許瀏覽多維模式、查詢立方和檢索結(jié)果。 2．ADO優(yōu)點(diǎn) ● ADO具有高度的靈活性，它可以使用相同的編程模式連接到不同的數(shù)據(jù)提供者，而不管給定提供者的特定特性。 ● 較低的內(nèi)存占用率。 ● 具有遠(yuǎn)程數(shù)據(jù)服務(wù)(RDS)功能，通過(guò)RDS可以在一次往返過(guò)程中將數(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本身是以SQL Server、Oracle等關(guān)系數(shù)據(jù)庫(kù)作為訪問(wèn)對(duì)象，而OLE DB則不僅限于此，它還可以對(duì)電子郵件、文本文件、復(fù)合文件、數(shù)據(jù)表等各種各樣的數(shù)據(jù)通過(guò)統(tǒng)一的接口進(jìn)行存取。 OLE DB Provider for ODBC是ADO的默認(rèn)提供者，默認(rèn)值是MSDASQL，如果省略連接字符串的Provider=參數(shù)，ADO將試圖建立與該提供者的連接。 ADO的連接方式主要可分為OLE DB Privder方式與OLE DB Provider for ODBC方式。前者很明顯是微軟公司極力推薦的方式，對(duì)于ADO或RDS程序員來(lái)說(shuō)，理想的環(huán)境是每個(gè)數(shù)據(jù)源都具有一個(gè)OLE DB接口，這比ODBC方式要快且所需資源更少。 ODBC Provider允許ADO連接到任何ODBC數(shù)據(jù)源。ODBC驅(qū)動(dòng)程序?qū)τ诋?dāng)今使用的各種主要DBMS都有效，包括SQL Server、Access、FoxPro，以及諸如Oracle等非微軟數(shù)據(jù)庫(kù)產(chǎn)品。提供者將不受線程控制，允許使用Unicode，并將支持事務(wù)。 連接對(duì)象屬性 ConnectionString是Connection對(duì)象的屬性名稱，為可讀寫(xiě)String類型，提供數(shù)據(jù)提供者或服務(wù)提供者打開(kāi)到數(shù)據(jù)源的連接所需要的特定信息，包括Provider、Driver、Server、Database、DSN、UID、PWD或者Provider、Data Source、User、Password、Initial Catalog等。 1．Provider 字符串表達(dá)式，指定OLE DB數(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)程序由開(kāi)發(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(Data Source) 字符串表達(dá)式，在此為空，無(wú)須指定連接的ODBC數(shù)據(jù)源的名稱。 6．UID(User ID) 字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶標(biāo)識(shí)(用戶賬號(hào)名)，指定用戶必須有足夠的權(quán)限。 7．PWD(Password) 字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶口令，必須有足夠的權(quán)限。 8．Persist Security Info 布爾類型，為T(mén)rue時(shí)，表明采用集成安全機(jī)制；若為False，則表明不采用集成安全機(jī)制。 無(wú)DSN（非DSN）連接 除了ADO所定義的參數(shù)外，提供者不支持任何特定連接參數(shù)，它將把任何非ADO連接參數(shù)傳遞給ODBC驅(qū)動(dòng)程序管理器。下面介紹幾種常見(jiàn)數(shù)據(jù)庫(kù)的處理方法。 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ù)庫(kù) [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ù)庫(kù) [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)用實(shí)例 下面以Sybase 11.9.2為例，編制一個(gè)簡(jiǎn)單的工作人員管理程序，介紹ADO的具體實(shí)現(xiàn)方法和步驟。數(shù)據(jù)庫(kù)名稱為Workerdb，只包括一個(gè)表（Worker），其結(jié)構(gòu)如下： 字段名稱 寬度 注釋 code nchar(4) 代號(hào) name char(8) 姓名 …… …… …… 首先安裝ADO，在VB的“工程”/“引用”對(duì)話框中選擇“ActiveX Data Object 2. 5 Library”(ADODB)。其中“ADO Recordset 2. 5 Library”是一個(gè)客戶端的版本(ADOR)，因?yàn)椴恍枰狢onnection對(duì)象來(lái)建立與遠(yuǎn)程數(shù)據(jù)源的聯(lián)系，所以ADOR對(duì)于客戶端的數(shù)據(jù)訪問(wèn)來(lái)說(shuō)已經(jīng)足夠了。 下面是部分主要代碼： 1. 處理代碼 ’在工程菜單中引用Microsoft ActiveX Data Object 2. 5 Library ’聲明ADO連接對(duì)象為工程級(jí)全局變量 Public cndbase As New ADODB.Connection …… ’自定義連接數(shù)據(jù)庫(kù)函數(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ù)庫(kù)名稱 VarUser ’用戶名稱 VarPassword ’用戶口令 …… ’連接數(shù)據(jù)庫(kù),采取無(wú)DSN連接方法 StrConnect = “Provider=MSDASQL;” +“Driver={” & VarDriver &“};” +“SRVR=” & VarServer & “;” +“DB=” & VarDbase & “;” +“DSN=;” +“UID=” & VarUser & “;” +“PWD=” & VarPassword & “;” + “Persist Security Info=False” ’不采用集成安全機(jī)制 if ConnectDbase(StrConnect) Then Exit Sub else myexit = MsgBox(“數(shù)據(jù)庫(kù)連接失敗！請(qǐng)檢查連接設(shè)置信息。”, vbOKOnly, “錯(cuò)誤提示:”) Unload me endif ErrHand: myexit = MsgBox(“錯(cuò)誤程序:” & Err. Source & Chr(10) & “錯(cuò)誤代碼:” & Err. Number & Chr(10) & “錯(cuò)誤信息:” & Err.Description, VbAbortRetryIgnore, “錯(cuò)誤提示:”) 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, “錯(cuò)誤提示:”) Endif …… 3. 修改 rsdbase. Open“worker”，cndbase，adOpenDynamic，adLockPessimistic，adCmdTable rsdbase. MoveFirst cndbase. BeginTrans ’在記錄集中進(jìn)行循環(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)計(jì) StrSQL = “Select avg(salary)， sum(salary) from worker” rsdbase. CursorLocation = adUseClient rsdbase. Open StrSQL，cndbase salaryavg = rsdbase(0) ’平均工資 salarysum = rsdbase(1) ’工資總和 …… rsdbase .Close 5. 存儲(chǔ)過(guò)程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 |