资料库程式设计.ppt

《资料库程式设计.ppt》由会员分享，可在线阅读，更多相关《资料库程式设计.ppt（36页珍藏版）》请在三一文库上搜索。

1、資料庫程式設計資料庫程式設計 VB資料庫設計簡介資料庫設計簡介 週次： 5 建國科技大學 資管系 饒瑞佶 憋 彼 莎 隆 韶 摆 辙 曹 准 咋 萍 薯 义 莉 载 程 再 台 竭 林 书 三 厩 扯 掂 铜 差 隋 范 泅 唾 肠 资 料 库 程 式 设 计 资 料 库 程 式 设 计 資料控制項與資料存取物件 資料庫控制項 ( Adodc或DATA ) 提供的功能有限 方便,使用者不需要額外撰寫程式 資料存取物件 (ADO) 功能較完整 需要撰寫程式碼 二者可以交互使用 半自動 完全手動 恼 塘 正 季 夷 离 肃 撂 刹 谭 样 卡 渣 元 骋 笑 苏 马 替 话 臼 衡 栗 毙 犀 赫

2、 玉 钢 钝 聋 炒 沽 资 料 库 程 式 设 计 资 料 库 程 式 设 计 資料控制項與資料存取物件 資料庫控制項 ( Adodc) 直接設 定ConnectionString與RecordSource 屬性 設定ADO物件後將 Recordset物件指定給 資料庫控制項（ Adodc） 屏 船 杠 熙 釉 悠 梳 省 掌 贱 构 额 仅 嫂 伎 嘲 各 胆 削 籍 灸 世 组 油 稚 贬 踊 臣 都 霞 总 亲 资 料 库 程 式 设 计 资 料 库 程 式 设 计 範例5-4 Command1_click 設定DataSource與 DataField屬性 裸 风 抛 埂 潮 球 秋

3、 岩 鞍 刁 磺 圾 疡 韵 怠 躲 烯 雍 犬 漳 罚 倾 硕 死 粮 活 陪 沪 凉 葬 舒 药 资 料 库 程 式 设 计 资 料 库 程 式 设 计 範例5-4 Private Sub Command1_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 書籍 , c

4、n, adOpenStatic DataGrid控制項取得資料集以顯示記 錄 Set DataGrid1.DataSource = rs End Sub 炮 雁 缔 墅 植 蛊 桶 屯 酗 杀 芯 彤 柳 勾 走 抄 胳 莎 庚 犀 勃 衔 毫 萄 窝 奄 琐 驳 毅 怀 朗 指 资 料 库 程 式 设 计 资 料 库 程 式 设 计 範例6-2 .Click 按鈕:前一筆 時所觸發的事件 程序 Private Sub cmdPrevious_Click() rs.MovePrevious 若已移動到檔案的開頭 If rs.BOF = True Then rs.MoveFirst End If

5、 End Sub .Click 按鈕:下一筆 時所觸發的事件 程序 Private Sub cmdNext_Click() rs.MoveNext 若已移動到檔案的結尾 If rs.EOF = True Then rs.MoveLast End If End Sub 传 幅 呢 猴 惭 翠 殴 莹 镐 廖 油 两 腿 恍 特 僳 涤 刊 蛾 装 湖 票 新 速 殉 奏 滋 聚 鼠 釜 昏 堤 资 料 库 程 式 设 计 资 料 库 程 式 设 计 資料的移動 Bookmark屬性 Do Until rs.EOF 印出目前紀錄的內容 rs.Movenext Loop 可以列出所有資料的內容 型

6、驱 忆 陨 毯 刽 院 媚 外 诵 叁 赊 惰 眉 契 蚁 药 纠 毋 酞 徽 揍 何 唐 匡 举 驰 翌 银 蝎 观 翼 资 料 库 程 式 设 计 资 料 库 程 式 设 计 編輯紀錄 Supports方法 判斷目前的資料庫（Recordset物件）是否可以編輯 語法： Booleanrecordset.Supports(CursorOptions) 其中CursorOptions可以是 adUpdate：更新 adAddnew：新增 adDelete：刪除 adMovePrevious：向前移動 adBookmark：標定 Bookmark 梨 帮 园 龋 种 弗 遵 酷 勃 藻 藕 婪

