VB利用ADO控件連接access數(shù)據(jù)庫

1、VB利用ADO控件連接access數(shù)據(jù)庫 今天告訴大家VB利用ADO控件連接access數(shù)據(jù)庫的兩種方法： 一種是在 adodc1的屬性里設(shè)置數(shù)據(jù)庫文件的路徑,這種方法的優(yōu)點(diǎn)是簡單易操作,缺點(diǎn)是,當(dāng)源文件換了地方后,要重新設(shè)置數(shù)據(jù)庫的路徑,否則連接不上數(shù)據(jù)庫了。 一種是用代碼設(shè)置數(shù)據(jù)庫的路徑，這種方法的優(yōu)點(diǎn)就是只要源文件和數(shù)據(jù)庫在同一文件夾下，無論移動到哪里都能連接上。 如果沒有建立好數(shù)據(jù)庫的話,先建立一個數(shù)據(jù)庫,然后建立一個表比如我們建的表名為message,然后把里面的字段名稱和數(shù)據(jù)類型都按自己的需要設(shè)置好.然后保存就能夠了. 打開Microsoft Visual Basic6.0 我用的

2、是VB6.0,在需要調(diào)用數(shù)據(jù)庫的窗體上加入一個adodc控件,默認(rèn)名稱為：Adodc1。默認(rèn)的情況下工具欄里是沒有這個控件的,能夠打開工程-部件(快捷鍵CTRL+T),去掉只顯示選定項(xiàng)的勾,然后勾上Microsoft ADO Data Control(OLEDB),然后確定，工具欄就會多了一個adodc的控件。第一種方法：設(shè)置adodc1的屬以連接數(shù)據(jù)庫.在adodc1控件上右鍵-Adodc屬性-使用連接字符串-生成-Microsoft Jet 4.0 OLE DB Provider-下一步-選擇或輸入數(shù)據(jù)庫名稱-找到要連接的數(shù)據(jù)庫后,確定.然后記錄源設(shè)置屬性. 如果要把內(nèi)容提交到數(shù)據(jù)庫一般使

3、用adCmdTable. 表選擇要連接的表。設(shè)置完畢后就能夠了.如果我們想把內(nèi)容提交到數(shù)據(jù)庫.舉個例子.在窗體建立一個文本框,設(shè)置屬性中的DataSource為adodc1 DataField為要連接的數(shù)據(jù)庫的字段名。如果數(shù)據(jù)庫中有字段，會讓你選擇。設(shè)置好后在窗體加一個添加記錄和一個提交的按鈕，設(shè)置代碼：Private Sub Command1_Click()Adodc1.Recordset.Update 保存Adodc1.Refresh 刷新End Sub添加按鈕代碼：Private Sub Command2_Click()Adodc1.Recordset.AddNew 添加新紀(jì)錄Adodc

4、1.Recordset(姓名).Value = Text1.TextEnd Sub第二種方法：在窗體添加Adodc控件一個text控件 一個添加記錄按鈕一個提交按鈕在窗體設(shè)置代碼：Private Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + db1.mdb;Persist Security Info=False 設(shè)置數(shù)據(jù)庫路徑Adodc1.CommandType = adCmdText 設(shè)置記錄源Adodc1.RecordSource = s

5、elect * from message 連接數(shù)據(jù)庫的message表文件Set Text1.DataSource = Adodc1text1.DataField = 姓名End Sub添加記錄按鈕代碼：Private Sub Command1_Click()Adodc1.Recordset.AddNew 添加新紀(jì)錄End Sub提交代碼：Private Sub Command2_Click()Adodc1.Recordset.Update 保存Adodc1.Refresh 刷新End Sub 好了連接方法講完了,我都在機(jī)子上測試過了,因該沒有什么問題的。如果有問題請多看幾遍，或看些別人寫的程

6、序代碼，會有很大進(jìn)步的，我的VB也不好,因?yàn)椴皇怯嬎銠C(jī)專業(yè)的，老師也沒有教很多,高手莫笑。好了我再給大家?guī)讉€查詢數(shù)據(jù)庫常用的代碼：首記錄按鈕的代碼：Private Sub sjl_Click()Adodc1.Recordset.MoveFirstEnd Sub上一條記錄按鈕代碼：Private Sub up_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstEnd IfEnd Sub下一條記錄代碼：Private Sub down_Click()Adodc1.Rec

7、ordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfEnd Sub末記錄代碼：Private Sub mjl_Click()Adodc1.Recordset.MoveLastEnd Sub刪除記錄代碼：Private Sub Command3_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf (Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF) ThenMsgBox 已經(jīng)無記錄, , 提示End

