ACCESS數(shù)據(jù)添加方法概述

1、數(shù)據(jù)添加方法概述數(shù)據(jù)庫(kù)進(jìn)行數(shù)據(jù)管理是必不可少的，如：添加、編輯、刪除、查詢等，本題 主要與大家共同探討，關(guān)于數(shù)據(jù)的管理中的數(shù)據(jù)添加方法。下面我將就結(jié)合數(shù)據(jù)與對(duì)象元素的關(guān)系， 即:數(shù)據(jù)綁定情況，講解關(guān)于數(shù)據(jù) 添加方法。為此我們必須先弄清一個(gè)概念，什么是數(shù)據(jù)綁定。數(shù)據(jù)綁定：是把數(shù)據(jù)與用戶界面元素（窗體、控件）建立內(nèi)在關(guān)聯(lián)（或捆綁） 的通用機(jī)制。與之綁定的數(shù)據(jù)可以是表、查詢或Select語(yǔ)句。如果以數(shù)據(jù)與用戶界面元素綁定的緊密程度來(lái)區(qū)分， 大致可以分為：全綁定、 半綁定、非綁定三種情況，我們以綁定情況不同，分類(lèi)探討關(guān)于數(shù)據(jù)添加方法。實(shí)現(xiàn)全綁定的數(shù)據(jù)添加方法。1. 0數(shù)據(jù)全綁定：是指將數(shù)據(jù)與窗體及窗體

2、中數(shù)據(jù)輸入控件同時(shí)進(jìn)行綁定1.1窗體數(shù)據(jù)綁定實(shí)現(xiàn)。在窗體屬性對(duì)話框中，指定窗體綁定數(shù)據(jù)，實(shí)例 中綁定的“客戶”表。全綁定二：育體雙擊此處打開(kāi)窗 體屬性對(duì)話框<41I誓主體選擇數(shù)據(jù)頁(yè)在記 錄 源屬性中選擇綁 定 數(shù)據(jù)1. 2輸入數(shù)據(jù)控件數(shù)據(jù)綁定實(shí)現(xiàn)。通過(guò)控件對(duì)象屬性對(duì)話框，逐一對(duì)控件 指定綁定字段。在此必須說(shuō)明，控件數(shù)據(jù)綁定之前必須對(duì)窗體進(jìn)行數(shù)據(jù)綁定， 不 然控件無(wú)法進(jìn)行數(shù)據(jù)綁定。亙?nèi)壎ㄒ唬捍靶葸x擇控件雙擊打 開(kāi)屬性對(duì)話框r>i選擇數(shù)據(jù)頁(yè)，在控件來(lái)源 屬性中選擇綁定字段通過(guò)以上兩個(gè)步驟，就完成了數(shù)據(jù)完全綁定，就可以通過(guò)該窗體界面進(jìn)行數(shù) 據(jù)添加操作了（參看實(shí)例全綁定一）。我們也可以通

3、過(guò)窗體向?qū)Ш茌p松的實(shí)現(xiàn)數(shù)據(jù)全綁定，在此不做講解，大家可以參看有關(guān)資料。2. 0全綁定的數(shù)據(jù)添加方法的優(yōu)點(diǎn)及不足：2. 1優(yōu)點(diǎn)是：方便、簡(jiǎn)單、易生成界面，對(duì)于初學(xué)者較容易掌握；2. 2不足是：（1）打開(kāi)窗體后，窗口中會(huì)列出全部數(shù)據(jù)，而非新記錄添加狀態(tài)；需要我們點(diǎn)擊導(dǎo)航欄中的添加新記錄按鈕，才能進(jìn)行新數(shù)據(jù)添加；（2）我們?cè)诳丶休斎胄聰?shù)據(jù)，在全綁定情況下，就等于直接在數(shù)據(jù)表中寫(xiě)入數(shù)據(jù)，從 嚴(yán)格意義上說(shuō)，缺乏一定安全性。每次添加新數(shù)據(jù), 需點(diǎn)擊該按鈕顯示全部數(shù)據(jù)中 的第一筆，而非輸 入窗口3. 0全綁定的數(shù)據(jù)添加方法完善：3. 1界面初始新記錄添加狀態(tài)實(shí)現(xiàn)。 我們?cè)诖绑w屬性對(duì)話框中，點(diǎn)數(shù)據(jù)頁(yè) 數(shù)據(jù)輸

