【文章內(nèi)容簡介】 )）。它們的特性是：當用 EXCEL 打含有啟動宏的工簿時，就會自動運行啟動宏，同理，當關(guān)閉含有關(guān)閉宏的工作簿時就會自動運行關(guān)閉宏。但是通過 VB 的自動化功能來調(diào)用 EXCEL 工作表時，啟動宏和關(guān)閉宏不會自動運行，而需要在 VB 中通過命令 (xlAutoOpen) 和 (xlAutoClose) 來運行啟動宏和關(guān)閉宏。 三、 VB 與 EXCEL 的相互勾通： 充分利用 EXCEL 的啟動宏和關(guān)閉宏，可以實現(xiàn) VB 與 EXCEL 的相互勾通，其方法如下： 在 EXCEL 的啟動宏中加入一段程序，其功能是在磁盤中寫入一個標志文件，同時在關(guān) 閉宏中加入一段刪除此標志文件的程序。 VB 程序在執(zhí)行時通過判斷此標志文件存在與否來判斷 EXCEL 是否打開，如果此標志文件存在，表明 EXCEL 對象正在運行，應(yīng)該禁止其它程序的運行。如果此標志文件不存在，表明 EXCEL 對象已被用戶關(guān)閉，此時如果要使用 EXCEL 對象運行，必須重新創(chuàng)建 EXCEL 對象。 四、舉例： 計算機科學與技術(shù)學院本科學位論文 14 在 VB 中，建立一個 FORM，在其上放置兩個命令按鈕，將Ｃ ommand1 的 Caption屬性改為 EXCEL， Command2 的 Caption 屬性改為 End。然后在其中輸入如下程序： Dim xlApp As 39。定義 EXCEL 類 Dim xlBook As 39。定義工件簿類 Dim xlsheet As 39。定義工作表類 Private Sub Command1_Click() 39。打開 EXCEL 過程 If Dir(D:\temp\) = Then 39。判斷 EXCEL 是否打開 Set xlApp = CreateObject() 39。創(chuàng)建 EXCEL 應(yīng)用類 = True 39。設(shè)置 EXCEL 可見 Set xlBook = (D:\temp\) 39。打開 EXCEL 工作簿 Set xlsheet = (1) 39。打開 EXCEL 工作表 39。激活工作表 (1, 1) = abc 39。給單元格 1行駛列賦值 (xlAutoOpen) 運行 EXCEL 中的啟動宏 Else MsgBox (EXCEL 已打開 ) End If End Sub Private Sub Command2_Click() If Dir(D:\temp\) Then 39。由 VB 關(guān)閉 EXCEL (xlAutoClose) 39。執(zhí)行 EXCEL 關(guān)閉宏 (True) 39。關(guān)閉 EXCEL 工作簿 39。關(guān)閉 EXCEL End If Set xlApp = Nothing 39。釋放 EXCEL 對象 End End Sub 圖示如下： 計算機科學與技術(shù)學院本科學位論文 15 在Ｄ盤根目錄上建立一個名為 Temp 的子目錄，在 Temp 目錄下建立一個名為的 EXCEL 文件。 在 中打開 Visual Basic 編輯器，在工程窗口中點鼠標鍵選擇插入模塊，在模塊中輸入入下程序存盤： Sub auto_open() Open d:\temp\ For Output As 1 39。寫標志文件 Close 1 End Sub Sub auto_close() Kill d:\temp\ 39。刪除標志文件 End Sub 圖示如下： 計算機科學與技術(shù)學院本科學位論文 16 運行 VB 程序，點擊 EXCEL 按鈕可以打開 EXCEL 系統(tǒng)，打開 EXCEL 系統(tǒng)后， VB程序和 EXCEL 分別屬兩個不同的應(yīng)用系統(tǒng)，均可同時進行操作，由于系統(tǒng)加了判斷，因此在 VB 程序中重復點擊 EXCEL 按鈕時會提示 EXCEL 已打開。如果在 EXCEL中關(guān)閉 EXCEL 后再點 EXCEL 按鈕，則會重新打開 EXCEL。而無論 EXCEL 打開與否，通過 VB 程序均可關(guān)閉 EXCEL。這樣就實現(xiàn)了 VB 與 EXCEL 的無縫連接。 點擊“ Excel” 之前： 計算機科學與技術(shù)學院本科學位論文 17 點擊之后，就打開了 D 盤 Temp 文件下的 文件； 這樣我們可以在 VB 環(huán)境下修改 Excel 文件； （ 3）集成開發(fā)環(huán)境下的數(shù)據(jù)訪問技術(shù)； 一、 VB 訪問數(shù)據(jù)庫的原則 總則：具體問題具體分析，根據(jù)具體的環(huán)境、條件、要求而采用適當?shù)姆桨? *代碼的重用和運行的效率 例如：通過使用 ODBC 數(shù)據(jù)源連接數(shù)據(jù)庫的方法，可在變換多種數(shù)據(jù)庫類型的情況下，而不用頻繁修改代碼。用 VBSQL 通過 DBLibrary 就做不到。而 ODBC接口并不是 VB 訪問數(shù)據(jù)庫運行效 率最高的方法。同樣，同是使用 ODBC 接口的 ADO 的效率要高于 RDO *實現(xiàn)的簡便性，易維護性 如果一種方法實現(xiàn)起來很復雜，工程的開發(fā)必然造成人力物力的浪費，同時這樣設(shè)計出來的應(yīng)用程序只會支持起來更復雜或維護時更困難。例如：本地需要訪問ISAM 或 Jet 類型數(shù)據(jù)源，那么就使用 DAO/Jet，而沒有必要使用通過 ODBC 的方法。 RDC 實現(xiàn)起來要較 RDO 更容易 *安全性原則 報這一條應(yīng)根據(jù)環(huán)境和條件決定。例如局域網(wǎng)的網(wǎng)絡(luò)安全性要好于廣域網(wǎng)因而可直接利用數(shù)據(jù)控件如 DC，這樣實現(xiàn)起來方便快捷，而廣域網(wǎng)需要 大量的錯誤捕獲，如用 RDC 就不如用 RDO 易控制錯誤。 計算機科學與技術(shù)學院本科學位論文 18 訪問數(shù)據(jù)庫的方法 VB 訪問數(shù)據(jù)庫的方法很多，一般情況下分成兩大類，而每一類又有很多方法。 數(shù)據(jù)訪問接口功能及含義 : ADC：高級數(shù)據(jù)連接器 (AdvancedDataConnector)：提供綁定 ADO 數(shù)據(jù)源到窗體的數(shù)據(jù)綁定控件上。 ADC 主要是一種直接訪問或者通過 ADO 訪問遠程 OLEDB對象的一種技術(shù)，它也支持主要應(yīng)用在微軟 IE 瀏覽器上的數(shù)據(jù)綁定控件。它是特地為 Web 上的瀏覽器為基礎(chǔ)的應(yīng)用程序而設(shè)計的。 ADO： Active 數(shù)據(jù) 對象 (ActiveDataObjects)： ADO 實際是一種提供訪問各種數(shù)據(jù)類型的連接機制。 ADO 設(shè)計為一種極簡單的格式，通過 ODBC 的方法同數(shù)據(jù)庫接口。可以使用任何一種 ODBC 數(shù)據(jù)源，即不止適合于 SQLServer、 Oracle、 Access等數(shù)據(jù)庫應(yīng)用程序，也適合于 Excel 表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。 ADO 是基于 OLEDB 之上的技術(shù)，因此 ADO 通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。 DAO：數(shù)據(jù)訪問對象 (DataAccessObjects)：是一種面向?qū)ο蟮慕缑娼涌凇?通過DAO/Jet 功能可以訪問 ISAM 數(shù)據(jù)庫，使用 DAO/ODBCDirect 功能可以實現(xiàn)遠程RDO 功能。使用 DAO 的程序編碼非常簡單， DAO 提供豐富的游標 (Cursor)類型的結(jié)果集和非游標 (CursorLess)類型的結(jié)果集，同 DDL(數(shù)據(jù)描述語言 )的功能很類似。 DAO 模型是設(shè)計關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合。它們提供了完成管理這樣一個系統(tǒng)所需的全部操作的屬性和方法，包括創(chuàng)建數(shù)據(jù)庫，定義表、字段和索引，建立表間的關(guān)系，定位和查詢數(shù)據(jù)庫等工具。 JET：數(shù)據(jù)連接性引擎技術(shù) (JointEngineTechnology)：是一種基于工作站通過 DAO的數(shù)據(jù)庫訪問機制。雖然可以通過微軟 Access 提供的 ODBC 驅(qū)動程序訪問 Jet數(shù)據(jù)庫，但使用這些驅(qū)動程序在功能上有所限制。 Jet 機制有自己的查詢和結(jié)果集處理功能，并可對同種或異種數(shù)據(jù)源作查詢處理。 0DBC：開放式的數(shù)據(jù)庫連接 (OpenDatabaseConnectivity)：是一種公認的關(guān)系數(shù)據(jù)源的接口界面。它快而輕并且提供統(tǒng)一接口的界面， ODBC 對任何數(shù)據(jù)源都未作優(yōu)化。 ODBCDirect:是一種基于 DAO 對象的新的 DAO 模式，其方法和屬 性與 RDO 功能相同。使用在有 DAO 代碼存在的場合，可用來訪問遠程數(shù)據(jù)源。 OLEDB:是一種底層數(shù)據(jù)訪問界面接口。是用于第三方驅(qū)動程序商家開發(fā)輸出數(shù)據(jù)源到 ADO 技術(shù)的應(yīng)用程序或用于 C++的開發(fā)者開發(fā)定制的數(shù)據(jù)庫組件。OLEDB 不能被 VB 直接調(diào)用。 計算機科學與技術(shù)學院本科學位論文 19 RDC:遠程數(shù)據(jù)訪問控件 (RemoteDataControl)：是一種對 RDO 數(shù)據(jù)綁定的控件。可以輸出特定的結(jié)果集到數(shù)據(jù)源控件。 RDO:遠程數(shù)據(jù)對象 (RemoteDataObjects):遠程數(shù)據(jù)對象和集合為使用代碼來創(chuàng)建和操作一個遠程 ODBC 數(shù)據(jù)庫 系統(tǒng)的各個部件提供了一個框架。對象和集合都具有描述數(shù)據(jù)庫的各個部件特征的屬性以及用來操作這些部件的方法。可以在對象和集合之間建立起關(guān)系，這些關(guān)系就代表了數(shù)據(jù)庫系統(tǒng)的邏輯結(jié)構(gòu)。 RDO 是ODBCAPI 的一個淺層界面接口。是專為訪問遠程 ODBC 關(guān)系數(shù)據(jù)源而設(shè)計的。 VBSQL:是 VisualBasic 結(jié)構(gòu)化查詢語言。是一種基于 API 的接口方法，幾乎與 C的 DBLibraryAPI 相同。 VBSQL 只支持微軟的 SQLServer。 VBSQL 快而且輕但不支持對象界面。 使用 RDO 的一般方法如下。 先聲明變量 ： PublicconAsrdoConnection,resAsrdoResultset 然后初始化 rdoEngine，設(shè)置用戶和口令等缺省參數(shù)； WithrdoEngine .rdoDefaultUser=sa39。用戶為 sa .rdoDefaultPassword=pass39?？诹顬?pass .rdoDefaultCursorDriver=rdUseServer .rdoDefaultLoginTimeout=15 EndWith 再連接到要訪問的遠程數(shù)據(jù)庫 (可使用 DSNConnection 和 DSNLessConnection)。 使用 DSNConnection 舉例 (連接服務(wù)器 SERVER 上的數(shù)據(jù)庫 hotel)： Setcon=rdoEnvironments(0).OpenConnection (hotel,rdDriverNoPrompt,False) 使用 DSNLessConnection 舉例 (連接服務(wù)器 SERVER 上的數(shù)據(jù)庫 hotel)： Setcon=rdoEnvironments(0).OpenConnection (,rdDriverNoPrompt,False,_driver={ SQLServer }。server=SERVER。database=hotel) 建立連接后，既可使用 OpenResultset 方法執(zhí)行查詢并處理結(jié)果集，又可使用Execute 方法執(zhí)行包括數(shù)據(jù)定義和數(shù)據(jù)操作在內(nèi)的動作查詢。例如： Setres=(SELECT*FROMmenu,rdOpenStatic) CREATEVIEWmenu_viewASSELECT 代碼 , 菜名FROMmenu,rdExecDirect RDO 最強大和最重要的特性之一是：它可以查詢和處理由存儲過程返回的結(jié)果，無論它有多么復雜。 計算機科學與技術(shù)學院本科學位論文 20 除 RDO 外，還可使用 RDC 訪問遠程數(shù)據(jù)庫。 遠程數(shù)據(jù)控件 (RDC)與數(shù)據(jù)控件 (DC)類似，不同之處是 RDC 使用 RDO 連接到ODBC 驅(qū)動程序管理器，而 DC 則使用 DAO 連接到 Jet 數(shù)據(jù)庫引擎。利用 RDO和 RDC，無需使用 Jet 引擎就可以訪問 ODBC 數(shù)據(jù)源。這樣，在訪問遠程數(shù)據(jù)庫時，可以獲得更好的性能和更大的靈活性。 遠程數(shù)據(jù)控件 MSRDC 使用舉例如下。 Connect:driver={ SQLServer }。server=SERVER。database=hotel DataSourceName: SQL:SELECT*FROMmenu UserName:sa Password:pass CursorDriver:3rdUseClient 可以使用 RDC 執(zhí)行許多簡單的遠程數(shù)據(jù)訪問操作，不需編寫任何代碼，只要填寫有關(guān)項就可以了，使用起來很方便。但應(yīng)注意，除非在設(shè)計時禁止并只在需要時啟動 RDC，否則它至少將消耗一個遠程數(shù)據(jù)庫連接。在遠程數(shù)據(jù)庫連接資源有限或要求很高效的情況下，宜慎用、 少用 RDC。這種情況下，應(yīng)盡可能考慮使用 RDO，并使用存儲過程 (預編譯好的 SQL語句 )。 最后還應(yīng)注意，只有 32 位操作系統(tǒng) (如 WindowsNT 或 Windows95)，才能支持