ACCESS数据添加方法概述

1、数据添加方法概述数据库进行数据管理是必不可少的，如：添加、编辑、删除、查询等，本题 主要与大家共同探讨，关于数据的管理中的数据添加方法。下面我将就结合数据与对象元素的关系， 即:数据绑定情况，讲解关于数据 添加方法。为此我们必须先弄清一个概念，什么是数据绑定。数据绑定：是把数据与用户界面元素（窗体、控件）建立内在关联（或捆绑） 的通用机制。与之绑定的数据可以是表、查询或Select语句。如果以数据与用户界面元素绑定的紧密程度来区分， 大致可以分为：全绑定、 半绑定、非绑定三种情况，我们以绑定情况不同，分类探讨关于数据添加方法。实现全绑定的数据添加方法。1. 0数据全绑定：是指将数据与窗体及窗体

2、中数据输入控件同时进行绑定1.1窗体数据绑定实现。在窗体属性对话框中，指定窗体绑定数据，实例 中绑定的“客户”表。全绑定二：育体双击此处打开窗 体属性对话框<41I誓主体选择数据页在记 录 源属性中选择绑 定 数据1. 2输入数据控件数据绑定实现。通过控件对象属性对话框，逐一对控件 指定绑定字段。在此必须说明，控件数据绑定之前必须对窗体进行数据绑定， 不 然控件无法进行数据绑定。亘全绑定一：窗休选择控件双击打 开属性对话框r>i选择数据页，在控件来源 属性中选择绑定字段通过以上两个步骤，就完成了数据完全绑定，就可以通过该窗体界面进行数 据添加操作了（参看实例全绑定一）。我们也可以通

3、过窗体向导很轻松的实现数据全绑定，在此不做讲解，大家可以参看有关资料。2. 0全绑定的数据添加方法的优点及不足：2. 1优点是：方便、简单、易生成界面，对于初学者较容易掌握；2. 2不足是：（1）打开窗体后，窗口中会列出全部数据，而非新记录添加状态；需要我们点击导航栏中的添加新记录按钮，才能进行新数据添加；（2）我们在控件中输入新数据，在全绑定情况下，就等于直接在数据表中写入数据，从 严格意义上说，缺乏一定安全性。每次添加新数据, 需点击该按钮显示全部数据中 的第一笔，而非输 入窗口3. 0全绑定的数据添加方法完善：3. 1界面初始新记录添加状态实现。 我们在窗体属性对话框中，点数据页 数据输

4、入点选为“是”，通过此设置后，我们打开窗体界面即为新记录添加 状态。（参看实例全绑定二）该属性默认状态 为：“否”,将此属 性改为：“是”窝窗体3. 2单击按钮实现跳转到添加新记录。 在窗体画一个添加数据按钮，在弹出 命令按钮向导中，点选类别：记录操作操作：添加新记录,其它按步骤点 击完成，就可以。在窗体画按钮点选添加新记录点选下一步 或完成通过以上步骤，完成窗体中画数据添加按钮操作，该按钮事件中会自动添加 下面所示代码（见如下代码），如果没有安装或启动自动向导，可以在窗体中新 建一个按钮，再在按钮单击事件中，写入以下代码即可。代码功能只是实现跳转 新记录，并非数据保存。DoCmd.GoToR

5、ecord , , acNewRec二、实现半绑定的数据添加方法1.0数据半绑定：是指将数据只与窗体绑定，而不与窗体中数据输入控件绑 定。大家参看一下前面全绑定的具体操作，半绑定就不做讲解。2. 0数据半绑定优点与不足。2. 1优点是：继承了全绑定易掌握的优点，特别是解决了全绑定中数据操 作中直接操作表数据的问题；2. 2不足是：不够灵活，只能对窗体绑定数据进行操作，而不能同时对多 个数据源或者说不能对未与本窗体绑定的数据进行数据添加操作。3. 0半绑定数据添加方法实现3. 1例一、通过未数据绑定控件向数据绑定控件传值方式添加数据。（参看半绑定实例一）。按全绑定方法建立窗体及控件并绑定数据，

6、并按全绑定中3.1 要求设定窗体为初始新记录添加状态，设定数据绑定控件“可见性”，即Visible 属性为：否，建立数据输入用控件，这些控件不与数据进行绑定，在添加记录 按钮中添加如下所示代码。按钮代码：代码主要功能是将控件值传值给已绑定数据控件，实现添加数据Me.TxtGS = Me.公司名称Me.TxtLXR = Me.联系人名字Me.TxtDH = Me.电话号码DoCmd.GoToRecord , , acNewRec3. 2例二、通过未绑定数据控件向窗体绑定数据集赋值方式添加数据（ 参 看半绑定实例二）。在窗体中绑定数据，但控件不绑定数据，在窗体中画 添 加记录按钮，在单击事件中写入

