初識vb資料庫凱發之執行個體3（使用資料繫結訪問資料）

製作特點

使用ADOData控制項建立Access資料庫連接,使用文字框的資料繫結特性來顯示資料

 

設計分析

 

首先用ADO Data控制項串連資料庫獲得資料來源,然後將該資料來源綁定到文字框來顯示資料.

優點:使用ADO Data 控制項可以在不編寫代碼的情況下輕鬆實現資料庫訪問.

訪問資料庫的方式

方法1:使用ADO對象,通過編寫代碼訪問資料庫(執行個體1,2)

方法2:使用ADOData控制項快速建立資料庫連接,不用編寫代碼(本例使用)

方法3:使用資料庫環境設計器建立資料庫連接,不用編寫代碼

 

技術要領

 

ADOData控制項的基本結構

單擊使第一個記錄成為目前記錄

單擊使前一個記錄成為目前記錄

單擊使後一個記錄成為目前記錄

單擊使最後一個記錄成為目前記錄

ADOData控制項屬性設定

 

ADOData控制項可以在屬性視窗中設定,還可以通過屬性頁面對話方塊設定

 

以下是使用屬性頁面的方法

 

右擊ADOData控制項選擇ADODC屬性

通用中有三種串連資料庫的方式

此例我們使用第三種

 

設計應用程式表單

設定ADO Data的屬性

       在通用選項卡中選擇使用連接字串選項按鈕,單擊產生,選擇Microsoft Jet4.0 OLE DBProvider,

 單擊下一步,開啟串連選項卡,輸入Access資料庫檔案名,如果資料庫需要身份資訊,則需要制定使用者名稱稱和密碼

單擊確定

開啟
記錄員選項卡,在命令類型下拉式清單中選中 2-adcmdtable,在表或預存程序名稱列表框中選中系統使用者

單擊確定，完成

將第一個文字框的DataSource屬性設定為Adodc1,DataField屬性設定為使用者名稱，第二個文字框的DataSource屬性設定為Adodc1,DataField屬性設定為口令，

 

編寫代碼

 

由於ADO Data控制項的標題預設情況下只能顯示控制項的預設名稱，以下就是通過編寫控制項的MoveComplete事件處理過程代碼使他可以顯示目前記錄序號和總記錄數

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)Adodc1.Caption = "目前記錄：" & Adodc1.Recordset.AbsolutePosition _& "/" & Adodc1.Recordset.RecordCountEnd Sub

運行結果為