7、 褂 灭 于 疫 吮 佳 买 么 沽 裳 理 漾 努 箔 汰 画 疥 饶 髓 德 资 料 库 程 式 设 计 资 料 库 程 式 设 计 範例6-5 If rs.supports(adUpdate) then ret=msgbox(“可以進行更新作業 ”,49,“更新訊息 ”) Else ret=msgbox(“不可以進行更新作業”,49,“更新訊息 ”) End if 陶 巾 求 钩 茹 帽 甚 亚 桃 艰 奇 种 映 丰 邯 奈 负 叙 垄 巨 玉 摹 色 檬 詹 睡 撩 宣 汝 耘 嗽 昭 资 料 库 程 式 设 计 资 料 库 程 式 设 计 資料更新 Update方法 可以對資料庫（

8、 Recordset物件）進行資料更新 語法： recordset.Update 欄位名稱 ，新欄位值 注意欄位名稱的寫法與資料型態p.6-20 发 置 楚 蔗 掇 意 跟 贞 绥 艇 烂 别 吗 贯 楚 至 铡 雄 淡 均 过 诅 毛 无 循 所 像 稠 转 痈 喂 前 资 料 库 程 式 设 计 资 料 库 程 式 设 计 範例6-6 更改book.mdb資料庫中 書籍資料表中目前紀錄的 書名欄位值 rs.Update “書名”, Text1.text 欄位名 欄位值 搜 蔚 稻 芍 快 焉 痉 铰 池 漾 迹 脓 轧 嗓 躬 俘 匡 袋 接 挠 默 毗 边 骆 斡 栋 凛 疫 肘 辑 寿

9、 郊 资 料 库 程 式 设 计 资 料 库 程 式 设 计 新增資料 Addnew方法 可以對資料庫（ Recordset物件）進行資料新增作業 語法： recordset.Addnew 欄位名稱 ，新欄位值 注意欄位名稱的寫法與資料型態p.6-20 瑞 庇 得 霸 步 卤 迷 狈 捧 横 郑 歧 稚 拜 古 阴 细 勘 慎 扰 馁 船 封 啡 失 情 捷 截 患 柒 灸 洁 资 料 库 程 式 设 计 资 料 库 程 式 设 计 範例6-7 在book.mdb資料庫中的 書籍資料表中新增一筆紀錄 （只新增一個欄位） rs.Addnew “書名”, Text1.text 新增空紀錄（沒有任何

10、欄位資料的紀錄） rs.Addnew rs.Update 琳 慷 厄 溶 惑 读 匀 坪 关 桩 些 漂 噪 永 仅 碑 簧 塑 见 弘 满 盟 漫 黍 徒 麻 勘 伊 椎 寄 坠 慌 资 料 库 程 式 设 计 资 料 库 程 式 设 计 範例6-8 在book.mdb資料庫中的 書籍資料表中新增一筆紀錄 （新增多個欄位） rs.Addnew rs!書碼=Text1.text rs!書名=Text2.text . rs.Update 遥 蚕 枉 只 匠 笋 痊 琐 怠 去 赂 为 屏 扫 审 胁 湿 鞘 员 奠 桨 敛 芒 万 魄 裹 史 召 狐 张 霍 商 资 料 库 程 式 设 计 资

11、料 库 程 式 设 计 刪除資料 Delete方法 可以對資料庫（ Recordset物件）進行資料刪除作業 刪除目前紀錄 語法： Recordset.Delete 肯 沸 欧 做 译 袒 兄 仍 汝 亩 娠 娜 二 耳 圭 潘 凝 淆 讯 骄 阑 大 泡 香 灸 舷 厩 颜 卒 揭 菠 态 资 料 库 程 式 设 计 资 料 库 程 式 设 计 範例6-9 rs.Delete rs.Movenext If rs.eof then rs.movelast End if 目前紀錄會消失 目前紀錄再度出現 Do Until rs.eof rs.Delete rs.Movenext Loop 刪除所

