《《资料库程式设计》PPT课件》由会员分享，可在线阅读，更多相关《《资料库程式设计》PPT课件（36页珍藏版）》请在装配图网上搜索。
1、資料庫程式設計VB資料庫設計簡介週次：5建國科技大學 資管系 饒瑞佶 資料控制項與資料存取物件資料庫控制項 ( Adodc或DATA )提供的功能有限方便,使用者不需要額外撰寫程式資料存取物件 (ADO)功能較完整需要撰寫程式碼二者可以交互使用半自動完全手動 資料控制項與資料存取物件資料庫控制項 ( Adodc)直接設定ConnectionString與RecordSource屬性設定ADO物件後將Recordset物件指定給資料庫控制項（Adodc） 範 例 5-4 Command1_click設定DataSource與DataField屬性 範 例 5-4Private Sub Comma
2、nd1_Click() 連結資料庫 Set cn = New ADODB.Connection cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51; _ _ _ & Data Source=C:VB6DBBook.mdb cn.Open 取得資料集 Set rs = New ADODB.Recordset rs.Open 書籍 , cn, adOpenStatic DataGrid控制項取得資料集以顯示記錄 Set DataGrid1.DataSource = rsEnd Sub 範 例 6-2 .Click 按鈕:前一筆 時所觸發的
3、事件程序Private Sub cmdPrevious_Click() rs.MovePrevious 若已移動到檔案的開頭 If rs.BOF = True Then rs.MoveFirst End IfEnd Sub .Click 按鈕:下一筆 時所觸發的事件程序Private Sub cmdNext_Click() rs.MoveNext 若已移動到檔案的結尾 If rs.EOF = True Then rs.MoveLast End IfEnd Sub 資料的移動Bookmark屬性Do Until rs.EOF 印出目前紀錄的內容rs.MovenextLoop可以列出所有資料的內容
4、 編輯紀錄Supports方法判斷目前的資料庫（Recordset物件）是否可以編輯語法：Booleanrecordset.Supports(CursorOptions)其中CursorOptions可以是adUpdate：更新adAddnew：新增adDelete：刪除adMovePrevious：向前移動adBookmark：標定Bookmark 範 例 6-5If rs.supports(adUpdate) then ret=msgbox(“可以進行更新作業”,49,“更新訊息”)Elseret=msgbox(“不可以進行更新作業”,49,“更新訊息”)End if 資料更新Update
5、方法可以對資料庫（Recordset物件）進行資料更新語法：recordset.Update 欄位名稱，新欄位值注意欄位名稱的寫法與資料型態p.6-20 範 例 6-6更改book.mdb資料庫中書籍資料表中目前紀錄的書名欄位值rs.Update “書名”, Text1.text欄位名欄位值 新增資料Addnew方法可以對資料庫（Recordset物件）進行資料新增作業語法：recordset.Addnew 欄位名稱，新欄位值注意欄位名稱的寫法與資料型態p.6-20 範 例 6-7在book.mdb資料庫中的書籍資料表中新增一筆紀錄（只新增一個欄位）rs.Addnew “書名”, Text1.
6、text新增空紀錄（沒有任何欄位資料的紀錄）rs.Addnewrs.Update 範 例 6-8在book.mdb資料庫中的書籍資料表中新增一筆紀錄（新增多個欄位）rs.Addnew rs!書碼=Text1.text rs!書名=Text2.text .rs.Update 刪除資料Delete方法可以對資料庫（Recordset物件）進行資料刪除作業刪除目前紀錄語法：Recordset.Delete 範 例 6-9rs.Deleters.MovenextIf rs.eof then rs.movelastEnd if 目前紀錄會消失目前紀錄再度出現Do Until rs.eof rs.Dele
7、te rs.MovenextLoop刪除所有紀錄 搜尋作業從資料庫中找到符合條件的資料Find方法找出資料庫（Recordset物件）中符合條件的第一筆記錄語法：Recordset.Find 條件,Skiprows,SearchDirection,start找不到資料時會變成EOF或BOF狀態，所以可以藉此判定是否有找到資料 搜尋作業語法：Recordset.Find 條件,Skiprows,SearchDirection,start其中條件是由欄位，比較運算子與條件值所組成例如：書名資料庫程式設計文字型態 書碼1數字型態 日期#2003/10/17#日期時間型態 比較運算子搜尋相似的而不是完
8、全正確的使用Like運算子，配合？，*等萬用字元rs.Find “書名 Like ?Basic*”範 例 6-11 搜尋作業找到符合條件的第一筆記錄後如何找尋其他也符合的資料？方法：設定Skiprows1省略start範 例 6-12 搜尋後取代將搜尋（Find方法）與更新（Update方法）結合範 例 6-14 篩選作業從資料庫中找到符合條件的資料Filter屬性找出資料庫（Recordset物件）中符合條件的所有記錄語法：Recordset.Filter 條件找不到資料時Recordcount會變成0，所以可以藉此判定是否有找到資料 篩選作業可以使用複合條件式And, Or, Not書名資料庫程式設計 and日期#2003/10/17#Rs.Filter=adFilterNone 解除Filter屬性範 例 6-16 排序作業cursorLocation屬性=3可以排序=2不可以排序語法：Recordset.Sort sortorderSortorder由欄位名及關鍵字組成Rs.Sort “書名 ASC”Rs.Sort “書名 DESC”範 例 6-19
《资料库程式设计》PPT课件
