【文章內容簡介】 工 安徽理工大學計算機學院 27 ② 放置和設置數據綁定控件。 ? 在窗體上放置若干標簽、文本框Text1~Text4 和 OLE控件OLE1。屬性設置如右表 。 對象 DataSource屬性 DataField屬性 Text1 Data1 工號 Text2 姓名 Text3 性別 Text4 出生日 期 OLE1 相片 安徽理工大學計算機學院 28 ③ 運行調試程序 ? 將該窗體設為啟動窗體，運行程序后通過單擊 Data控件兩端的按鈕，就可以看到綁定控件中的內容隨著記錄的變化而變化。 ? 由此可見，對于 Access數據庫的簡單本地訪問，使用 Data數據控件很方便。但 Data控件屬于 DAO對象，屬于微軟早期的技術，其編程模型和編程方法比較復雜，功能也較弱。若要開發(fā)針對其他數據庫或較復雜的數據訪問程序，建議采用 ADO對象。 安徽理工大學計算機學院 29 使用 ADO的 Adodc控件訪問數據庫 [例 72] 通過 ADO控件創(chuàng)建數據訪問窗體，如圖 74所示。 該 窗體用于顯示和編輯數據庫中選定部門“ 員工 ” 表的數據，其中組合框用于選擇部門，表格用于顯示員工數據，ADO控件 Adodc1和Adodc2用于連接數據庫獲取數據。 安徽理工大學計算機學院 30 1．添加和放置 ActiveX數據控件 ? 該窗體中的 Adodc控件 和 DataGrid、DataCombo控件都 是 ActiveX控件 ， 在使用之前應先將這些控件添加到工具箱中 。 ? 選擇 “ 工程 ” 菜單中的 “ 部件 ” 命令，或在工具箱上單擊鼠標右鍵，從彈出的快捷菜單中選擇“ 部件 ” 命令，打開 “ 部件 ” 對話框 。在 “ 部件 ”對話框中選中 Microsoft ADO Data Control （ OLEDB）、 Microsoft DataGrid Control （ OLEDB）和 Microsoft DataList Controls （ OLEDB），將 Adodc、 DataGrid 和 DataList、 DataCombo控件添加到工具箱中 。 安徽理工大學計算機學院 31 2．設置 ADO數據控件的主要屬性 ⑴ 連接屬性 ConnectionString 該屬性為字符串變量，用來設置 ADO控件和數據庫連接的連接字符串，通過這個連接可以建立與數據源的連接信息，實現 ADO控件與相應的數據庫進行連接。該屬性包含的內容較多，通常用可視化的方法通過 ADO屬性頁來設置。 打開 ADO屬性頁的方法：在窗體上用鼠標右擊ADO數據控件，在彈出的快捷菜單中選擇“ ADODC屬性 ” ，或在 “ 屬性 ” 窗口中單擊ConnectionString屬性右邊的 “ …” 按鈕 。 安徽理工大學計算機學院 32 ⑵ Recordsource屬性 該屬性用來設置與 ADO連接的數據庫中的記錄源 。在 ADO屬性頁對話框中，通過“ 記錄源 ” 選項卡，可以從以下 4種命令類型中選擇一種： 8adCmdUnknown：未知，為系統(tǒng)默認值。 1adCmdText：文本命令類型。 2adCmdTable：數據表。 4adCmdStoredProc： 存儲過程。 安徽理工大學計算機學院 33 3．設置數據綁定控件的數據屬性 將 DataGrid1的 DataSource屬性設置為 Adodc1，在 DataGrid1控件上單擊鼠標右鍵，從彈出的快捷菜單中選擇 “ 檢索字段 ” ，在打開的對話框中選擇 “ 是 ” 按鈕，這樣 “ 員工 ” 表中的所有字段都將在DataGrid1的列標題中顯示出來。右擊DataGrid1，從彈出的菜單中選擇 “ 編輯 ”命令，對列表框的列寬進行調整。 安徽理工大學計算機學院 34 3．設置數據綁定控件的數據屬性 為了用Adodc2獲取的各部門名稱填充組合框DataCombo1，將組合框DataCombo1的相關屬性按下表進行設置 。 屬 性 設置屬性值 RowSource Adodc2 ListField 部門名稱 BoundColumn 部門 ID Text 選擇部門 安徽理工大學計算機學院 35 4．根據需要編寫代碼動態(tài)改變數據控件的記錄源 方法 1：將部門條件表達式作為記錄集的Filter屬性進行過濾。 Private Sub DataCombo1_Change() 39。組合框內容變化事件 = 部門 ID = 39。 amp。 amp。 39。 End Sub 安徽理工大學計算機學院 36 4．根據需要編寫代碼動態(tài)改變數據控件的記錄源 方法 2：將部門條件表達式作為 SQL命令 Where子句的條件，重新設置 Adodc1的 DataSource屬性。 Private Sub DataCombo1_Change() ?組合框內容變化事件 = select * from 員工 where 部門 ID = 39。 _ amp。 amp。 39。 39。刷新 Adodc1 End Sub 安徽理工大學計算機學院 37 利用數據環(huán)境設計器訪問數據庫 數據環(huán)境設計器可以在只使用一個數據庫連接的情況下，利用 SQL生成器用可視化的方法創(chuàng)建多個具有各種復雜操作功能的ADO命令對象，并且在設計時支持拖放編輯，即可以直接從數據環(huán)境設計器將命令對象拖放到數據窗體和數據報表。這種方法特別適合需要進行復雜數據庫操作的應用程序。 安徽理工大學計算機學院 38 設計數據窗體 [例 73] 利用數據環(huán)境設計器設計數據訪問窗體。創(chuàng)建如 圖 710 所示的 “ 員工信息查詢 ”窗體。分別用組合框選擇部門和職務，文本框用于輸入要查找的關鍵字，單擊 “ 確定 ”按鈕后，在網格中顯示出符合條件的記錄。 安徽理工大學計算機學院 39 設計步驟 ： ① 在工程中添加數據環(huán)境設計器 Data Environment。 如果在創(chuàng)建工程時選擇的是 “ 數據工程 ” ，則在工程中就會有一個數據環(huán)境設計器 Data Environment1, 若在工程資源管理器中看不到該設計器，可以選擇 “ 工程 ” → “ 添加 Data Environment” 添加數據環(huán)境設計器。 ② 在數據環(huán)境中創(chuàng)建連接對象。 添加數據環(huán)境設計器后，雙擊設計器中的 Data Environment1，打開數據環(huán)境設計器窗口，右擊Data Environment1下的連接對象 Connection1，從彈出的快捷菜單中選擇 “ 屬性 ” ，可對該連接對象進行數據連接屬性的設置。 安徽理工大學計算機學院 40 設計步驟 ： ③ 添加命令對象。 從 Connection1的快捷菜單中選擇 “ 添加命令 ” ，可以在連接對象下添加一個命令對象，默認的命令名稱為 C