8、 IfEnd Sub使用 DataGrid 控件 DataGrid 控件是一種類似于電子數(shù)據(jù)表的綁定控件，可以顯示一系列行和列來表示 Recordset 對象的記錄和字段。可以使用 DataGrid 來創(chuàng)建一個允許最終用戶閱讀和寫入到絕大多數(shù)數(shù)據(jù)庫的應(yīng)用程序。DataGrid 控件可以在設(shè)計時快速進(jìn)行配置，只需少量代碼或無需代碼。當(dāng)在設(shè)計時設(shè)置了DataGrid 控件的 DataSource 屬性后，就會用數(shù)據(jù)源的記錄集來自動填充該控件，以及自動設(shè)置該控件的列標(biāo)頭。然后您就可以編輯該網(wǎng)格的列；刪除、重新安排、添加列標(biāo)頭、或者調(diào)整任意一列的寬度。在運(yùn)行時，可以在程序中切換 DataSource

9、來察看不同的表，或者可以修改當(dāng)前數(shù)據(jù)庫的查詢，以返回一個不同的記錄集合。注意 DataGrid 控件與 Visual Basic 5.0中的 DBGrid 是代碼兼容的，除了一個例外：DataGrid 控件不支持 DBGrid 的“解除綁定模式”概念。DBGrid 控件包括在 Visual Basic 的 Tools 目錄中?？赡艿挠梅ú榭春途庉嬙谶h(yuǎn)程或本地數(shù)據(jù)庫中的數(shù)據(jù)。與另一個數(shù)據(jù)綁定的控件（諸如 DataList 控件）聯(lián)合使用，使用 DataGrid控件來顯示一個表的記錄，這個表通過一個公共字段鏈接到由第二個數(shù)據(jù)綁定控件所顯示的表。使用 DataGrid 控件的設(shè)計時特性可以不編寫任何

10、代碼，只通過使用 DataGrid 控件的設(shè)計時特性來創(chuàng)建一個數(shù)據(jù)庫應(yīng)用程序。下面的說明概要地說明了在實(shí)現(xiàn) DataGrid 控件的典型應(yīng)用時的一般步驟。完整的循序漸進(jìn)的指示，請參閱主題“DataGrid 方案1: 使用 DataGrid 控件創(chuàng)建一個簡單數(shù)據(jù)庫應(yīng)用程序”。要在設(shè)計時實(shí)現(xiàn)一個 DataGrid 控件1. 為要訪問的數(shù)據(jù)庫創(chuàng)建一個 Microsoft 數(shù)據(jù)鏈接 (.MDL) 文件。請參閱“創(chuàng)建 Northwind OLE DB 數(shù)據(jù)鏈接”主題，以獲得一個示例。2. 在窗體上放置一個 ADO Data 控件，并將其 ConnectionString 屬性設(shè)置為在第 1 步中所創(chuàng)建的

11、OLE DB 數(shù)據(jù)源。3. 在這個 Ado Data 控件的 RecordSource 屬性中輸入一條將返回一個記錄集的 SQL 語句。例如，Select * From MyTableName Where CustID = 124. 在窗體上放置一個 DataGrid 控件，并將其 DataSource 屬性設(shè)置為這個 ADO Data 控件。5. 右鍵單擊該 DataGrid 控件，然后單擊“檢索字段”。6. 右鍵單擊該 DataGrid 控件，然后單擊“編輯”。7. 重新設(shè)置該網(wǎng)格的大小、刪除或添加網(wǎng)格的列。8. 右鍵單擊該 DataGrid 控件，然后單擊“屬性”。9. 使用“屬性頁”對

12、話框來設(shè)置該控件的適當(dāng)?shù)膶傩?，將該網(wǎng)格配置為所需的外觀和行為。在運(yùn)行時更改顯示的數(shù)據(jù)在創(chuàng)建了一個使用設(shè)計時特性的網(wǎng)格后，也可以在運(yùn)行時動態(tài)地更改該網(wǎng)格的數(shù)據(jù)源。下面介紹實(shí)現(xiàn)這一功能的通常方法。更改 DataSource 的RecordSource更改所顯示的數(shù)據(jù)的最通常方法是改變該 DataSource 的查詢。例如，如果DataGrid 控件使用一個ADO Data控件作為其 DataSource，則重寫RecordSource和刷新該ADO Data 控件都將改變所顯示的數(shù)據(jù)。 ADO Data 控件連接的是 Northwind 數(shù)據(jù)庫的 Products 表。新查詢查找所有 Suppli

13、erID = 12 的記錄。Dim strQuery As StringstrQuery = SELECT * FROM Suppliers WHERE SupplierID = 12Adodc1.RecordSource = strQueryAdodc1.Refresh更改 DataSource在運(yùn)行時，可以將 DataSource 屬性重新設(shè)置為一個不同的數(shù)據(jù)源。例如，您可能具有若干個 ADO Data 控件，每個控件連接不同的數(shù)據(jù)庫，或設(shè)置為不同的 RecordSource 屬性。可以簡單地將 DataSource 從一個 ADO Data控件重新設(shè)置為另一個 ADO Data 控件：

