圖 1. 登錄 ADO Data 控制項 2

Size: px

Start display at page:

Download "圖 1. 登錄 ADO Data 控制項 2"

图毋
5 years ago
Views:

作者 : 洪永杰 (2002-04-19), 推薦 : 徐業良 (2002-04-22) 以 Visual Basic 作復健運動腳踏車資料庫程式設計 Visual Basic 本身並沒有存取資料庫的基本能力, 但是隨著應用程式的資料處理量日益增多, 因此提供一個效率好又統一的資料庫存取介面是必須的, 因此 Microsoft 公司提供了 ActiveX Data Component 物件模組

1 作者 : 洪永杰 ( ), 推薦 : 徐業良 ( ) 以 Visual Basic 作復健運動腳踏車資料庫程式設計 Visual Basic 本身並沒有存取資料庫的基本能力, 但是隨著應用程式的資料處理量日益增多, 因此提供一個效率好又統一的資料庫存取介面是必須的, 因此 Microsoft 公司提供了 ActiveX Data Component 物件模組 (ADO 物件 ) 以供 Visual Basic 應用程式能順利存取資料庫本文將利用 VB 所提供的的兩種控制元件 -ADO Data Control ( 簡稱 ADODC) 及 DataGrid 來作為資料庫的主要程式設計, 同時以復健運動腳踏車資料庫為例, 做一有系統之闡述 1. 設定 ADODC 的 ConnectionString 屬性由於 ADODC 及 DataGrid 都屬於外掛式的控制元件, 使用之前必須先經過引用的程序引用的方法是首先選取 VB 功能表的專案設定使用元件, 待出現設定使用元件交談視窗時, 選取其中的 Microsoft ADO Data Control 6.0 及 Microsoft DataGrid Control 6.0, 如圖 1 所示, 同時在圖 2 的表單上佈置一個 ADODC 1

2 圖 1. 登錄 ADO Data 控制項 2

3 圖 2. 在表單中佈置資料控制項 (ADODC) 在佈置完資料控制項 (ADODC) 後, 還必須設定一些基礎屬性的設定在 ADODC 上面按下滑鼠右鍵, 待出現快顯功能表時, 選取 ADODC 的屬性, 進行如圖 3 的設定要特別的是 VB 6.0 連結資料庫時, 需要使用 OLE DB Provider 來設定連結, OLE DB Provider 的服務對象包括各種不同資料庫格式如 Jet SQL Oracle 等在此因復健運動腳踏車資料庫 Bike.mdb 為 Microsoft Access 的格式, 因此在圖 3 的設定步驟 2 中必須選擇 Microsoft Jet 3.51 OLE DB Provider 此一選項同於步驟 3 中需要指定所要開啟資料庫的路徑與檔名, 以及使用者名稱與密碼 3

4 圖 3. 設定 ADODC ConnectionString 屬性步驟 2. 設定 ADODC 的 RecordSource 屬性當連結完資料庫的工作完成後, 欲使程式能取得資料庫中的資料記錄, 必須設定資料來源, 即 ADODC 的 RecordSource 屬性, 資料來源可以是資料庫的某個表格或是執行 SQL 敘述所取得的資料記錄的集合,RecordSource 屬性的設定步驟如圖 4 所示在屬性頁裡資料錄來源請選擇 2-adCmdTable, 代表取得的資料來源為資料庫中的表格 4

5 圖 4. 設定 ADODC RecordSource 屬性步驟 3. 設定連結控制項的屬性設定好 ADO Data 控制項的 ConnectionString 屬性和 RecordSource 後, 基本上應用程式已經可以連結上資料庫並取得資料集, 若是要將取得的資料記錄顯示出來, 則需要利用連結控制項, 本文將利用 TextBox 控制項來顯示資料記錄要使 TextBox 控制項能顯示資料有下列 2 件事必須完成 : (1) 取得 ADO Data 控制項的資料來源 ( 設定 DataSource 屬性 ) (2) 設定想要顯示的資料內容 ( 設定 DataField 屬性 ) 連結控制項的 DataSource 屬性的設定步驟如圖 5 所示, 其主要的任務為取得由 ADO Data 控制項所取得的資料來源, 以供顯示之用, 因此 DataSource 屬性, 必須設定成 ADO Data 控制項名稱, 即 ADO Data 控制項的 Name 屬性由於本文在表單上只佈置一個 ADO Data 控制項, 因此只能看到一個名稱, 即 adodc1( 意即圖 5 中的 data), 此時即完成 DataSource 屬性的設定工作 5

6 圖 5. 設定 TextBox 的 DataSource 屬性設定好 DataSource 屬性後, 尚需設定 DataField 屬性, 以使資料來源的欄位內容能於適當的 TextBox 控制項中顯示出來, 因此設定 DataField 屬性的重點即是選擇適當的欄位名稱即可, 設定步驟如圖 6 6

