vb的datagrid控件的使用(二)

1、vb的datagrid控件的使用（二）時(shí)間:2007-05-05 創(chuàng)建 Northwind 的OLE DB 數(shù)據(jù)鏈接訪問數(shù)據(jù)的一個(gè)重要步驟是為想要訪問的每個(gè)數(shù)據(jù)庫都創(chuàng)建一個(gè) OLE DB數(shù)據(jù)源。下面的步驟為 Visual Basic 所提供的Nwind.mdb (Northwind) 數(shù)據(jù)庫創(chuàng)建這樣一個(gè)對(duì)象。這個(gè)數(shù)據(jù)源被用于 Visual Basic 文檔所提供的一些示例過程。在一個(gè)計(jì)算機(jī)上只需要?jiǎng)?chuàng)建一次OLE DB數(shù)據(jù)源。要?jiǎng)?chuàng)建 Northwind 的OLE DB 數(shù)據(jù)源1. 打開 Windows Explorer或 Windows NT Explorer。2. 打開您想要?jiǎng)?chuàng)建 OLE DB

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

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

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

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

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

7、將出現(xiàn)在 DataGrid 控件中。要使用一個(gè)指定供應(yīng)商的產(chǎn)品填充一個(gè) DataGrid 控件1. 確認(rèn)在機(jī)器上已為 Northwind 數(shù)據(jù)庫建立了一個(gè)OLE DB 數(shù)據(jù)源；如果還沒有創(chuàng)建這樣的一個(gè)數(shù)據(jù)源，請(qǐng)按照“創(chuàng)建 Northwind 的OLE DBData連接”的步驟操作。2. 在Visual Basic 中創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)的 EXE 工程。如果 DataGrid、DataList 和 ADO Data 控件不在“工具箱”中，則右鍵單擊“工具箱”，然后單擊“部件”。在“部件”對(duì)話框中雙擊“MicrosoftDataGrid Control”、“Microsoft DataList Co

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

9、id 控件的下面。5. 將這兩個(gè) ADO Data 控件的 ConnectionString 屬性設(shè)置為 Northwind的OLE DB 數(shù)據(jù)源。選擇名為 adoSuppliers 的控件，然后將其ConnectionString 屬性設(shè)置為Northwind 的OLE DB data source (Northwind.mdl)。選擇名為 adoProducts的控件，并重復(fù)該操作。6. 設(shè)置這兩個(gè) ADO Data 控件的 RecordSource 屬性。選擇 adoSuppliers 并在其“屬性頁”上單擊“RecordSoure”。輸入 Select* From Suppliers。

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

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

12、rid 控件的 DataSource 屬性設(shè)置為 adoProducts。DataSource 屬性為該控件指定數(shù)據(jù)源。在本例中，該屬性被設(shè)置為名為adoProducts 的 ADO Data 控件，這將返回 Products 表中的所有記錄。11. 在窗體的代碼模塊中，添加下述內(nèi)容：Private Sub Datalist1_Click()' 聲明一個(gè)用來包含新查詢的字符串變量。這個(gè)新的' 查詢使用 DataList 控件的BoundText屬性' 來提供一個(gè) SupplierID 值。新查詢查找所有' 具有相同的 SupplierID 的產(chǎn)品。這個(gè)查詢被' 指定給名為 adoProducts 的 ADO Data 控件' 的 RecordSource 屬性。在刷新控件后，DataGrid' 將使用包含由同一個(gè)公司供應(yīng)的所有產(chǎn)品的新' 記錄集來更新。Dim strQuery As StringstrQuery = "Select * FROM Products WHERE SupplierID =