14、將 DataSource 重新設(shè)置為一個連接到 Pubs 數(shù)據(jù)庫的、 使用 Authors 表的 ADO Data 控件。Set DataGrid1.DataSource = adoPubsAuthors重新綁定 DataSource當(dāng)將 DataGrid 控件用于一個遠(yuǎn)程數(shù)據(jù)庫，諸如 SQLServer 時，可以改變表的結(jié)構(gòu)。例如，可以給這個表添加一個字段。在這種情形下，可以調(diào)用Rebind 方法根據(jù)新的結(jié)構(gòu)來重新創(chuàng)建該網(wǎng)格。注意，如果已經(jīng)在設(shè)計時改變了這個列的布局，DataGrid 控件將會試圖重新創(chuàng)建當(dāng)前的布局，包括任何空的列。不過，通過首先調(diào)用 ClearFields 方法，可以強(qiáng)制該

15、網(wǎng)格重新設(shè)置所有的列。從 DataGrid 返回值在 DataGrid 被連接到一個數(shù)據(jù)庫后，可能想要監(jiān)視用戶單擊了哪一個單元?？梢允褂?RowColChange 事件而不是 Click 事件。如下所示：Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 顯示用戶所單擊的單元的文字、行和列的信息。Debug.Print DataGrid1.Text; DataGrid1.Row; DataGrid1.ColEnd Sub使用 CellText 和 CellValue 方法當(dāng)一個列使用

16、NumberFormat 屬性設(shè)置格式后，CellText 和 CellValue 屬性是很有用的。NumberFormat 屬性不必更改實(shí)際的數(shù)據(jù)格式就可以更改任何包含數(shù)字的列的格式。例如，給定一個網(wǎng)格，其中包含一個名為 ProductID的、包含整數(shù)的列。下面的代碼將使 DataGrid 以P-0000 的格式來顯示數(shù)據(jù)。換句話說，盡管在 ProductID 字段中所包含的實(shí)際數(shù)值為 3，但該網(wǎng)格所顯示的值將是 P-0003。Private Sub Form_Load()DataGrid1.Columns(ProductID).NumberFormat = P-0000End Sub要返回

17、數(shù)據(jù)庫中所包含的實(shí)際值，應(yīng)使用 CellValue 方法，如下所示：Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)Debug.Print _DataGrid1.Columns(ProductID).CellValue(DataGrid1.Bookmark)End Sub注意 上面所用的 CellValue 和下面所用的 CellText 值，都需要將Bookmark 屬性作為一個參數(shù)，功能才正確。相反地，如果要返回該字段的格式化的值，應(yīng)使用 CellText 方法：Private

18、Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)Debug.Print _DataGrid1.Columns(ProductID).CellText(DataGrid1.Bookmark)End Sub注意 上面的 CellText 方法等價于使用 DataGrid 控件的 Text 屬性。下一步要閱讀關(guān)于使用該控件創(chuàng)建簡單的應(yīng)用程序的一個循序漸進(jìn)的過程，請參閱“使用 DataGrid 控件創(chuàng)建簡單的數(shù)據(jù)庫應(yīng)用程序”，或“創(chuàng)建一個連接DataList 控件的 DataGrid”。要了解關(guān)于 Spli

19、t 對象以及如何對其編程的詳細(xì)信息，請參閱“操作DataGrid 視圖”。創(chuàng)建 Northwind 的OLE DB 數(shù)據(jù)鏈接訪問數(shù)據(jù)的一個重要步驟是為想要訪問的每個數(shù)據(jù)庫都創(chuàng)建一個 OLE DB數(shù)據(jù)源。下面的步驟為 Visual Basic 所提供的Nwind.mdb (Northwind) 數(shù)據(jù)庫創(chuàng)建這樣一個對象。這個數(shù)據(jù)源被用于 Visual Basic 文檔所提供的一些示例過程。在一個計算機(jī)上只需要創(chuàng)建一次OLE DB數(shù)據(jù)源。要創(chuàng)建 Northwind 的OLE DB 數(shù)據(jù)源1. 打開 Windows Explorer或 Windows NT Explorer。2. 打開您想要創(chuàng)建 OL

20、E DB 數(shù)據(jù)源的目錄。在該示例中，打開 ProgramFiles、Microsoft Visual Studio和VB98。3. 右鍵單擊 Explorer 的右邊窗格，然后單擊上下文菜單上的“新建”。從文件類型列表中單擊“Microsoft 數(shù)據(jù)鏈接”。4. 重命名新文件 Northwind.MDL。5. 右鍵單擊文件并單擊上下文菜單上的“屬性”，以顯示“Northwind.MDLProperties”對話框。6. 單擊“連接”選項(xiàng)卡。7. 單擊“提供方”框并選擇“Microsoft Jet 3.51 OLE DB Provider”。8. 在Data Source 框中輸入nwind.m

