VBA_Access.doc

以VB之DAO(Data Access Object)操作Access資料庫 程式設計說明 新增一表單 加入一指令按鈕 點選指令按鈕 - 按華鼠右鍵-選屬性-選事件-選On Click下拉事件程序-點取右方[…]，即可開起程序編輯視窗 點選主功能表-工具-設定引用項目-開啟設定引用項目-滑動捲軸-勾選MicroSoft DAO 3.6 Object Library物件 (如下圖所示)。 步驟4為必要選項，只須執行一次即可 宣告變數 Dim intA as Integer 整數 Dim strB as String 字串 Dim sinC as Single 單精數 Dim daD as Date 日期 Dim dtE as Database 資料庫 Dim rsF as Recordset 資料集(表) 註：在程序編輯區最上頭宣告之變數為外部變數，表單內之所有程序均可叫用，在某個程序內宣告之變數為內部變數，只可在程序內叫用。 開啟資料表/記錄集 set dtE = CurrentDB() 開啟資料庫 set rsF = dtE.OpenRecordset (“資料表名”，開啟格式) 開啟資料表 或是 set rsF = dtE.OpenRecordset (“SQL指令”) 開啟記錄集 開啟格式有三種(可省略): dbOPenTable: 可新增及更新資料表資料 dbOpenDynaset: 處理以選取查詢取得之資料，可新增及更新資料表資料 dbOpenSnapshot: 處理以選取查詢取得之資料，但是無法新增及更新資料表資料 rsF.Index = “索引檔名” 開啟索引檔 SQL指令範例： 單一資料表 Select 欄位串列 From 資料表 ‘// 說明：查閱指名的欄位，欄位間以 “,” 間隔 ‘// 範例： Select No, Name, Address, Email From Friend Select * From 資料表 ‘// 說明： * 表全部欄位 查閱部份紀錄（過濾資料） Select 欄位串列 From 資料表 Where 過濾條件 ‘// 說明1：過濾條件之語法： 欄名 = 查尋值 ‘// 說明2：查尋值之語法： 字串型範例前後須加上引號： ‘苗栗縣’，若與預設之變數比對，過濾條件可寫成：”欄名 =’” VAR “’” 數值則直接給值：20 日期型範例前後須加上#： #2011/06/21# ‘// 說明3：可透過第二個欄位來比對紀錄，使用 And 或 OR 邏輯運算子串接 紀錄排序 Select 欄位串列 From 資料表 Where 過濾條件 Order By 排序欄位 若要降冪排列： Order By 排序欄位 DESC （ASC表升冪） 同時指定兩個排序欄位：Order By 欄位1, 欄位2 關聯兩個資料表 Select 資料表1.欄位, 資料表2.欄位From 資料表1 _ Inner Join 資料表2 On資料表1.鍵值欄 = 資料表2.鍵值欄 _ Where 過濾條件 ‘// 說明1： 欄名需以資料表名前導並加上 . 運算子 ‘// 說明2：若有兩個主鍵則關聯運算式 On資料表1.鍵值欄1 = 資料表2.鍵值欄1 And 資料表1.鍵值欄2 = 資料表2.鍵值欄2 應用範例 Dim str As String str = “Select 欄位串列 From 資料表” set rsF = dtE.OpenRecordset (str) 資料存取 – 配合資料表 rsF![欄名] = 變數名(定值) 將資料存入欄位 變數名 = rsF![欄名] 將資料存入變數 或是 rsF(“欄名”) = 變數名 (或定值) ‘將資料存入欄位 變數名 = rsF(“欄名”) ‘將資料存入變數 資料存取 – 配合表單 Me![物件名] = 變數名(定值) ‘將資料存入表單物件 註：物件名為表單上之文字方塊物件 變數名 = Me![物件名] 將物件資料存入變數 Me 代表開啟之資料表單 資料搜尋 – 配合索引檔 rsF.Seek “=”, 變數名 (或定值) If rsF.NoMatch Then ……. ‘未找到記錄 Else …………… 註：開啟索引檔指令為 rsF.Index = “索引檔名” 資料搜尋 – 無索引檔 1. 使用FindFirst 指令 rsF.FindFirst “搜尋條件” If rsF.NoMatch Then ……. ‘(未找到) Else …………… 搜尋條件必須以雙引號夾住，搜尋對象以單引號夾住(字串型) 範例: “欄名 = ‘定值’ ”