7、如下代码。按钮代码：主要功能是将控件值赋值给数据集合对应字段，实现添加数据Me.Recordset.AddNewMe（”公司名称”）=Me!txt公司名称Me（”联系人名字”）=Me!txt联系人名字Me（"电话号码”）=Me!txt电话号码说明：Me代表窗体，在此也代表窗体绑定数据集合，我们可以用Form代替Me三、实现非绑定的数据添加方法。1. 0数据非绑定：是指数据不与窗体及窗体中数据输入控件绑定。2. 0数据非绑定优点与不足。2. 1优点是：对于数据操作较灵活，可以实现同时对个数据源进行操作;2. 2不足是：相对全绑定以及非绑定数据操作有一定难度，需要一定的 ACCES基础，

8、了解并掌握SQL语句及VBA编程。3. 0例一：通过打开追加查询添加数据。3. 1新建一个追加查询（实例：添加客户记录查询），建立追加查询方法 大家参看有关资料，在此不做讲解。大家可以在SQL编辑窗口中加入如下 SQL语句，保存查询即可。INSERT INTO 客户（公司名称，联系人名字，电话号码）VALUES （Forms!非绑定一（查询）！公司名称，Forms!非绑定一（查询）！联系人名字， Forms!非绑定一（查询）！电话号码）;INSERT INTO 是追加查询关键字客户（公司名称，联系人名字，电话号码）是指实例中“客户表”中对应各字段VALUES预追加值关键字Forms!非绑定一（

9、查询）！公司名称：窗体集合！窗体名！控件名3. 2在窗体添加记录按钮单击事件中添加如下所示代码（参看非绑定一）按钮代码：主要功能是通过OpenQuery方法打开追加查询实现数据添加。DoCmd.SetWarni ngs False关闭系统信息的显示DoCmd.OpenQuery "添加客户记录查询 ”DoCmd.SetWarni ngs True4. 0 例二、例三：通过Run SQL或者Execute方法执行SQL语句添加数据。4. 1追加数据查询 SQL语句INSERT INTO 客户（公司名称，联系人名字，电话号码）VALUES （'" & Me.公司

10、名称 &"','"& Me.联系人名字 & "','" & Me.电话号码 & "'）4. 2 Run SQL方法运行SQL语句（参看非绑定二）。在添加记录按钮单击事 件加入如下代码Dim strSQL As Stri ngstrSQL = "INSERT INTO 客户（公司名称，联系人名字，电话号码）”strSQL = strSQL & "V ALUES（'" & Me.公司名称 & "&#

11、39;,'" & Me. 联系人名字 & "','" & Me.电话号码 & "'）"DoCmd.SetWarni ngs False 关闭系统信息的显示DoCmd.Ru nSQL strSQLDoCmd.SetWarni ngs True4. 3 Execute方法运行SQL语句（参看非绑定三）。在添加记录按钮单击事 件加入如下代码Dim strSQL As Stri ngstrSQL = "INSERT INTO 客户（公司名称，联系人名字，电话号码）”strSQL

12、= strSQL & "V ALUES（'" & Me.公司名称 & "','" & Me. 联系人名字 & "','" & Me.电话号码 & "'）"Curre ntDb（）.Execute strSQL5. 0例四：利用DAO数据库对象添加数据方法。5. 1否则使用引用DACB.6对象。如要用DAO寸象来存取数据时，必须先引用DAQ DAO寸象存取数据时会产生错误。-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'>诜先级Mi crosaft DAO3_6 Object Library定位:语言C： VPrcgran Fil普Conmg Filt5MicrSharedVDM 标唯5. 2在添加记录按钮单击事件加入如下代码Dim Rs As DAQ.RecordsetSet Rs = Curre ntDb.Qp

15、e nRecordset(”'申明Rs为DAQ记录集对象客户”)'设Rs记录集为"客户"表中所有数据With Rs.AddNew'开始新增新据!公司名称=Me.公司名称!联系人名字-Me.联系人名字!电话号码 =Me.电话号码.Update'更新数据.Close'关闭当前记录集End WithSet Rs = Nothi ng说明：Recordset是记录集对象。我们在进行数据存取时，必须将所有表都 载入内存，势必影响数据处理的效率。通过Recordset记录集对象，只会将所需 的数据载入到Recordset对象中，然后针对这个记录集

16、操作就可以了， 不仅提高 数据处理效率，而且记录集对象并不会影响数据库的大小，存取完数据后关闭该记录集并释放内存即可。6. 0例五：利用ADC数据库对象添加数据方法6. 1引用ADC2.1对象。如要用ADO寸象来存取数据时，必须选引用ADQ 否则使用ADQ寸象存取数据时会产生错误。可使用的引用幺):-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、先级C： Program File5Corwiiwi FiltEsysteiiYadoVmsadoZl. < 标准Ni crosaft ActiTeJIOt j sets 2. 1 Library定位： 语言：6. 2在添加记录按钮单击事件加入如下代码Dim Rs As ADODB.Recordset '申明 ADO 记录集对象 Dim StrName As Stri ngSet Rs = New ADODB.Recordset '实例化记录对象 StrName ="客户”With Rs.Ope n StrName, Curren tProject.C onnection, adOpe nKeyset, adLockOptimistic .AddNew'开始新增数据!公司名称 =Me!公司名称!联系人名字=Me!联系人名字!电话号码 =Me!电话号码.Update'更新数据.Close'关闭当前数据集End WithSet Rs = Noth ing'释放空