VBA资料库存取关键技术.doc

VBA資料庫存取關鍵程式碼 目錄 1. 將資料表所有紀錄跑完一圈，並針對每一筆記錄欄位來修改或查詢 2 2. 觀念：如何寫程式碼來讀出某一資料表的全部資料，並做計算 3 3. 查詢『某一筆紀錄』的關鍵程式碼 4 4. 以關鍵字的方式查詢『某些筆紀錄』的關鍵程式碼 5 5. 修改某一筆記錄的關鍵程式碼 6 6. 刪除某一筆記錄的關鍵程式碼 7 7. 觀念：如何寫程式碼來讀出某一資料表的全部資料，並做計算 8 將資料表所有紀錄跑完一圈，並針對每一筆記錄欄位來修改或查詢 連結資料表 Dim Fx As ADODB.Recordset Set Fx = New ADODB.Recordset Fx.Open 資料表名稱, CurrentProject.Connection, , adLockOptimistic 將資料表所有紀錄跑完一圈，進行運算 Do While Not Fx.EOF Fx(欄位1) = Fx(欄位2)+ Fx(欄位3) Fx.MoveNext Loop 顯示：計算完成 MsgBox (計算完成!) 觀念：如何寫程式碼來讀出某一資料表的全部資料，並做計算 比較： 前面：是在表單中，利用已經讀取資料表的紀錄→用已知欄未來做計算 現在：是還沒讀進資料表→要靠自己寫程式碼將資料表讀進來 觀念： Recordset是ADO(ActiveX Data Objects)技術中最常用的物件 使用Recordset物件可以用來引用資料表的欄位資料 步驟1：先要開啟資料表 語法範例： Dim fx As ADODB.Recordset //宣告fx為Recordset物件型態 Set fx = New ADODB.Recordset //產生一個ADO物件實體給fx fx.Open “基本資料”, CurrentProject.Connection, adOpenStatic, adLockOptimistic //將郵遞區號資料表打開，以便讀取資料表的欄位資料 步驟2：讀取欄位中的資料內容 fx(“平均成績”) fx(“上機考”) fx(“期中考”) fx(“期末考”) 步驟3：移動紀錄位置指令 fx.MoveFirst→移到第一筆記錄 fx.MoveNext→移到下一筆記錄 fx.MoveLast→移到最後一筆記錄 fx.MovePrevious→移到上一筆記錄 fx.EOF→超過資料表的紀錄 步驟4：Recordset物件的Open方法 Fx.Open 資料來源，資料連結，指標型態，鎖定方式，選擇 其中，鎖定方式的參數有4種模式 adLockReadOnly：唯讀 adLockPessimistic：悲觀性鎖定 adLockOptimistic：樂觀性鎖定 adLockBatchOptimistic：樂觀性批次鎖定 當要將資料寫回索引用的資料表→使用adLockOptimistic模式 查詢『某一筆紀錄』的關鍵程式碼 宣告變數 Dim dbs, rs As Variant Dim SqlStr As String 建立資料庫物件（使用目前資料庫） Set dbs = CurrentDb 開啟資料表，並進行SQL語法查詢 SqlStr = Select * from 資料表 where name =jack SqlStr = select * from 資料表名稱 where 欄位 = test Set rs = dbs.openrecordset(SqlStr) 設定目前表單的資料來源為 Me.RecordSource = SqlStr 關閉資料庫物件 dbs.Close 以關鍵字的方式查詢『某些筆紀錄』的關鍵程式碼 宣告變數 Dim dbs, rs As Variant Dim SqlStr As String 建立資料庫物件（使用目前資料庫） Set dbs = CurrentDb 開啟資料表，並進行SQL語法查詢 SqlStr = Select * from 資料表 where name like *jack* SqlStr = select * from 資料表 where 欄位 like * Me![text1] * Set rs = dbs.openrecordset(SqlStr) 設定目前表單的資料來源為 Me.RecordSource = SqlStr 關閉資料庫物件 dbs.Close 修改某一筆記錄的關