| 以文本方式查看主題 - 曙海教育集團論壇 (http://m.adgdgn.cn/bbs/index.asp) -- VB語言 (http://m.adgdgn.cn/bbs/list.asp?boardid=77) ---- 語言創新 VB 6.0與大型數據庫的無“數據源”連接 (http://m.adgdgn.cn/bbs/dispbbs.asp?boardid=77&id=2599) |
| -- 作者：wangxinxin -- 發布時間：2010-12-14 13:59:46 -- 語言創新 VB 6.0與大型數據庫的無“數據源”連接 目前，絕大多數的數據庫參考書都介紹了ODBC的手工配置方法，或者介紹了如何在代碼中進行ODBC配置。但這兩種方法都有一定的局限性: 不是當程序最終完成并分發到用戶手中后，還需要為用戶配置ODBC，顯得既麻煩又不符合專業軟件的要求；就是得編寫復雜的更改操作系統注冊表文件的程序，十分煩瑣。本文從ADO（ActiveX Data Objects）入手，介紹無需配置數據源的幾種常用大型數據庫連接方法。 本文所述的無“數據源”連接，意義不是不需要數據源，否則連接無從談起，而是不需要配置注冊數據源所進行的連接。ODBC（Open DataBase Connectivity，開放式數據庫連接）是用于連接不同數據源的標準編程語言接口。許多文章中介紹，在實現ODBC時，必須首先配置ODBC環境，進行數據源的注冊，然后才能在對數據庫編程時，對數據源進行連接、訪問和操作，并提供了用PB或VB等語言工具實現數據源注冊的具體方法。這些方法不但復雜煩瑣，而且由于參數內容不一，配置時令人感覺無所適從，不宜把握。 走近ADO ADO是微軟提供的數據庫訪問技術。它被設計用來同新的數據訪問層OLE DB Provider一起協同工作，以提供通用數據訪問（Universal Data Access）能力。OLE DB是一個底層的數據訪問接口，用它可以訪問各種數據源，包括傳統的關系型數據庫、電子郵件系統及自定義的商業對象等。 ADO提供了一個熟悉的、高層的對OLE DB的Automation封裝接口。對那些熟悉RDO的程序員來說，可以把OLE DB看作ODBC驅動程序，如同RDO對象是ODBC驅動程序接口一樣，ADO對象是OLE DB的接口。同樣，像不同的數據庫系統需要它們自己的ODBC驅動程序一樣，不同的數據源也要求它們自己的OLE DB提供者（OLE DB provider）。目前，雖然OLE DB提供者比較少，但微軟正積極推廣該技術，并計劃用OLE DB取代ODBC。 微軟公司已宣布今后不會對VB SQL/DBLib進行升級，而且ODBC API函數一級的編程方式也不為人們所喜愛，所以，RDO今后將被以ActiveX技術為基礎的ADO所替代。ADO是基于OLE DB之上的技術，它通過內部的屬性和方法提供統一的數據庫訪問接口。 1．ADO組件 ● Microsoft ActiveX Data Objects (ADO) ：使客戶端應用程序能通過OLE DB提供者訪問和操作數據庫服務器中的數據。 ● ActiveX Data Objects Extensions for DDL and Security(ADOX) ：將ADO擴展為包括創建、修改和刪除的模式對象，如表格和過程，以及包括用于維護用戶和組以及管理對象權限的安全對象。 ● ActiveX Data Objects (Multidimensional) (ADO MD): 將ADO擴展為包括指定到多維數據的對象，并允許瀏覽多維模式、查詢立方和檢索結果。 2．ADO優點 ● ADO具有高度的靈活性，它可以使用相同的編程模式連接到不同的數據提供者，而不管給定提供者的特定特性。 ● 較低的內存占用率。 ● 具有遠程數據服務(RDS)功能，通過RDS可以在一次往返過程中將數據從服務器移動到客戶端應用程序或Web頁，并在客戶端對數據進行處理后將更新結果返回服務器。 ● 同傳統的數據對象層次（DAO和RDO）不同，ADO可以獨立創建。可以只創建一個“Connection”對象，然后由多個獨立的“Recordset”對象來使用它。 ● ODBC本身是以SQL Server、Oracle等關系數據庫作為訪問對象，而OLE DB則不僅限于此，它還可以對電子郵件、文本文件、復合文件、數據表等各種各樣的數據通過統一的接口進行存取。 OLE DB Provider for ODBC是ADO的默認提供者，默認值是MSDASQL，如果省略連接字符串的Provider=參數，ADO將試圖建立與該提供者的連接。 ADO的連接方式主要可分為OLE DB Privder方式與OLE DB Provider for ODBC方式。前者很明顯是微軟公司極力推薦的方式，對于ADO或RDS程序員來說，理想的環境是每個數據源都具有一個OLE DB接口，這比ODBC方式要快且所需資源更少。 ODBC Provider允許ADO連接到任何ODBC數據源。ODBC驅動程序對于當今使用的各種主要DBMS都有效，包括SQL Server、Access、FoxPro，以及諸如Oracle等非微軟數據庫產品。提供者將不受線程控制，允許使用Unicode，并將支持事務。 連接對象屬性 ConnectionString是Connection對象的屬性名稱，為可讀寫String類型，提供數據提供者或服務提供者打開到數據源的連接所需要的特定信息，包括Provider、Driver、Server、Database、DSN、UID、PWD或者Provider、Data Source、User、Password、Initial Catalog等。 1．Provider 字符串表達式，指定OLE DB數據或服務提供者的名稱，可以缺省。 一般有三種提供者：數據提供者、服務提供者和服務組件。數據提供者擁有自己的數據并將數據以表的格式顯示給應用程序。服務提供者將服務封裝，使ADO應用程序中的功能得以擴大。服務提供者也可以進一步定義為服務組件，服務組件必須連同其他服務提供者或組件一起工作。 ２．Driver 字符串表達式，表示ODBC驅動程序的名稱，并不是ODBC驅動程序動態鏈接庫（DLL）的文件名。 有些驅動程序是微軟公司的產品，在安裝操作系統時就已經安裝好了; 而有些數據庫產品的驅動程序由開發數據庫產品的軟件公司隨數據庫產品一起提供，需要在安裝數據庫時選擇安裝后，才可以使用。如：Sybase數據庫驅動程序等。 3．Server(SRVR) 字符串表達式，數據庫服務名稱。 4．Database(DB) 字符串表達式，指定服務器上的數據庫名稱。即使DSN定義已經指定了數據庫，也可以在DSN之外指定Database參數以便連接到不同的數據庫。 5．DSN(Data Source) 字符串表達式，在此為空，無須指定連接的ODBC數據源的名稱。 6．UID(User ID) 字符串表達式，為ODBC數據源指定用戶標識(用戶賬號名)，指定用戶必須有足夠的權限。 7．PWD(Password) 字符串表達式，為ODBC數據源指定用戶口令，必須有足夠的權限。 8．Persist Security Info 布爾類型，為True時，表明采用集成安全機制；若為False，則表明不采用集成安全機制。 無DSN（非DSN）連接 除了ADO所定義的參數外，提供者不支持任何特定連接參數，它將把任何非ADO連接參數傳遞給ODBC驅動程序管理器。下面介紹幾種常見數據庫的處理方法。 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數據庫 [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數據庫 [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” 應用實例 下面以Sybase 11.9.2為例，編制一個簡單的工作人員管理程序，介紹ADO的具體實現方法和步驟。數據庫名稱為Workerdb，只包括一個表（Worker），其結構如下： 字段名稱 寬度 注釋 code nchar(4) 代號 name char(8) 姓名 …… …… …… 首先安裝ADO，在VB的“工程”/“引用”對話框中選擇“ActiveX Data Object 2. 5 Library”(ADODB)。其中“ADO Recordset 2. 5 Library”是一個客戶端的版本(ADOR)，因為不需要Connection對象來建立與遠程數據源的聯系，所以ADOR對于客戶端的數據訪問來說已經足夠了。 下面是部分主要代碼： 1. 處理代碼 ’在工程菜單中引用Microsoft ActiveX Data Object 2. 5 Library ’聲明ADO連接對象為工程級全局變量 Public cndbase As New ADODB.Connection …… ’自定義連接數據庫函數 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 ’服務名稱 VarDbase ’數據庫名稱 VarUser ’用戶名稱 VarPassword ’用戶口令 …… ’連接數據庫,采取無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(“數據庫連接失敗！請檢查連接設置信息。”, 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” ’設定OutPut的參數 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 ’在記錄集中進行循環更改 Do Until rsdbase.EOF ’增加20元職務代碼為1的人員的工資 If rsdbase! duty = 1 Then rsdbase! salary = rsdbase! salary + 20 End If rsdbase. MoveNext Loop rsdbase.UpdateBatch …… 4. 統計 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 |