DAOADO物件应用和程式设计.doc

第18章 ADO程式設計 在Access資料庫應用系統內，可以使用ADO物件來處理資料庫，若以ADO物件搭配MyODBC驅動程式，則可以在Access內直接與MySQL連線並處理資料。為了方便讀者自行在Access內處理MySQL資料庫，本章將介紹ADO物件操作資料庫之常用方法與程式設計技巧，範例程式請參閱acsMySQL資料庫。 18-1 ADO簡介 18-1-1 ADO基礎 ADO為Activex Data Object之縮寫字，它提供系統發展人員許多強而有力的工具，透過微軟之OLEDB系統介面，可直接存取、編輯和更新來至於各式各樣的資料源。ADO之用途簡述如下： 使用SQL指令操作資料庫 透過Internet存取遠端資料 操作郵件系統之信息 將資料庫資料轉存為XML格式資料 存取XML格式資料 檢視和更新資料表內資料 執行參數式查詢 執行預儲程序(Stored Procedures) 建立暫存表來處理過渡資料 執行交易處理 以動態模式過濾和排序資料 以離線方式處理遠端資料 18-1-2 前置處理 執行ADO物件方法時，必須先將ADO物件方法引入在程序檔內，引用方法簡述如下： 任選一個表單，將選用表單開啟在設計模式 點取主功能表之【檢視】→【程式碼】，將設計介面切換至程式編輯畫面。 點取主功能表之【工具】→【引用程式項目】，開啟【引用項目】選用方塊，如圖18-1所示。 請捲動垂直捲軸，分別選取【Microsoft DAO 3.6 Object Library】、【Microsoft ActiveX Data Object 2.7 Library】及【Microsoft DataGrid Control 6.0】。 點取【優先權】移動鍵，將【Microsoft DAO 3.6 Object Library】移至無法再行變更之位置，將【Microsoft ActiveX Data Object 2.7 Library】移至【Microsoft DAO 3.6 Object Library】後端。 點取【確定】，結束引用項目工作畫面。 圖18-1 引用項目工作畫面 18-2 ADO指令簡介 18-2-1 資料庫連線 ADO與其它資料庫連結時，可以使用下列兩種方式，可以指定在伺服端或主控端處理資料，本章只說明第一種連線之語法。 直接以連線物件連結（ADODB.Connection） 透過DSN來連線 為了方便各個應用程式介面共用開啟之連線，可在模組介面新增一個模組，系統自動取名為“Module1”。在Module1內建立一組專屬連線用之程序或函數，相關程式碼詳述如后。本章引述程式碼時，程式碼內以單引號前導之字串均屬註解，讀者在編輯指令時，可加以省略。 在Module1模組開頭宣告共用變數 Public adCon As New ADODB.Connection ‘宣告公用連線物件變數 Public adRs As New ADODB.Recordset ‘宣告公用紀錄集物件變數 檢查連線物件狀態 Public Sub checkCon(i As Integer) On Error GoTo chkcon_err: If i = 1 Then ‘傳入1表示要開啟連線，0表示要關閉連線 If Not adCon.state = adStateOpen Then Call openCon() ‘開啟連線 Else Call closeCon ‘關閉連線 End If Exit Sub chkcon_err: MsgBox Err.Description ‘提示連線錯誤說明 End Sub 開啟連線公用程序 Public Sub openCon() On Error GoTo opnCon_err_end: Dim cn_str As String cn_str = DRIVER = {MySQL ODBC 3.51 Driver}; _ SERVER = localhost; _ DATABASE = mysal; _ User = 帳號; Password = 密碼; OPTION=3 ‘以上為設定連線字串，帳號及密碼請填入有經MySQL授權之對應字串 If Not adCon.state = adStateOpen Then adCon.CursorLocation = adUseClient adCon.ConnectionString = cn_str adCon.Open ‘開啟連線 End If Exit Sub opnCon_err_end: MsgBox