4、入點(diǎn)選為“是”，通過(guò)此設(shè)置后，我們打開(kāi)窗體界面即為新記錄添加 狀態(tài)。（參看實(shí)例全綁定二）該屬性默認(rèn)狀態(tài) 為：“否”,將此屬 性改為：“是”窩窗體3. 2單擊按鈕實(shí)現(xiàn)跳轉(zhuǎn)到添加新記錄。 在窗體畫(huà)一個(gè)添加數(shù)據(jù)按鈕，在彈出 命令按鈕向?qū)е校c(diǎn)選類(lèi)別：記錄操作操作：添加新記錄,其它按步驟點(diǎn) 擊完成，就可以。在窗體畫(huà)按鈕點(diǎn)選添加新記錄點(diǎn)選下一步 或完成通過(guò)以上步驟，完成窗體中畫(huà)數(shù)據(jù)添加按鈕操作，該按鈕事件中會(huì)自動(dòng)添加 下面所示代碼（見(jiàn)如下代碼），如果沒(méi)有安裝或啟動(dòng)自動(dòng)向?qū)В梢栽诖绑w中新 建一個(gè)按鈕，再在按鈕單擊事件中，寫(xiě)入以下代碼即可。代碼功能只是實(shí)現(xiàn)跳轉(zhuǎn) 新記錄，并非數(shù)據(jù)保存。DoCmd.GoToR

5、ecord , , acNewRec二、實(shí)現(xiàn)半綁定的數(shù)據(jù)添加方法1.0數(shù)據(jù)半綁定：是指將數(shù)據(jù)只與窗體綁定，而不與窗體中數(shù)據(jù)輸入控件綁 定。大家參看一下前面全綁定的具體操作，半綁定就不做講解。2. 0數(shù)據(jù)半綁定優(yōu)點(diǎn)與不足。2. 1優(yōu)點(diǎn)是：繼承了全綁定易掌握的優(yōu)點(diǎn)，特別是解決了全綁定中數(shù)據(jù)操 作中直接操作表數(shù)據(jù)的問(wèn)題；2. 2不足是：不夠靈活，只能對(duì)窗體綁定數(shù)據(jù)進(jìn)行操作，而不能同時(shí)對(duì)多 個(gè)數(shù)據(jù)源或者說(shuō)不能對(duì)未與本窗體綁定的數(shù)據(jù)進(jìn)行數(shù)據(jù)添加操作。3. 0半綁定數(shù)據(jù)添加方法實(shí)現(xiàn)3. 1例一、通過(guò)未數(shù)據(jù)綁定控件向數(shù)據(jù)綁定控件傳值方式添加數(shù)據(jù)。（參看半綁定實(shí)例一）。按全綁定方法建立窗體及控件并綁定數(shù)據(jù)，

6、并按全綁定中3.1 要求設(shè)定窗體為初始新記錄添加狀態(tài)，設(shè)定數(shù)據(jù)綁定控件“可見(jiàn)性”，即Visible 屬性為：否，建立數(shù)據(jù)輸入用控件，這些控件不與數(shù)據(jù)進(jìn)行綁定，在添加記錄 按鈕中添加如下所示代碼。按鈕代碼：代碼主要功能是將控件值傳值給已綁定數(shù)據(jù)控件，實(shí)現(xiàn)添加數(shù)據(jù)Me.TxtGS = Me.公司名稱(chēng)Me.TxtLXR = Me.聯(lián)系人名字Me.TxtDH = Me.電話號(hào)碼DoCmd.GoToRecord , , acNewRec3. 2例二、通過(guò)未綁定數(shù)據(jù)控件向窗體綁定數(shù)據(jù)集賦值方式添加數(shù)據(jù)（ 參 看半綁定實(shí)例二）。在窗體中綁定數(shù)據(jù)，但控件不綁定數(shù)據(jù)，在窗體中畫(huà) 添 加記錄按鈕，在單擊事件中寫(xiě)入

