网站大量收购独家精品文档,联系QQ:2885784924

a7第9章ado物件應用和程式設計.ppt

  1. 1、本文档共64页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
a7第9章ado物件應用和程式設計

主從式資料庫系統 - CH9 第9章ADO 物件應用和程式設計 本章宗旨 簡介ADO物件結構與引用方式 簡介ADO物件各項資料操作指令 介紹資料表讀寫模式與鎖定方法 介紹多功能整合式表單設計方法 介紹DataGrid之應用方式及屬性 介紹在Access內執行MySQL專案檔之方式 介紹以Access SendObject指令傳送E-mail之方法 大 綱 9-1 ADO簡介 9-2 ADO指令簡介 9-3 DataGrid物件簡介 9-4 進階應用 9-1 ADO簡介 9-1-1 ADO基礎 9-1-2 ADO物件結構 9-1-3 前置處理 9-1-1 ADO基礎 ADO為ActiveX Data Object之縮寫字 透過微軟之OLEDB系統介面,可直接存取、編輯和更新所連線的資料源 常用來查詢一個資料表或是關聯式資料庫內的數個資料表、擷取和展示應用系統之處理結果,以及允許處理人員更新處理結果 9-1-1 ADO基礎(續) ADO用途: 使用SQL指令操作資料庫 透過Internet存取遠端資料 操作郵件系統之信息 將資料庫資料轉存為XML格式資料 存取XML格式資料 檢視和更新資料表內資料 ADO用途 執行參數式查詢 執行預儲程序(Stored Procedures) 建立暫存表來處理過渡資料 執行交易處理 以動態模式過濾和排序資料 以離線方式處理遠端資料 9-1-2 ADO物件結構 9-1-3 前置處理 執行ADO物件方法時,必須先將ADO物件方法引入程序檔 需同時引入DAO和ADO物件,而且DAO要在ADO上面 9-2 ADO指令簡介 9-2-1 資料連結 9-2-2 開啟紀錄集 9-2-3 資料處理程序 9-2-4 批次更新、轉檔及刪除 9-2-5 參數式查詢 9-2-6 紀錄及欄位操作指令說明 9-2-1 資料連結 ADO與其它資料庫連結方式 直接以連線物件連結(ADODB.Connection) 透過DSN來連線 以連線物件連結範例 在conModule模組開頭宣告共用變數 Public adCon As New ADODB.Connection ‘宣告公用連線物件變數 Public adRs As New ADODB.Recordset ‘宣告公用紀錄集物件變數 以連線物件連結範例(續) 2. 檢查連線物件狀態 1. Public Sub checkCon(i As Integer) 2. On Error GoTo chkcon_err: 3. If i = 1 Then 4. If Not adCon.state = adStateOpen Then Call openCon() 5. Else 6. Call closeCon 7. End If 8. Exit Sub 9. chkcon_err: 10. MsgBox Err.Description 11. End Sub 以連線物件連結範例(續) 3. 開啟連線公用程序 1. Public Sub openCon() 2. On Error GoTo opnCon_err_end: 3. Dim cn_str As String 4. cn_str = DRIVER = {MySQL ODBC 3.51 Driver}; _ SERVER = localhost; _ DATABASE = mysal; _ User = 帳號; Password = 密碼; OPTION=3 3. 開啟連線公用程序(續) 5. If Not adCon.state = adStateOpen Then 6. adCon.CursorLocation = adUseClient 7. adCon.ConnectionString = cn_str 8. adCon.Open 9. End If 10. Exit Sub 11. opnCon_err_end: 12. MsgBox Err.Description 13. End Sub 4. 關閉連線公用程序 1. Public Sub closeCon() 2. If adCon.state = adStateOpen Then 3. adCon.Close 4. Set adCon = Nothing 5. End If 6. End Sub 9-2-2 開啟紀錄集 1. 開啟紀錄集指令語法 紀錄集物件變數.Open 參數一,參數二,參數三,參數四 紀錄集物件變數:預存記錄變數 Open:ADO開啟

您可能关注的文档

文档评论(0)

cynthia_h + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档