资料控制项与资料存取物件.pptVIP

資料控制項與資料存取物件 資料控制項與資料存取物件 資料控制項與資料存取物件 UI範例 ADO ? ADODC範例 ADO直接顯示範例 ADO物件對資料庫的操作 資料的移動 範例 範例 範例 編輯紀錄 範例 資料更新 範例6-6 新增資料 範例 範例 刪除資料 範例 搜尋作業 * * 資料庫控制項 ( Adodc或DATA ) 提供的功能有限 方便,使用者不需要額外撰寫程式 資料存取物件 (ADO) 功能較完整 需要撰寫程式碼 二者可以交互使用，但不建議 半自動 完全手動 資料庫控制項 ( Adodc) 直接設定ConnectionString與RecordSource屬性 設定ADO物件後將Recordset物件指定給資料庫控制項（Adodc） ADO物件 顯示元件 如TEXT 設定產生Connection與 Recordset物件 Command1_click 設定DataSource與 DataField屬性 Private Sub Command1_Click() 連結資料庫 Set cn = New ADODB.Connection cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source=C:\VB6\DB\Book.mdb cn.Open 取得資料集 Set rs = New ADODB.Recordset rs.Open 書籍, cn, adOpenStatic ‘ 設定ADO物件取得資料集 ‘ 要設定成adOpenStatic Set adoBook.Recordset = rs End Sub Private Sub Command1_Click() 連結資料庫 Set cn = New ADODB.Connection cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51; _ Data Source=C:\VB6\DB\Book.mdb cn.Open 取得資料集 Set rs = New ADODB.Recordset rs.Open 書籍, cn, adOpenStatic 設定連結控制項的屬性 Set Text1.DataSource = rs Text1.DataField = 書名 Set Text2.DataSource = rs Text2.DataField = 作者 Set Text3.DataSource = rs Text3.DataField = 分類 Set Text4.DataSource = rs Text4.DataField = 出版社“ End Sub 操作項目： 資料錄的移動 資料錄的編輯 新增資料錄 刪除資料錄 搜尋資料錄 篩選資料錄 資料排序 對象都是目前紀錄（Current Record） 使用Move方法 語法：Recordset.Move skipRecords, Start skipRecords：移動時要跳過幾筆記錄 +表示向最後一筆資料方向移動 －表示向第一筆資料方向移動 Start：移動的起始位置，預設為目前紀錄 adBookmarkFirst，以第一筆紀錄為起始點 adBookmarkLast，以最後一筆紀錄為起始點 注意移動過程可能會有超過BOF或EOF的錯誤狀況產生 Private Sub Form_Load() 連結資料庫 Set cn = New ADODB.Connection cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source=C:\VB6\DB\Book.mdb cn.Open 取得資料集 Set rs = New ADODB.Recordset rs.Open 書籍 , cn, adOpenStatic ‘ DataGrid控制項取得資料集以顯示記錄 ‘要指定給datagrid一定要設定成adOpenStatic Set DataGrid1.DataSour