7 圖 6. 設定 TextBox 的 DataField 屬性 4. 資料庫程式設計使用 VB 設計程式, 通常事先設計畫面與畫面上的控制項, 等大略訂定好畫面之後, 再針對各個控制項的不同事件加入程式碼補強圖 6 已經定好所有要使用的控制項及其屬性, 現在將進一步加上程式碼來補強設定控制項屬性時所達不到的功能圖 7 中加入了包含新增刪除寫入瀏覽及脫離等 5 個命令按鈕提供使用者方便用滑鼠做點選的工作同時這些命令按鈕所對應的程式碼如圖 8 所示 7

8 圖 7. 於表單上加入命令按鈕 8

圖 8. 命令按鈕相關程式碼上述整個程式設計是由一個 Select Case 敘述所架構而成, 當使用者點選新增按鈕時,VB 會執行 Command4_Click() 副程式裡的程式碼, 並且傳入參數 Index 為 0; 當使用者點選刪除按鈕時,VB 會執行 Command4_Click() 副程式裡的程式碼,

9 圖 8. 命令按鈕相關程式碼上述整個程式設計是由一個 Select Case 敘述所架構而成, 當使用者點選新增按鈕時,VB 會執行 Command4_Click() 副程式裡的程式碼, 並且傳入參數 Index 為 0; 當使用者點選刪除按鈕時,VB 會執行 Command4_Click() 副程式裡的程式碼, 並且傳入參數 Index 為 1, 其它以此類推因此以 Select Case 敘述來判別 Index 的值, 即可決定要處理的功能為何細節說明如下 : data.recordset.addnew 在 data 的資料錄中加入一筆新的資料 data.recordset.cancelupdate 在 data 的資料錄中放棄新增一筆新的資料 9

10 圖 9 所示為刪除資料庫裡資料所需的相關程式碼在程式執行的過程中, 若要刪除紀錄, 系統就真的會直接把紀錄給刪除, 因此為了避免誤刪, 特別設計了一個 MsgBox 對話框來提供使用者作確認的動作圖 9. 刪除資料庫資料相關程式碼 data.recordset.delete 刪除資料庫裡目前所使用的資料錄 data.refresh, data.recordset.movelast 在刪除完資料錄後程式並不會自動跳到其他資料錄, 因此必須借助 Refresh 的方式取得最新資料錄狀態或是使用 MoveLast 移動資料錄位置, 才能避免這個問題通常如果資料庫裡面還有資料, 會使用 MoveLast 的方式 ; 如果已經沒有資料, 則使用 Refresh 的方法最後, 圖 10 所示為資料庫查詢功能的相關程式碼所謂查詢其意義為從 RecordSet 物件中找出符合條件的資料記錄的過程, 找出合乎條件的紀錄後, 該紀錄將被設定為目前紀錄, 在一般資料庫應用程式中, 這是不可或缺的一個動作 10

圖 10. 資料庫查詢功能相關程式碼當使用者點選表單上的資料 - 查詢, 會出現如圖 10 的對話框讓使用者輸入欲查詢的條件值 ( 如姓名日期 ), 程式便依據此條件值, 在資料庫中尋找姓名日期資料欄的值符合這個條件式的資料錄如果找不到該筆資料時, 便會彈跳出一個對話方塊, 告訴使用者找不到指定的資料 data.recordset.

11 圖 10. 資料庫查詢功能相關程式碼當使用者點選表單上的資料 - 查詢, 會出現如圖 10 的對話框讓使用者輸入欲查詢的條件值 ( 如姓名日期 ), 程式便依據此條件值, 在資料庫中尋找姓名日期資料欄的值符合這個條件式的資料錄如果找不到該筆資料時, 便會彈跳出一個對話方塊, 告訴使用者找不到指定的資料 data.recordset.find State = NY " 此行程式所代表的意思為搜尋 data 資料錄裡符合 State 資料欄值等於 NY 的紀錄如果找到的話, 紀錄指標會停在這一筆資料上, 否則便會跳到檔案的最末端參考資料許舜淵編著,Visual Basic 6 資料庫實務設計入門篇, 碁峰資訊,1999 V.K 工作室編著,Visual Basic 6 資料庫程式設計, 知城數位,2001 王國榮著, 新觀念的 Visual Basic 6.0 教本, 旗標,

VB控件教程大全

VB控件教程大全 Datagrid DataGrid1.Columns.Remove(0) ' 0 DataGrid1.Columns.Add(0).Caption= ' DataGrod1.Columns(0).DataField= Name ' Adodc1.Refresh DataGrid BackColor Font DataGrid CellPadding HTML CellSpacing HTML Width