7、如下代碼。按鈕代碼：主要功能是將控件值賦值給數(shù)據(jù)集合對(duì)應(yīng)字段，實(shí)現(xiàn)添加數(shù)據(jù)Me.Recordset.AddNewMe（”公司名稱(chēng)”）=Me!txt公司名稱(chēng)Me（”聯(lián)系人名字”）=Me!txt聯(lián)系人名字Me（"電話號(hào)碼”）=Me!txt電話號(hào)碼說(shuō)明：Me代表窗體，在此也代表窗體綁定數(shù)據(jù)集合，我們可以用Form代替Me三、實(shí)現(xiàn)非綁定的數(shù)據(jù)添加方法。1. 0數(shù)據(jù)非綁定：是指數(shù)據(jù)不與窗體及窗體中數(shù)據(jù)輸入控件綁定。2. 0數(shù)據(jù)非綁定優(yōu)點(diǎn)與不足。2. 1優(yōu)點(diǎn)是：對(duì)于數(shù)據(jù)操作較靈活，可以實(shí)現(xiàn)同時(shí)對(duì)個(gè)數(shù)據(jù)源進(jìn)行操作;2. 2不足是：相對(duì)全綁定以及非綁定數(shù)據(jù)操作有一定難度，需要一定的 ACCES基礎(chǔ)，

8、了解并掌握SQL語(yǔ)句及VBA編程。3. 0例一：通過(guò)打開(kāi)追加查詢添加數(shù)據(jù)。3. 1新建一個(gè)追加查詢（實(shí)例：添加客戶記錄查詢），建立追加查詢方法 大家參看有關(guān)資料，在此不做講解。大家可以在SQL編輯窗口中加入如下 SQL語(yǔ)句，保存查詢即可。INSERT INTO 客戶（公司名稱(chēng)，聯(lián)系人名字，電話號(hào)碼）VALUES （Forms!非綁定一（查詢）！公司名稱(chēng)，F(xiàn)orms!非綁定一（查詢）！聯(lián)系人名字， Forms!非綁定一（查詢）！電話號(hào)碼）;INSERT INTO 是追加查詢關(guān)鍵字客戶（公司名稱(chēng)，聯(lián)系人名字，電話號(hào)碼）是指實(shí)例中“客戶表”中對(duì)應(yīng)各字段VALUES預(yù)追加值關(guān)鍵字Forms!非綁定一（

9、查詢）！公司名稱(chēng)：窗體集合！窗體名！控件名3. 2在窗體添加記錄按鈕單擊事件中添加如下所示代碼（參看非綁定一）按鈕代碼：主要功能是通過(guò)OpenQuery方法打開(kāi)追加查詢實(shí)現(xiàn)數(shù)據(jù)添加。DoCmd.SetWarni ngs False關(guān)閉系統(tǒng)信息的顯示DoCmd.OpenQuery "添加客戶記錄查詢 ”DoCmd.SetWarni ngs True4. 0 例二、例三：通過(guò)Run SQL或者Execute方法執(zhí)行SQL語(yǔ)句添加數(shù)據(jù)。4. 1追加數(shù)據(jù)查詢 SQL語(yǔ)句INSERT INTO 客戶（公司名稱(chēng)，聯(lián)系人名字，電話號(hào)碼）VALUES （'" & Me.公司

10、名稱(chēng) &"','"& Me.聯(lián)系人名字 & "','" & Me.電話號(hào)碼 & "'）4. 2 Run SQL方法運(yùn)行SQL語(yǔ)句（參看非綁定二）。在添加記錄按鈕單擊事 件加入如下代碼Dim strSQL As Stri ngstrSQL = "INSERT INTO 客戶（公司名稱(chēng)，聯(lián)系人名字，電話號(hào)碼）”strSQL = strSQL & "V ALUES（'" & Me.公司名稱(chēng) & "&#

11、39;,'" & Me. 聯(lián)系人名字 & "','" & Me.電話號(hào)碼 & "'）"DoCmd.SetWarni ngs False 關(guān)閉系統(tǒng)信息的顯示DoCmd.Ru nSQL strSQLDoCmd.SetWarni ngs True4. 3 Execute方法運(yùn)行SQL語(yǔ)句（參看非綁定三）。在添加記錄按鈕單擊事 件加入如下代碼Dim strSQL As Stri ngstrSQL = "INSERT INTO 客戶（公司名稱(chēng)，聯(lián)系人名字，電話號(hào)碼）”strSQL

12、= strSQL & "V ALUES（'" & Me.公司名稱(chēng) & "','" & Me. 聯(lián)系人名字 & "','" & Me.電話號(hào)碼 & "'）"Curre ntDb（）.Execute strSQL5. 0例四：利用DAO數(shù)據(jù)庫(kù)對(duì)象添加數(shù)據(jù)方法。5. 1否則使用引用DACB.6對(duì)象。如要用DAO寸象來(lái)存取數(shù)據(jù)時(shí)，必須先引用DAQ DAO寸象存取數(shù)據(jù)時(shí)會(huì)產(chǎn)生錯(cuò)誤。-ACCESS?Mli cr osof t