21、db文件的路徑。9. 單擊“測試連接”，檢測連接。10. 如果連接通過，單擊“確定”。注意 也可以通過在“控制面板”中單擊“數(shù)據(jù)鏈接”圖標(biāo)創(chuàng)建一個 OLE DB數(shù)據(jù)源。在“管理數(shù)據(jù)鏈接文件”對話框中，單擊“新建”創(chuàng)建一個新的數(shù)據(jù)源。使用 DataGrid 和 ADO Data控件創(chuàng)建一個簡單的數(shù)據(jù)庫應(yīng)用程序只使用一個 DataGrid 和一個 ADO Data 控件，可以創(chuàng)建一個允許最終用戶閱讀和寫入記錄集的數(shù)據(jù)庫應(yīng)用程序。要使用 ADO 數(shù)據(jù)控件來創(chuàng)建一個簡單的數(shù)據(jù)庫應(yīng)用程序1. 為 Northwind 數(shù)據(jù)庫創(chuàng)建一個OLE DB 數(shù)據(jù)源。如果還沒有創(chuàng)建數(shù)據(jù)源，請按照“創(chuàng)建 Northwin

22、d 的OLE DB Data Link”中的步驟操作。2. 在Visual Basic 中創(chuàng)建一個新的標(biāo)準(zhǔn)的 EXE 工程。如果 DataGrid 控件不在“工具箱”中，則用右鍵單擊“工具箱”，然后使用“部件”對話框來添加控件。同時也載入 ADO 控件。3. 在空窗體上各放置控件的一個實(shí)例。4. 將 ADO 控件的ConnectionString 屬性設(shè)置為 Northwind 的數(shù)據(jù)源。單擊并選定該 ADO Data 控件，并按 F4 鍵出現(xiàn)“屬性”窗口。單擊“ConnectionString”，然后單擊 OLE DB File。單擊 Northwind 的數(shù)據(jù)源。5. 設(shè)置 ADO 控件的

23、 RecordSource 屬性。在“屬性”窗口中，單擊“記錄源”并輸入一條 SQL 語句來填充 DataGrid控件。在本例中，輸入“Select * From Products”。6. 將 DataGrid 控件的 DataSource 屬性設(shè)置為這個 ADO Data 控件。單擊并選定該 DataGrid 控件。在其“屬性”窗口中，單擊“數(shù)據(jù)源”將出現(xiàn)一個包含所有數(shù)據(jù)控件的下拉列表在本例中只有 ADO Data 控件。單擊這個控件。7. 按 F5 鍵運(yùn)行這個工程。創(chuàng)建一個連接 DataList 控件的 DataGridDataGrid 的通常用法是顯示數(shù)據(jù)庫的一個表所提供的“詳細(xì)內(nèi)容”。

24、例如，Northwind (Nwind.mdb) 數(shù)據(jù)庫包括兩個表，一個名為 Suppliers，另一個名為 Products。在本例中，我們使用 DataList 控件來顯示 Suppliers 表中的供應(yīng)商的公司名稱。當(dāng)用戶單擊任意一個公司名稱時，這個 DataList 控件將提供該公司的 SupplierID。使用這個標(biāo)識符，就可以構(gòu)造一個查詢，在 Products 表中檢索具有相匹配的 SupplierID 的所有記錄。換句話說，當(dāng)用戶單擊一個公司時（在 DataList 控件中），該公司生產(chǎn)的所有產(chǎn)品將出現(xiàn)在 DataGrid 控件中。要使用一個指定供應(yīng)商的產(chǎn)品填充一個 DataGr

25、id 控件1. 確認(rèn)在機(jī)器上已為 Northwind 數(shù)據(jù)庫建立了一個OLE DB 數(shù)據(jù)源；如果還沒有創(chuàng)建這樣的一個數(shù)據(jù)源，請按照“創(chuàng)建 Northwind 的OLE DBData連接”的步驟操作。2. 在Visual Basic 中創(chuàng)建一個新的標(biāo)準(zhǔn)的 EXE 工程。如果 DataGrid、DataList 和 ADO Data 控件不在“工具箱”中，則右鍵單擊“工具箱”，然后單擊“部件”。在“部件”對話框中雙擊“MicrosoftDataGrid Control”、“Microsoft DataList Controls”以及“Microsoft ADOControl”。3. 在一個空窗體中