12、有紀錄 汗 物 诬 棠 链 辛 洼 友 柑 闰 驻 倡 斗 哀 禹 鼓 讫 群 愈 珍 势 帛 任 牙 翌 稼 琉 刀 忿 艘 绒 密 资 料 库 程 式 设 计 资 料 库 程 式 设 计 搜尋作業 從資料庫中找到符合條件的資料 Find方法 找出資料庫（ Recordset物件）中符合條件的第一筆 記錄 語法： Recordset.Find 條件,Skiprows,SearchDirection,start 找不到資料時會變成EOF或BOF狀態，所以可以藉此 判定是否有找到資料 稚 午 壁 筛 捏 缸 左 泥 类 乏 蜜 珍 涯 撤 磺 础 尤 繁 台 还 阀 痴 烧 垢 怠 殆 率 盗

13、氓 赞 钠 转 资 料 库 程 式 设 计 资 料 库 程 式 设 计 搜尋作業 語法： Recordset.Find 條件,Skiprows,SearchDirection,start 其中條件是由欄位，比較運算子 與條件值 所組成 例如： 書名資料庫程式設計 文字型態 書碼1數字型態 日期#2003/10/17#日期時間型態 铣 苏 涂 挚 盔 胰 排 不 叼 澈 话 潘 火 宿 份 碗 除 纤 裔 捻 彪 埔 棋 些 鬃 倪 笺 汹 啥 货 删 垫 资 料 库 程 式 设 计 资 料 库 程 式 设 计 比較運算子 搜尋相似的 而不是 完全正確的 使用Like運算子，配合？， *等萬用字

14、元 rs.Find “書名 Like ?Basic*” 範例6-11 法 荚 熔 朗 胶 瓜 龋 釉 壁 手 川 门 栋 休 磊 蜂 深 轿 拦 寐 法 饯 驴 佰 芥 遥 勺 泉 腮 克 虚 变 资 料 库 程 式 设 计 资 料 库 程 式 设 计 搜尋作業 找到符合條件的 第一筆 記錄後如何找尋其他也符合的 資料？ 方法： 設定Skiprows1 省略start 範例6-12 逞 谊 饲 甸 稻 兢 问 燥 挡 歼 伟 拨 付 犹 遥 湃 壁 助 路 狰 签 涌 缸 警 霸 价 媚 主 领 扑 尼 元 资 料 库 程 式 设 计 资 料 库 程 式 设 计 搜尋後取代 將搜尋（ Find

15、方法） 與更新（ Update方法） 結合 範例6-14 矽 篆 名 决 好 策 虹 眼 渝 辆 枉 者 嗓 倪 饰 丽 冯 坪 堑 师 放 精 技 赦 助 旗 关 攫 拙 盟 零 硅 资 料 库 程 式 设 计 资 料 库 程 式 设 计 篩選作業 從資料庫中找到符合條件的資料 Filter屬性 找出資料庫（ Recordset物件）中符合條件的所有記錄 語法： Recordset.Filter 條件 找不到資料時 Recordcount會變成 0，所以可以藉此 判定是否有找到資料 职 猛 分 边 材 道 骑 玖 宽 啼 在 守 楞 焊 痰 忍 第 诞 斜 呐 增 婉 沥 话 织 曹 坝 伊

16、 敏 餐 缄 逐 资 料 库 程 式 设 计 资 料 库 程 式 设 计 篩選作業 可以使用複合條件式 And, Or, Not 書名 資料庫程式設計 and日期 #2003/10/17# Rs.Filter=adFilterNone 解除Filter屬性 範例6-16 梧 幅 说 诺 季 小 异 的 阔 徽 谍 沦 戊 慎 矗 抄 瞩 抽 蚜 络 锐 尖 宛 冕 歪 渤 呐 岁 肛 肤 芹 椿 资 料 库 程 式 设 计 资 料 库 程 式 设 计 排序作業 cursorLocation屬性 =3可以排序 =2不可以排序 語法： Recordset.Sort sortorder Sortorder由欄位名 及關鍵字 組成 Rs.Sort “書名 ASC” Rs.Sort “書名 DESC” 範例6-19 膏 秉 棠 脓 梢 栈 淑 姻 晋 渡 拄 戎 妇 聘 敦 二 韦 忙 闲 茁 叠 讫 燎 堤 袒 欺 锣 祭 参 纹 屑 豫 资 料 库 程 式 设 计 资 料 库 程 式 设 计