13、 Microsoft Microsoft Microsoft Mli cr osof t flier c*scftBrawsr Helper s木CLD for tfiftdctts 2000 Lib） Coirnec七Lon DesiInst： Connect!on D«siv6.0 DAO 2.5/3.51 Compatib遼i DAO 3 51 Object LibraryMicrosoftMli cr asof tNicroscft MicrosoftNicroscft Ni crosof t M ft FtBata DtaDtaData Dita Tl *+ cAccess

14、 Components I>Adapter LibraryEindiiigEnvir1.0Environment Exleixsil EnTiroiuiiiit Inst«nc» I F ftvrft * + t i t*- at nK i a .n + T'>詵先級(jí)Mi crosaft DAO3_6 Object Library定位:語(yǔ)言C： VPrcgran Fil普Conmg Filt5MicrSharedVDM 標(biāo)唯5. 2在添加記錄按鈕單擊事件加入如下代碼Dim Rs As DAQ.RecordsetSet Rs = Curre ntDb.Qp

15、e nRecordset(”'申明Rs為DAQ記錄集對(duì)象客戶”)'設(shè)Rs記錄集為"客戶"表中所有數(shù)據(jù)With Rs.AddNew'開(kāi)始新增新?lián)?公司名稱(chēng)=Me.公司名稱(chēng)!聯(lián)系人名字-Me.聯(lián)系人名字!電話號(hào)碼 =Me.電話號(hào)碼.Update'更新數(shù)據(jù).Close'關(guān)閉當(dāng)前記錄集End WithSet Rs = Nothi ng說(shuō)明：Recordset是記錄集對(duì)象。我們?cè)谶M(jìn)行數(shù)據(jù)存取時(shí)，必須將所有表都 載入內(nèi)存，勢(shì)必影響數(shù)據(jù)處理的效率。通過(guò)Recordset記錄集對(duì)象，只會(huì)將所需 的數(shù)據(jù)載入到Recordset對(duì)象中，然后針對(duì)這個(gè)記錄集

16、操作就可以了， 不僅提高 數(shù)據(jù)處理效率，而且記錄集對(duì)象并不會(huì)影響數(shù)據(jù)庫(kù)的大小，存取完數(shù)據(jù)后關(guān)閉該記錄集并釋放內(nèi)存即可。6. 0例五：利用ADC數(shù)據(jù)庫(kù)對(duì)象添加數(shù)據(jù)方法6. 1引用ADC2.1對(duì)象。如要用ADO寸象來(lái)存取數(shù)據(jù)時(shí)，必須選引用ADQ 否則使用ADQ寸象存取數(shù)據(jù)時(shí)會(huì)產(chǎn)生錯(cuò)誤?？墒褂玫囊苗?:-ACCESS?Messenger Private Type LibraryMicrosoftHi crosoftHi crascftMi ersseftType LibraryAccess BarCod« Control 9.Acti vHsvi e Control ActiveXObj

17、 sets (JliiActivenObjects 2, 0icro生of七 Actii*電X D直七宜 Ob皂亡七生 2 Mi croseft Hi crasoft Microsoft Microsoft Mieroseft Microsoft Mi F+ 1 IIUActiveX : ActiveX : ActiveX : ActiveX : ActiveX : ActiveX : “4Te DBata Dta DataData Flu琴in I&-? 1 EFiZhObjects Dbj sets Objects UbJ4fits Objects2.52 52.T2 3Rec-詵

18、先級(jí)C： Program File5Corwiiwi FiltEsysteiiYadoVmsadoZl. < 標(biāo)準(zhǔn)Ni crosaft ActiTeJIOt j sets 2. 1 Library定位： 語(yǔ)言：6. 2在添加記錄按鈕單擊事件加入如下代碼Dim Rs As ADODB.Recordset '申明 ADO 記錄集對(duì)象 Dim StrName As Stri ngSet Rs = New ADODB.Recordset '實(shí)例化記錄對(duì)象 StrName ="客戶”With Rs.Ope n StrName, Curren tProject.C onnection, adOpe nKeyset, adLockOptimistic .AddNew'開(kāi)始新增數(shù)據(jù)!公司名稱(chēng) =Me!公司名稱(chēng)!聯(lián)系人名字=Me!聯(lián)系人名字!電話號(hào)碼 =Me!電話號(hào)碼.Update'更新數(shù)據(jù).Close'關(guān)閉當(dāng)前數(shù)據(jù)集End WithSet Rs = Noth ing'釋放空