26、各放置一個 DataGrid 和 DataList 控件的實(shí)例。將 DataList 控件放置在該窗體的左上角，然后將 DataGrid 控件放在它的下面的某處。4. 在窗體放置兩個 ADO Data 控件實(shí)例。選擇第一個 ADO Data 控件，并按 F4 鍵來顯示其“屬性頁”。將該控件的 Name 屬性設(shè)置為 adoSuppliers。選擇第二個 ADO Data 控件并將其 Name 屬性設(shè)置為 adoProducts。將第一個控件直接放在 DataList 控件的下面，把第二個控件直接放在 DataGrid 控件的下面。5. 將這兩個 ADO Data 控件的 ConnectionSt

27、ring 屬性設(shè)置為 Northwind的OLE DB 數(shù)據(jù)源。選擇名為 adoSuppliers 的控件，然后將其ConnectionString 屬性設(shè)置為Northwind 的OLE DB data source (Northwind.mdl)。選擇名為 adoProducts的控件，并重復(fù)該操作。6. 設(shè)置這兩個 ADO Data 控件的 RecordSource 屬性。選擇 adoSuppliers 并在其“屬性頁”上單擊“RecordSoure”。輸入 Select* From Suppliers。這個查詢將指示該 ADO Data 控件返回 Suppliers 表中的所有記錄。選

28、擇 adoProducts，單擊“RecordSoure”，并輸入 Select *From Products。這個查詢將返回在 Products 表中的所有記錄。7. 將 DataList 控件的 RowSource 屬性設(shè)置為 adoSuppliers。RowSource 屬性決定由哪一個數(shù)據(jù)源為 ListField 屬性供應(yīng)數(shù)據(jù)。8. 將 DataList 控件的 ListField 屬性設(shè)置為 CompanyName。ListField 屬性被設(shè)置成名為 Suppliers 的表中的字段名稱。在運(yùn)行時，DataList 控件顯示在這個屬性中所指定的字段的值。在本例中，該屬性將顯示在 S

29、uppliers 表中找到的一個公司名稱。9. 將 DataList 控件的 BoundColumn 屬性設(shè)置為 SupplierID。BoundColumn 屬性被設(shè)為 Suppliers 表中的第二個字段。在本例中，這個屬性就被設(shè)為 SupplierID 字段。當(dāng)單擊 DataList 控件時，BoundText屬性返回與在 DataList 控件中所顯示的公司相關(guān)聯(lián)的 SupplierID 字段的值。這個值將用于對 Products 表的查詢，該查詢?yōu)?DataGrid 控件提供數(shù)據(jù)。10. 將 DataGrid 控件的 DataSource 屬性設(shè)置為 adoProducts。Data

30、Source 屬性為該控件指定數(shù)據(jù)源。在本例中，該屬性被設(shè)置為名為adoProducts 的 ADO Data 控件，這將返回 Products 表中的所有記錄。11. 在窗體的代碼模塊中，添加下述內(nèi)容：Private Sub Datalist1_Click() 聲明一個用來包含新查詢的字符串變量。這個新的 查詢使用 DataList 控件的BoundText屬性 來提供一個 SupplierID 值。新查詢查找所有 具有相同的 SupplierID 的產(chǎn)品。這個查詢被 指定給名為 adoProducts 的 ADO Data 控件 的 RecordSource 屬性。在刷新控件后，DataG

31、rid 將使用包含由同一個公司供應(yīng)的所有產(chǎn)品的新 記錄集來更新。Dim strQuery As StringstrQuery = Select * FROM Products WHERE SupplierID = & _Datalist1.BoundTextWith adoProducts.RecordSource = strQuery.RefreshEnd WithWith DataGrid1.ClearFields.ReBindEnd WithEnd Sub12. 運(yùn)行該工程。單擊 DataList 控件中的任意公司名稱，將自動用該公司所供應(yīng)的產(chǎn)品更新 DataGrid 控件。使用列通過更

32、改 DataSource 屬性，可以動態(tài)地更改在 DataGrid 控件中顯示的數(shù)據(jù)。例如，可以顯示同一個數(shù)據(jù)庫的不同表。如果這樣做，則 DataGrid 控件將只根據(jù)默認(rèn)的屬性顯示數(shù)據(jù)。添加、刪除或隱藏列通過使用 Columns 集合和 Column 對象的屬性和方法，可以在程序中添加、刪除或隱藏列。添加和刪除一列要在運(yùn)行時添加一列，可以使用 Add 方法。如果首先聲明一個變量，并將新對象賦給該變量，就可以用簡明的代碼設(shè)置各種屬性。Private Sub AddColumn() 在最右邊的位置添加一列。然后設(shè)置其 Visible、Width、 Caption以及 Alignment 屬性。D

33、ataField 屬性則指定 該列將綁定到哪一個字段。Dim c As ColumnSet c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)With c.Visible = True.Width = 1000.Caption = 我的新列.DataField = Adodc1.Recordset.Fields(ProductName).Name.Alignment = dbgRightEnd WithEnd Sub可以使用方法來刪除任意一列。請確保使用 ColIndex 參數(shù)來指定要刪除的列。下面的代碼將刪除被單擊的列。Private Sub

