VBA資料庫(kù)存取關(guān)鍵程式碼

1、VBA資料庫(kù)存取關(guān)鍵程式碼目錄1.將資料表所有紀(jì)錄跑完一圈，並針對(duì)每一筆記錄欄位來(lái)修改或查詢22.觀念：如何寫(xiě)程式碼來(lái)讀出某一資料表的全部資料，並做計(jì)算33.查詢某一筆紀(jì)錄的關(guān)鍵程式碼44.以關(guān)鍵字的方式查詢某些筆紀(jì)錄的關(guān)鍵程式碼55.修改某一筆記錄的關(guān)鍵程式碼66.刪除某一筆記錄的關(guān)鍵程式碼77.觀念：如何寫(xiě)程式碼來(lái)讀出某一資料表的全部資料，並做計(jì)算81. 將資料表所有紀(jì)錄跑完一圈，並針對(duì)每一筆記錄欄位來(lái)修改或查詢連結(jié)資料表Fx.Open 資料表名稱, CurrentProject.Connection, , adLockOptimistic將資料表所有紀(jì)錄跑完一圈，進(jìn)行運(yùn)算 Fx(欄位1)

2、 = Fx(欄位2)+ Fx(欄位3) Loop顯示：計(jì)算完成MsgBox (計(jì)算完成!)2. 觀念：如何寫(xiě)程式碼來(lái)讀出某一資料表的全部資料，並做計(jì)算(1). 比較：n 前面：是在表單中，利用已經(jīng)讀取資料表的紀(jì)錄用已知欄未來(lái)做計(jì)算n 現(xiàn)在：是還沒(méi)讀進(jìn)資料表要靠自己寫(xiě)程式碼將資料表讀進(jìn)來(lái)(2). 觀念：n Recordset是ADO(ActiveX Data Objects)技術(shù)中最常用的物件n 使用Recordset物件可以用來(lái)引用資料表的欄位資料(3). 步驟1：先要開(kāi)啟資料表語(yǔ)法範(fàn)例：n /宣告fx為Recordset物件型態(tài)n /產(chǎn)生一個(gè)ADO物件實(shí)體給fxn fx.Open “基本資料

3、”, CurrentProject.Connection, adOpenStatic, adLockOptimistic/將郵遞區(qū)號(hào)資料表打開(kāi)，以便讀取資料表的欄位資料(4). 步驟2：讀取欄位中的資料內(nèi)容n fx(“平均成績(jī)”)n fx(“上機(jī)考”)n fx(“期中考”)n fx(“期末考”)(5). 步驟3：移動(dòng)紀(jì)錄位置指令n 移到第一筆記錄n 移到下一筆記錄n 移到最後一筆記錄n 移到上一筆記錄n 超過(guò)資料表的紀(jì)錄(6). 步驟4：Recordset物件的Open方法n Fx.Open 資料來(lái)源，資料連結(jié)，指標(biāo)型態(tài)，鎖定方式，選擇n 其中，鎖定方式的參數(shù)有4種模式 adLockReadO

4、nly：唯讀 adLockPessimistic：悲觀性鎖定 adLockOptimistic：樂(lè)觀性鎖定 adLockBatchOptimistic：樂(lè)觀性批次鎖定n 當(dāng)要將資料寫(xiě)回索引用的資料表使用adLockOptimistic模式3. 查詢某一筆紀(jì)錄的關(guān)鍵程式碼宣告變數(shù) Dim dbs, rs As Variant Dim SqlStr As String 建立資料庫(kù)物件（使用目前資料庫(kù)） Set dbs = CurrentDb 開(kāi)啟資料表，並進(jìn)行SQL語(yǔ)法查詢 SqlStr = Select * from 資料表 where name =jackSqlStr = select * f

5、rom 資料表名稱 where 欄位 = test Set rs = dbs.openrecordset(SqlStr) 設(shè)定目前表單的資料來(lái)源為 Me.RecordSource = SqlStr 關(guān)閉資料庫(kù)物件 4. 以關(guān)鍵字的方式查詢某些筆紀(jì)錄的關(guān)鍵程式碼宣告變數(shù) Dim dbs, rs As Variant Dim SqlStr As String 建立資料庫(kù)物件（使用目前資料庫(kù)） Set dbs = CurrentDb 開(kāi)啟資料表，並進(jìn)行SQL語(yǔ)法查詢 SqlStr = Select * from 資料表 where name like *jack*SqlStr = select *

6、from 資料表 where 欄位 like * & Me!text1 & * Set rs = dbs.openrecordset(SqlStr) 設(shè)定目前表單的資料來(lái)源為 Me.RecordSource = SqlStr 關(guān)閉資料庫(kù)物件 5. 修改某一筆記錄的關(guān)鍵程式碼宣告變數(shù) Dim dbs, rs As Variant Dim SqlStr As String 建立資料庫(kù)物件（使用目前資料庫(kù)） Set dbs = CurrentDb 開(kāi)啟資料表，並進(jìn)行SQL語(yǔ)法 SqlStr = Update 資料表 set name = jack, chi = 90 where idno=C9000

7、1執(zhí)行修改的指令 dbs.Execute (SqlStr) 修改過(guò)後，讓這個(gè)表單重新執(zhí)行一次 關(guān)閉資料庫(kù)物件 顯示修改完成的訊息 MsgBox (已經(jīng)修改完畢) 6. 刪除某一筆記錄的關(guān)鍵程式碼宣告變數(shù) Dim dbs, rs As Variant Dim SqlStr As String 建立資料庫(kù)物件（使用目前資料庫(kù)） Set dbs = CurrentDb 開(kāi)啟資料表，並進(jìn)行SQL語(yǔ)法 SqlStr = delete * from 資料表 where name = jack執(zhí)行刪除的指令 dbs.Execute (SqlStr) 刪除過(guò)後，讓這個(gè)表單重新執(zhí)行一次 關(guān)閉資料庫(kù)物件 顯示刪除

8、完成的訊息 MsgBox (已經(jīng)刪除完畢) 7. 觀念：如何寫(xiě)程式碼來(lái)讀出某一資料表的全部資料，並做計(jì)算(1). 比較：n 前面：是在表單中，利用已經(jīng)讀取資料表的紀(jì)錄用已知欄未來(lái)做計(jì)算n 現(xiàn)在：是還沒(méi)讀進(jìn)資料表要靠自己寫(xiě)程式碼將資料表讀進(jìn)來(lái)(2). 觀念：n Recordset是ADO(ActiveX Data Objects)技術(shù)中最常用的物件n 使用Recordset物件可以用來(lái)引用資料表的欄位資料(3). 步驟1：先要開(kāi)啟資料表語(yǔ)法範(fàn)例：n /宣告fx為Recordset物件型態(tài)n /產(chǎn)生一個(gè)ADO物件實(shí)體給fxn fx.Open “基本資料”, CurrentProject.Connection, adOpenStatic, adLockOptimistic/將郵遞區(qū)號(hào)資料表打開(kāi)，以便讀取資料表的欄位資料(4). 步驟2：讀取欄位中的資料內(nèi)容n fx(“平均成績(jī)”)n fx(“上機(jī)考”)n fx(“期中考”)n fx(“期末考”)(5). 步驟3：移動(dòng)紀(jì)錄位置指令n 移到第一筆記錄n 移到下一筆記錄n 移到最後一筆記錄n 移到上一筆記錄n 超過(guò)資料表的紀(jì)錄(6). 步驟4：Recordset物件的Open方法n Fx.Open 資料來(lái)源，資料連結(jié)，指標(biāo)型態(tài)，鎖定方式，選擇n 其中，鎖定方式