34、 DataGrid1_HeadClick(ByVal ColIndex As Integer)DataGrid1.Columns.Remove ColIndexEnd Sub隱藏一列通過將 Visible 屬性設(shè)置為 False，可以隱藏任意一列。當(dāng)想要限制用戶可以查看或編輯的列時這一功能特別有用。下面的示例在 Columns 集合中循環(huán)，隱藏除少數(shù)列之外的所有列。Private Sub HideColumns() 使用 DataField 屬性來判別正在測試的是哪一列。 只顯示三列：ProductName、UnitPrice以及 UnitsInStock。Dim c As ColumnFor

35、 Each c In DataGrid1.ColumnsSelect Case c.DataFieldCase ProductNamec.Visible = TrueCase UnitPricec.Visible = TrueCase UnitsInStockc.Visible = Truec.Caption = In Stock 更改這個列的標(biāo)頭。Case Else 隱藏其它所有的列。c.Visible = FalseEnd SelectNext cEnd Sub操作 DataGrid 視圖一個“拆分”的網(wǎng)格使最終用戶對相同的數(shù)據(jù)可以擁有多個視圖。例如，假設(shè)有一個由十個字段組成的大表。在這種

36、情況下，在控件中察看的記錄集將有十列寬，除非窗體非常寬，否則用戶將無法同時看見所有列的內(nèi)容。，而且，假設(shè)用戶只對第一列和最后一列感興趣（例如，第一列是名字，最后一列是電話號碼）。為了能同時看到在兩端的列（不重新安排列的順序），可以對網(wǎng)格進(jìn)行拆分。創(chuàng)建一個 Split 對象在設(shè)計時，可以創(chuàng)建一個拆分，具體步驟是：右鍵單擊網(wǎng)格，單擊“編輯”，再單擊右鍵，然后單擊“拆分”。通過右鍵單擊該控件，并單擊“屬性”來顯示“屬性頁”對話框，可以編輯這個拆分?？梢允褂谩安鸱帧边x項(xiàng)卡來自定義拆分。要刪除一個拆分，右鍵單擊該拆分，并單擊“刪除”。在運(yùn)行時，最終用戶也可以通過單擊位于這個網(wǎng)格控件的左下邊的右邊的選項(xiàng)卡

37、，以手工方式來拆分該網(wǎng)格（除非不允許這個操作），如下圖所示：默認(rèn)情況下，DataGrid 控件包含一個 Split 對象。防止最終用戶添加拆分的代碼為：DataGrid1.Splits(0).AllowSizing = False在程序中添加和刪除拆分DataGrid 控件包含一個 Split 對象的集合。要在程序中添加拆分，可以使用 Add 方法，如下所示：DataGrid1.Splits.Add 1注意 Add 方法需要新的拆分索引作為其參數(shù)。要添加一個拆分，應(yīng)將這個索引參數(shù)設(shè)置為 Splits 集合的 Count 屬性值。使用 Split 集合的 Add 方法，可以在程序中按照實(shí)際需要添

38、加拆分。由于添加多于兩個以上的拆分將使網(wǎng)格很難使用，可以使用該集合的 Count 屬性來限制拆分的數(shù)目。If DataGrid1.Splits.Count 3 Then 添加一個拆分。DataGrid1.Splits.Add DataGrid1.Splits.CountEnd If使拆分同步當(dāng)拆分多于一個時，可能希望控制這些拆分如何滾動。例如，在一個具有三個拆分的網(wǎng)格中，可以決定只讓第一個和第三個拆分同步，而讓中間的拆分獨(dú)立地滾動。要同步任何兩個（或多個）拆分，只需將每個 Split 對象的 ScrollGroup 屬性設(shè)置為同一個值。 使第一個和第三個 Split 對象同步。With Dat

39、aGrid1.Splits(0).ScrollGroup = 1.Splits(1).ScrollGroup = 2.Splits(2).ScrollGroup = 1End With通過設(shè)置 Scrollbars 屬性，使同步的拆分組只顯示一個滾卷?xiàng)l，從而進(jìn)一步自定義拆分的外觀?？刂?Tab 鍵和箭頭鍵的行為使用 WrapCellPointer、TabAcrossSplits以及 TabAction 屬性，可以決定當(dāng)最終用戶按下 tab 鍵或箭頭鍵時網(wǎng)格的行為。在這三個屬性中，TabAction 屬性級別最高，它決定 WrapCellPointer 和TabAcrossSplits 這兩個屬

40、性是否能生效。TabAction 有三個設(shè)置值： ControlNavigation、Column Navigation 和 Grid Navigation。當(dāng)該屬性設(shè)置為 ControlNavigation 時，按 Tab 鍵根據(jù) TabIndex 將焦點(diǎn)切換到下一個控件。這一設(shè)置優(yōu)先于 WrapCellPointer 和 TabAcrossSplits。WrapCellPointer 屬性決定在任何單個的拆分中 tab 鍵和箭頭鍵的行為。如果該屬性設(shè)置為 True，且當(dāng)前單元位于最后一列，這時最終用戶按 tab 鍵則使第一列的下一行變成當(dāng)前的單元。不過，如果當(dāng)前單元位于最后一行的最后一列時

41、，這時就沒有地方可以“換行”。TabAcrossSplits 屬性決定當(dāng)網(wǎng)格中存在兩個或多個拆分時 tab 和箭頭鍵的行為。如果該屬性設(shè)置為 True，且當(dāng)前單元位于任何一個拆分的最后一列，則按Tab或箭頭鍵將使當(dāng)前單元“跳” 到下一個拆分的第一列。當(dāng)前單元仍保持相同的行位置。注意 如果 WrapCellPointer 和 TabAcrossSplits 屬性都設(shè)置為 True，則只有當(dāng)前單元位于最后一個拆分的最后一列時才會換行。這時當(dāng)前單元將換到第一個拆分的第一列中的下一行。自定義列集合每一個 Split 對象都有一個 Columns 屬性，允許用戶來操作一個 Column對象的集合。通過這

42、樣做，可以更改每個 Split 對象的外觀。例如，可以用一個拆分包含顯示姓氏字段和名字字段的兩個列，而第二個拆分則顯示電話字段和地址字段。要實(shí)現(xiàn)這一目標(biāo)，需要將其它的每一列的 Visible 屬性設(shè)置為 False，如下所示： 枚舉 Columns 集合，對每一個 Column 對象的 DataField 屬性 進(jìn)行測試。如果測試失敗，則隱藏這一列。Dim i As Integer 隱藏除 ProductName 列之外的所有列。For i = 0 To DataGrid1.Splits(0).Columns.Count - 1If DataGrid1.Splits(0).Columns(i)

43、.DataField ProductName ThenDataGrid1.Splits(0).Columns(i).Visible = FalseEnd IfNext i 隱藏除 UnitPrice 列之外的所有列。For i = 0 To DataGrid1.Splits(0).Columns.Count - 1If DataGrid1.Splits(1).Columns(i).DataField UnitPrice ThenDataGrid1.Splits(1).Columns(i).Visible = FalseEnd IfNext I使用 Bookmarks 和 SelBookmark

44、s 跟蹤記錄Bookmarks 和 SelBookmarks 提供了標(biāo)記記錄的一種手段。當(dāng)編寫應(yīng)用程序中的特定功能（諸如允許最終用戶手工地選擇多個不相鄰的記錄，進(jìn)行所選記錄的大批更新）時，這就很有必要。在這些情形中，需要標(biāo)記哪些記錄已被選擇，因此可以使用 SelBookmarks 集合及其屬性。有兩個函數(shù)，分別是 CellText 和 CellValue 方法，需要標(biāo)記才能正確執(zhí)行。標(biāo)記用戶的選擇SelBookmarks 集合包含所有選定的記錄的書簽。當(dāng)最終用戶手工選擇記錄時（即在單擊時按住 CTRL 鍵），每一個選定的記錄的書簽都會加入到該集合中。使用標(biāo)準(zhǔn)的循環(huán)，用戶可以知道已經(jīng)選定了什么，

45、也可以保存書簽（因?yàn)榭赡苄枰謴?fù)某個值），以及執(zhí)行操作：Dim i as Integer 計數(shù)器Dim intCount As IntegerintCount = DataGrid1.SelBookmarks.Count - 1ReDim arrSelBK(intCount) 聲明用于保存書簽的數(shù)組。For i = 0 To intCountArrSelBK(i) = DataGrid1.SelBookmarks(i) 在此處執(zhí)行操作。如果該操作必須被 取消，則退出該循環(huán)，然后使用該數(shù) 組來取消這些更改。Next i通過在程序中添加到 SelBookmarks 集合來選擇記錄通過將記錄添加到這

46、個集合，也可以在程序中選定記錄。例如，可能有一個顯示指定的客戶所有訂貨的網(wǎng)格。如果要高亮顯示該客戶花費(fèi)超過 $100的所有記錄，則對記錄進(jìn)行過濾，并將結(jié)果書簽添加到 SelBookmarks 集合。Dim rs As RecordsetSet rs = Adodc1.RecordsetWhile Not rs.EOFIf rs!SupplierID = 12 ThenDataGrid1.SelBookmarks.Add rs.BookmarkEnd Ifrs.MoveNextWend顯示計算結(jié)果字段假設(shè)在表中有一個名為 Price 的字段，并且想使用本地稅率來計算表中每一項(xiàng)的稅費(fèi)。這就是一個計

47、算結(jié)果字段，可以通過修改 DataSource 的查詢來計算這個值，并把這個值返回給 DataGrid 控件。要在 DataGrid 控件中創(chuàng)建一個計算結(jié)果字段1. 確認(rèn)在機(jī)器上已為 Northwind 數(shù)據(jù)庫建立了一個OLE DB 數(shù)據(jù)源；如果還沒有創(chuàng)建這樣的一個數(shù)據(jù)源，請按照“創(chuàng)建 Northwind 的OLE DBData 連接”的步驟操作。2. 在窗體上放置一個 ADO Data 控件和一個 DataGrid 控件。3. 將 ADO Data 控件的ConnectionString 屬性設(shè)置為 Northwind 的數(shù)據(jù)源。4. 設(shè)置 ADO Data 控件的 RecordSource

48、 屬性。在“屬性”窗口中，單擊“記錄源”并輸入 Select ProductName, UnitPrice,(UnitPrice * .082) As Tax From Products。5. 將 DataGrid 控件的 DataSource 屬性設(shè)置為這個 ADO Data 控件。6. 運(yùn)行該工程。與類模塊一起使用 DataGrid 控件如果想要訪問以自定義格式或以 ODBC 驅(qū)動程序不直接支持的格式存放的數(shù)據(jù)，可以創(chuàng)建一個類來封裝該數(shù)據(jù)。然后可以編寫該類的自定義函數(shù)來檢索這些數(shù)據(jù)。這樣該類就變成了一種數(shù)據(jù)源，可以被任何數(shù)據(jù)使用者（如DataGrid 控件）使用。在這個類模塊的Initia

49、lize 事件中，首先通過聲明一個作為 NewADODB.Recordset的變量，來創(chuàng)建一個 ADODB recordset 對象。在創(chuàng)建了這個 recordset 對象后，再添加字段，每個數(shù)據(jù)源中的每個字段都要加入。然后使用合適的數(shù)據(jù)填充這個記錄集。注意 也可以使用 OLEDB 示例提供者來創(chuàng)建一個數(shù)據(jù)源。關(guān)于 OLEDB示例提供者的詳細(xì)信息，請參閱“創(chuàng)建帶有數(shù)據(jù)提供方的部件”。類模塊有一個 GetDataMember 事件，只要當(dāng)數(shù)據(jù)使用者（諸如 DataGrid 控件）需要數(shù)據(jù)時就產(chǎn)生該事件。在這個事件中，Data 參數(shù)被設(shè)置為在Initialize 事件中所創(chuàng)建的 recordset

50、 對象。如果要使用這個類模塊，應(yīng)創(chuàng)建一個具有一個 DataGrid 控件的窗體。在該窗體的 Load 事件的代碼中，將該控件的 DataSource 屬性設(shè)置為這個類。注意 數(shù)據(jù)類模塊在設(shè)計時是不可用的。例如，如果使用 DataGrid 控件，則當(dāng)用戶在“屬性”窗口中單擊“數(shù)據(jù)源”時，所有可用的數(shù)據(jù)源都會出現(xiàn)在一個下拉列表中。但其中不會有這個數(shù)據(jù)類模塊，它只能在代碼中設(shè)置。使用類模塊創(chuàng)建一個數(shù)據(jù)源下面的示例使用一個類模塊來創(chuàng)建一個簡單數(shù)據(jù)源。然后通過 DataSource屬性將 DataGrid 控件綁定到該模塊。要創(chuàng)建一個用于DataGrid 的類1. 創(chuàng)建一個新的標(biāo)準(zhǔn) Exe 工程。2.

51、給窗體添加一個 DataGrid 控件。如果DataGrid控件不在“工具箱”中，則在“工程”菜單中單擊“部件”，再單擊“Microsoft DataGrid Control”，然后單擊“確定”。3. 在“工程”菜單中，單擊“引用”。在“引用”對話框中，單擊“MicrosoftActiveX Data Objects 2.0 Library”。4. 在“工程”菜單中，單擊“添加類模塊”來給工程添加一個數(shù)據(jù)類模塊。5. 在“工程資源管理器”窗口中，單擊并選定“類”圖標(biāo)，并按 F4 鍵顯示“屬性”窗口。6. 在“屬性”窗口中，將類的名稱更改為NamesData。7. 在“屬性”窗口中，單擊“DataSourceBehavior”并將該屬性更改為vbDataSource。8. 在該類模塊的 Declarations 部分，創(chuàng)建一個 ADODB Recordset變量，如下所示：Option ExplicitPrivate WithEvents rsNames As ADODB.RecordSet使用 WithEvents 關(guān)鍵詞來聲明該變量，使用戶可以對 RecordSet 對象的事件編程。9. 在該類的 Initialize 事件中，添加下述代碼：Private Sub