VB数据库编程技术.ppt

1、第6章 VB数据库编程技术,61 数据库设计基础,62 本地数据库设计（ACCESS）,63 数据控件,64 ODBC,65 ADO数据控件,66 VB中SQL的实现,67 VB中使用ODBC,68 网络数据库设计,1. VB中的数据访问 VB提供的数据库引擎叫Jet。 VB提供了两种与Jet数据库引擎接口的方法： Data控件(Data Control)和数据访问对象(DAO)。这两种方法可以同时使用。,6.1 数据库设计基础,Data控件提供了有限的 不需编程就能访问现存 数据库的功能,DAO模型是全面控制 数据库的完整编程接口,VB通过DAO、ADO和Jet引擎可以识别三类数据库： （1

2、）VB数据库 也称本地数据库，本地数据库文件格式与Microsoft Access相同。Jet引擎直接创建和操作这些数据库。 （2）外部数据库 访问符合“索引顺序访问文件方法(ISAM)”数据库，包括：dBase III、dBase IV、Foxpro 2.0和2.5以及Paradox 3.x和4.x。 （3）ODBC数据库 访问符合ODBC标准的客户机服务器数据库，如Microsoft SQL Server。,6.1 数据库设计基础,2 . VB数据库体系结构 Jet引擎负责处理存储、检索、更新数据的结构，并提供了功能强大的面向对象的DAO编程接口。 (1) VB数据库应用程序的组成 VB数

3、据库应用程序包含三部分，如图6.1所示。,图6.1 VB数据库应用程序的组成,6.1 数据库设计基础,用户界面和应用程序代码 用户界面是用户所看见的用于交互的界面，它包括显示数据并允许用户查看或更新数据的窗体。驱动这些窗体的是应用程序的VB代码，包括用来请求数据库服务的数据访问对象和方法，比如添加或删除记录，或执行查询等。,6.1 数据库设计基础,Jet引擎 Jet引擎实际是一组动态链接库(DLL)文件。在运行时，这些文件被链接到VB程序。它把应用程序的请求翻译成.mdb(Access文件后缀)文件或其他数据库的物理操作。 Jet引擎真正读取、写入和修改数据库，并处理所有内部事务，如索引、锁定

4、、安全性和引用完整性。 Jet引擎包含一个查询处理器，接收并执行SQL查询，实现所需的数据操作。 Jet引擎包含一个结果处理器，用来管理查询所返回的结果。,6.1 数据库设计基础,数据库 数据库是包含数据库表的一个或多个文件。 本地VB或Access数据库文件后缀为mdb文件。 （2）数据库应用程序的存放 在单系统机中数据库、数据引擎和用户界面集中存放。 在客户机/服务器系统中，数据库引擎和数据库一起被放置在服务器上。数据库引擎可以同时对多个客户机的应用程序提供服务、操作数据库并对每个本地应用程序返回所请求的记录。,6.1 数据库设计基础,6.1 数据库设计基础,服务器,客户机,客户机服务器引

5、擎，通过ODBC方式使用。在VB中，通过连接到ODBC数据源，如Microsoft SQL Server等，可直接把查询传递给服务器数据库引擎。,VB中创建和访问数据库的途径主要有3个： 可视化数据管理器 使用可视化数据管理器，不需要编程就可以创建Jet数据库。 DAO 使用VB的DAO部件通过编程的方法创建数据库。 ISAM或ODBC VB可通过ISAM或ODBC驱动程序来访问外部数据库数据库。,6.2 本地数据库设计(ACCESS),1可视化数据管理器 数据管理器(Data Manager)是VB的一个传统成员，它可以用于快速地建立数据库结构及数据库内容。 可以完成有关数据库的操作，比如数

6、据库结构的建立、记录的添加及修改以及用ODBC连接到服务器端的数据库如SQL Server等。 启动数据管理器 选择“外接程序”菜单下的“可视化数据管理器”项就可以启动数据管理器，打开“VisData”窗口。,6.2 本地数据库设计(ACCESS),2）工具栏按钮,6.2 本地数据库设计(ACCESS),数据库窗口,SQL语句窗口,显示数据库的结构，包括表名、列名、索引,可输入SQL命令，对数据库中的表进行查询操作,VisData窗口,6.2 本地数据库设计(ACCESS),设置记录集的访问方式,指定数据表中数据的显示方式,进行事务处理,6.2 本地数据库设计(ACCESS),表类型记录集按钮

7、,允许直接对数据库中的数据进行增、删、改、查等操作。,动态集类型记录集按钮,将指定的数据打开并读入到内存中，进行数据编辑操作。,快照类型记录集,只能读数据不能修改，适用于只查询的情况,6.2 本地数据库设计(ACCESS),指定数据表中数据的显示方式，在新窗体上使用DATA控件,指定数据表中数据的显示方式,在新窗体上不使用DATA控件,指定数据表中数据的显示方式,在新窗体上使用DBGrid控件,进入,2具体实现 1）建立数据库 数据库student.mdb(学生数据库)中的表定义： 学生成绩表(学号，课程，成绩，学期)。,6.2 本地数据库设计(ACCESS),基本情况表(学号，姓名，性别，专

8、业，出生年月，照片，备注),6.2 本地数据库设计(ACCESS),学生基本情况表结构 字段名 类型 宽度 学号 Text 6 姓名 Text 10 性别 Text 2 专业 Text 10 出生年月 Date 8 照片 Binary 0 备注 Memo 0,添加数据表 建立索引 建立索引可以加快检索速度。 2）录入数据 照片的输入： 静态设置:通过一个图片编辑程序将照片装入剪贴板，等待从剪贴板复制到Picture1控件。,6.3.1 数据控件属性,动态设置:通过Picture1_DblClick事件来完成剪贴板到Picture1控件的复制，当移动记录指针时，Picture1控件内的照片存入数

9、据库。 Private Sub Picture1_DblClick() Picture1.Picture = Clipboard.GetData End Sub 3）建立查询 VB的数据管理器提供了一个图形化的设置查询条件的窗口查询生成器。 例如：查询Authors ID=10或Authors ID=1的情况,6.2 本地数据库设计(ACCESS),进入,Data控件数据控件提供有限的不需编程而能访问现存数据库的功能，允许将Visual Basic的窗体与数据库方便地进行连接。 使用数据控件获取数据库中记录的集合，先在窗体上画出控件，再通过它的三个基本属性Connect、DatabaseNam

10、e和RecordSource设置要访问的数据资源。,6.3 数据控件,1Connect属性 Connect属性指定数据控件所要连接的数据库类型，Visual Basic默认的数据库是Access的MDB文件，也可连接ODBC等类型的数据库。 Access数据库的所有表都包含在一个MDB文件中。,6.3.1 数据控件属性,2DatabaseName属性 DatabaseName属性指定具体使用的数据库文件名，包括文件所在的路径名。 数据库中的基本表名可由RecordSource属性指定。 例如，要连接一个Microsoft Access的数据库存放在C:Student.mdb. 设置Databa

11、seName=”C:Student.mdb“，该方法可以通过属性栏设置，或在过程中指定. 在过程中可以使用相对路径来描述, DatabaseName=”.Student.mdb“。,6.3.1 数据控件属性,3RecordSource属性 RecordSource确定具体可访问的记录集对象Recordset。 该属性值可以是数据库中的单个表名或者是使用SQL查询语言的一个查询。 例如，指定Student.mdb数据库中的基本情况表: RecordSource=”基本情况”。 例如，访问基本情况表中所有物理系学生的数据。 RecordSource=”Select From 基本情况 Where专

12、业=物理 ”，,6.3.1 数据控件属性,4RecordsetType属性 RecordsetType属性确定记录集类型。 （1）Table: 表记录集类型，一个记录集（单个表） （2）Dynaset: 动态集类型，一个动态记录集（多个表），默认值。 （3）Snapshot：快照类型，一个记录集静态副本（不可改） 5EofAction和BofAction属性 当记录指针指向Recordset对象的开始(第一个记录前)或结束(最后一个记录后)时，BofAction和EofAction属性的设置或返回值决定了数据控件要采取的操作。操作属性的取值如表6.1所示。,6.3.1 数据控件属性,6.3.1

13、 数据控件属性,焦点将从一个记录转换到另一 个记录之前，Validate 事件发生,6.3.1 数据控件属性,与数据控件绑定： 数据控件本身不能直接显示记录集中的数据，必须通过能与它绑定的控件来实现。可与数据控件绑定的控件对象有文本框、标签、图像框、图形框、列表框、组合框、复选框、网格、DB列表框、DB组合框、DB网格和OLE容器等控件。 要使绑定控件能被数据库约束，必需在设计或运行时对上述控件的两个属性进行设置： DataSource属性 该属性通过指定个有效的数据控件连接到一个数据库上。 DataField属性 该属性设置数据库有效的字段与绑定控件建立联系。,6.3.1 数据控件属性,当上

14、述控件与数据控件绑定后，Visual Basic将当前记录的字段值赋给控件。 数据控件在装入数据库时，它把记录集的第一个记录作为当前记录。当数据控件的EofAction属性值设置为2时，当记录指针移过记录集结束位，数据控件会自动向记录集加入新的空记录。,绑定控件、数据控件和数据库三者的关系如图下示。,6.3.1 数据控件属性,例6.2 设计一个窗体用以显示建立的student.mdb数据库中基本情况表的内容。 要显示基本情况表中除了备注字段外的6个字段，故需要用6个绑定控件与之对应。这里用一个图形框显示照片和5个文本框显示学号、姓名等数据。,6.3.1 数据控件属性,进入,数据控件Data1属

15、性设置 Connect属性指定为Access类型 DatabaseName属性连接数据库Student.mdb RecordSource属性设置为“基本情况”表。 图片框和5个文本框控件属性设置 Text1Text5的DataSource属性设置成Data1。 Text1Text5的DataField属性分别选择与其对应的字段学号、姓名、性别、专业和出生年月。 Picture1的DataField属性选择字段照片,6.3.1 数据控件属性,进入,例6.3 用数据网格控件MsFlexGrid显示Student.mdb数据库中基本情况表的内容。,6.3.1 数据控件属性,进入,数据网格控件的Dat

16、aSource属性设置为一个Data控件，运行时网格控件的列标题会用Data控件的记录集里的数据自动地设置。 MsFlexGrid控件不是Visual Basic工具箱内的默认控件，需要在开发环境中选择“工程|部件”菜单命令，并在随即出现的对话框中选择“Microsoft FlexGrid Control 6.0”选项，将其添加到工具箱中。,6.3.1 数据控件属性,本例所用控件的属性设置如下表所示。,6.3.1 数据控件属性,注意:不可卷动列属性FixedCols=0与FixedCols=1的区别,进入,1Reposition事件 Reposition事件激活的条件:当记录集指针从一条记录移

17、到另一条记录，会产生Reposition事件。 Reposition事件作用:显示当前指针的位置。,6.3.2 数据控件的事件和常用方法,Private Sub Data1_Reposition() Data1.Caption = Data1.Recordset.AbsolutePosition + 1 End Sub,AbsolutePosition属性指示当前指针值(从0开始)。当单击数据控件对象上的箭头按钮时，数据控件的标题区会显示记录的序号,2.Validate事件 Validate事件激活的方法:在焦点转换到一个（第二个）控件之前发生，此时该控件CausesValidation 属性

18、值设置为True。 Validate事件的作用:用于检查被数据控件绑定控件的状态,例如,由一个记录移到另一个记录;或者焦点由一个文本框移到另一个文本框.,6.3.2 数据控件的事件和常用方法,6.3.2 数据控件的事件和常用方法,例题:在窗体中放置一个CommandButton 和两个TextBox 控件，来演示Validate 事件和CausesValidation 属性的使用。 限制条件为:如果 Text1没有包含日期或 Text2没有包含一个大于10的数字，将阻止焦点的转换。 两个TextBox 控件的CausesValidatio n属性在缺省情况为 True，这样当把焦点从一个Tex

19、tBox转换到另一个时，Validate 事件发生。,进入,6.3.2 数据控件的事件和常用方法,Private Sub Form_Load() With Command1 .CausesValidation = False 设置该属性为False,当用户单击按钮时，Validate事件不发生。 .Caption = Help End With Show With Text1 选择Text1的文本并为它设置焦点。 .SelLength = Len(Text1.Text) .SetFocus End With End Sub,With 语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称

20、。例如，要改变一个对象的多个属性，可以在 With 控制结构中加上属性的赋值语句，这时候只是引用对象一次而不是在每个属性赋值时都要引用它。,返回或设置所选择的字符数,6.3.2 数据控件的事件和常用方法,Private Sub Command1_Click() 当单击此按钮时给出用户帮助信息。 MsgBox _ Text1 must be set to a date. & VbCrLF & _ Text2 must be a number less than 10.“ End Sub,回车换行,6.3.2 数据控件的事件和常用方法,Private Sub Text1_Validate(Keep

21、Focus As Boolean) 如果值不是一个日期，则保持焦点，除非用户单击Help。 If Not IsDate(Text1.Text) Then KeepFocus = True MsgBox Please insert a date in this field., , Text1 End if End Sub,返回 Boolean 值指明某表达式是否可以转换为日期。,6.3.2 数据控件的事件和常用方法,Private Sub Text2_Validate(KeepFocus As Boolean) 如果值是一个大于10的数字，保持焦点。 If Not IsNumeric(Text2

22、.Text) Or Val(Text2.Text) 10 Then KeepFocus = True MsgBox _Please insert a number less than or equal to 10., , Text2 End If End Sub,返回 Boolean 值指明表达式的值是否为数字。,进入,6.3.2 数据控件的事件和常用方法,Validate事件的检查方法: 通过Save参数(True或False)判断被连接的数据（被绑定的控件） 是否发生变化。 通过Action参数判断哪一种操作触发了Validate事件。,6.3.2 数据控件的事件和常用方法,6.3.2 数

23、据控件的事件和常用方法,保存对 Recorded 对象的当前记录所做的所有更改。,例如，不允许用户在数据浏览时清空性别数据，可使用下列代码：,6.3.2 数据控件的事件和常用方法,Private Sub Data1_Validate(Action As Integer,_ Save As Integer) If Save And Len(Trim(Text3.Text) = 0 Then Action = 0 取消操作 MsgBox 性别不能为空！ End If End Sub,检查被数据控件绑定的控件Text3内的数据是否被清空。如果Text3内的数据发生变化，则Save参数返回True，若

24、性别对应的文本框Text3被置空，则通过Action=0取消对数据控件的操作,去除前导空格和末尾空格,3 数据控件的常用方法 数据控件的内置功能很多，可以在代码中用数据控件的方法访问这些属性。 1）Refresh方法 当RecordSource在运行时被改变时，使用Refresh方法，将当前指定RecordSource中的数据装入内存工作区，达到激活数据库的作用。,6.3.2 数据控件的事件和常用方法,6.3.2 数据控件的事件和常用方法,Private Sub Form_Load( ) Dim Mpath As String Mpath=App.Path 获取当前路径 If Right(mp

25、ath,1)”/” Then mpath=mpath+”/” Data1.DatabaseName=mpath+”Student.mdb” 连接数据库 Data1.RecordSource= 基本情况” 构成记录集对象 Data1.Refresh 激活数据控件 End Sub,App 对象是通过关键字 App 访问的全局对象。它指定如下信息：应用程序的标题、版本信息、可执行文件的路径及名称以及是否运行前一个应用程序的示例。 Path返回或设置当前路径，在编程时无效，运行时有效。,RIGHT(cExpression, nCharacters) Function返回从右边数的n个字符。,2）Upd

26、ateControls方法 UpdateControls方法从数据库中重新读数据送到被数据控件绑定的控件内。,6.3.2 数据控件的事件和常用方法,3）UpdateRecord方法 对绑定控件内的数据修改后，数据控件需要移动记录集的指针才能保存修改。如果使用UpdateRecord方法，可强制数据控件将绑定控件内的数据写入到数据库中，而不再触发Validate事件。,记录集Recordset常用的属性和方法。 1AbsolutePosition属性 AbsolutePosition返回当前指针值，如果是第1条记录，其值为0，该属性为只读属性。 2Bof和Eof的属性 Bof判定记录指针是否在首

27、记录之前，若Bof为True，则当前位置位于记录集的第1条记录之前。 Eof判定记录指针是否在末记录之后，若Eof为True，则当前位置位于记录集的最后1条记录之后。,6.3.3 记录集的属性和方法,6.3.2 数据控件的事件和常用方法,3Bookmark属性 Bookmark属性的值采用字符串类型，用于设置或返回当前指针的标签。在程序中可以使用Bookmark属性重定位记录集的指针。 4Nomatch属性 在记录集中进行查找时，如果找到相匹配的记录，则Recordset的NoMatch属性为False，否则为True。该属性常与Bookmark属性一起使用。 5RecordCount属性 R

28、ecordCount属性对Recordset对象中的记录计数，使用 RecordCount 属性可确定 Recordset 对象中记录的数目。,6.3.3 记录集的属性和方法,6Move方法 五种Move方法是： MoveFirst 将控件移动到第1条记录。 MoveLast 将控件移动到最后一条记录。 MoveNext 将控件移动到后一条记录。 MovePrevious 将控件移动到前一条记录。 Move n 向前或向后移n条记录，n为指定的数值。,6.3.3 记录集的属性和方法,例6.4 设计一个窗体用以显示建立的student.mdb数据库中基本情况表的内容。在窗体上用4个命令按钮实现对

29、数据库的操作。,图6.10 用按钮代替数据控件对象的箭头按钮,6.3.3 记录集的属性和方法,命令按钮Command1_Click事件移至第1条记录，代码如下：,6.3.3 记录集的属性和方法,命令按钮Command4_Click事件移至最后一条记录，代码如下：,Private Sub Command4_Click() Data1.Recordset.MoveLast End Sub,Private Sub Command1_Click() Data1.Recordset.MoveFirst End Sub,使用Move方法需要考虑Recordset对象的边界状态。如果越界，则用MoveFir

30、st方法定位到第1条记录或用MoveLast方法定位到最后一条记录。 使用MoveFirst方法定位到第1条记录：,6.3.3 记录集的属性和方法,Private Sub Command2_Click() Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End Sub,使用MoveLast方法定位到最后一条记录：,6.3.3 记录集的属性和方法,Private Sub Command3_Click() Data1.Recordset.MoveNext If Data1.Reco

31、rdset.EOF Then Data1.Recordset.MoveLast End Sub,7Find方法 使用Find方法可在Recordset对象中查找与指定条件相符的一条记录，并使之成为当前记录。 四种Find方法是： FindFirst方法 从记录集的开始查找满足条件的第1条记录。 FindLast方法 从记录集的尾部向前查找满足条件的第l条记录。 FindNext方法 从当前记录开始查找满足条件的下一条记录。 FindPrevious方法 从当前记录开始查找满足条件的上一条记录。,6.3.3 记录集的属性和方法,Find方法的语法格式:4种格式相同 数据集.Find方法 条件 搜

32、索条件表达式:是一个指定字段与常量关系的字符串表达式。在构造表达式时，除了用普通的关系运算外，还可以用Like运算符。 例如，查找专业=物理的纪录 “Data1.Recordset.FindFirst 专业=物理” 查找下一条符合条件的记录，可继续使用语句： ”Data1.Recordset.FindNext 专业=物理”。,6.3.3 记录集的属性和方法,例如，要在记录集内查找专业名称中带有“建”字的专业: Data1.Recordset.FindFirst 专业 Like %建% 如果Find方法找不到相匹配的记录，则记录保持在查找的始发处，Recordset的NoMatch属性为True

33、。 如果Find方法找到相匹配的记录，则记录定位到该记录，Recordset的NoMatch属性为False。,6.3.3 记录集的属性和方法,6.3.3 记录集的属性和方法,Private Sub Command1_Click() Data1.Recordset.FindFirst”course”=English“ If Data1.Recordset.NoMatch Then MsgBox ”No such record found” Else MsgBox Data1.Recordset.Fields(“course” ) End If End Sub,8Seek方法 Seek方法:是根

34、据索引字段的值，查找与指定索引规则相符的第1条记录，并使之成为当前记录。 其语法格式为： 数据表对象.seek comparison,keyl,key2 比较运算符comparison；可用的比较运算符有 =、=、= Seek允许接受多个参数keyl,key2， ； 在使用Seek方法定位记录时，必须打开索引文件，通过Index属性设置索引文件。若在记录集中多次使用同样的Seek方法(参数相同)，那么找到的总是同一条记录。,6.3.3 记录集的属性和方法,例如，假设数据库Student内基本情况表的索引字段为学号，满足学号字段值大于等于110001的第1条记录可使用以下程序代码：,6.3.3

35、记录集的属性和方法,Data1.RecordsetType = 1 设置记录集类型为Table Data1.RecordSource = “基本情况” 打开基本情况表单 Data1.Refresh Data1.Recordset.Index = jbqk_no 打开名称为jbqk_no的索引 Data1.Recordset.Seek =, 110001,数据库记录的增、删、改操作需要使用AddNew、Delete、Edit、Update和Refresh方法。 它们的语法格式为： 数据控件.记录集.方法名 1增加记录 调用AddNew方法。 给各字段赋值。给字段赋值格式为： Recordset.

36、Fields(”字段名”)=值。,6.3.4 数据库记录的增删改操作,调用Update方法，将缓冲区内的数据写入数据库。 如果使用AddNew方法添加新的记录，但是没有使用Update方法而移动到其他记录，或者关闭记录集，那么所做的输入将全部丢失，而且没有任何警告。 当调用Update方法写入记录后，记录指针自动返回到添加新记录前的位置上，而不显示新记录。因此，需要在调用Update方法后，使用MoveLast方法将记录指针再次移到新记录上。,6.3.4 数据库记录的增删改操作,2删除记录 定位被删除的记录使之成为当前记录。 调用Delete方法。 移动记录指针。 在使用Delete方法时，当

37、前记录立即删除，不加任何的警告或者提示。 删除一条记录后，被数据库所约束的绑定控件仍旧显示该记录的内容。因此，必须移动记录指针刷新绑定控件，一般采用移至下一记录的处理方法。 在移动记录指针后，应该检查Eof属性,6.3.4 数据库记录的增删改操作,3编辑记录 数据控件自动提供了修改现有记录的能力，当直接改变被数据库所约束的绑定控件的内容后，需单击数据控件对象的任一箭头按钮来改变当前记录，确定所做的修改。 使用程序代码修改当前记录步骤的为： 调用Edit方法。 给各字段赋值。 调用Update方法，确定所做的修改。 如果要放弃对数据的所有修改，可用updatecontrols方法，重读数据库的数

38、据，没有调用Update方法，数据的修改没有写入数据库，所以这样的记录会在刷新记录集时丢失。,6.3.4 数据库记录的增删改操作,图6.11 编程建立增、删、改、查功能,例6.5 设计一个窗体用以显示建立的student.mdb数据库中基本情况表的内容。并加入“新增”、“删除”、“修改”、“放弃”和“查找”钮，通过对5个按纽的编程建立增、删、改、查功能。,6.3.4 数据库记录的增删改操作,进入,Command1_Click事件的功能： 当按钮提示为“新增”时调用AddNew方法，并将提示文字改为“确认”，同时使“删除”按钮Command2、“修改”按钮Command3和“查找”按钮Comma

39、nd5不可用，而使“放弃”按钮Command4可用。 新增记录后，需再次单击Command1调用Update方法确认添加的记录，再将提示文字改为“新增”，并使“删除”、“修改”和“查找”按钮可用，而使“放弃”按钮不可用。 On Error Resume Next语句表示在程序运行时发生错误，忽略错误行，继续执行下一语句。,6.3.4 数据库记录的增删改操作,6.3.4 数据库记录的增删改操作,Private Sub Command1_Click() On Error Resume Next。 Command2.Enabled = Not Command2.Enabled Command3.En

40、abled = Not Command3.Enabled Command4.Enabled = Not Command4.Enabled Command5.Enabled = Not Command5.Enabled,6.3.4 数据库记录的增删改操作,If Command1.Caption = 新增 Then Command1.Caption = “确认” Data1.Recordset.AddNew Text1.SetFocus Else Command1.Caption = 新增 Data1.Recordset.Update Data1.Recordset.MoveLast End If

41、 End Sub,命令按钮Command2_Click事件功能： 调用方法删除当前记录。当记录集中的记录全部被删除后，再执行Move语句将发生错误，这时由On Error Resume Next语句处理错误。,6.3.4 数据库记录的增删改操作,Private Sub Command2_Click() On Error Resume Next Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub,命令按钮Command3_Click

42、事件的功能： 根据按钮提示文字调用Edit方法进入编辑状态或调用Update方法将修改后的数据写入到数据库，并控制其他3个按钮的可用性，代码如下：,6.3.4 数据库记录的增删改操作,Private Sub Command3_Click() On Error Resume Next Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled Command4.Enabled = Not Command4.Enabled Command5.Enabled = Not Command5.Enable

43、d,6.3.4 数据库记录的增删改操作,If Command3.Caption = 修改 Then Command3.Caption = 确认 Data1.Recordset.Edit Text1.SetFocus Else Command3.Caption = 修改 Data1.Recordset.Update End If End Sub,命令按钮Command4_Click事件的功能： 使用UpdateControls方法放弃操作，代码如下：,6.3.4 数据库记录的增删改操作,Private Sub Command4_Click() On Error Resume Next Comma

44、nd1.Caption = 新增 Command3.Caption = 修改,6.3.4 数据库记录的增删改操作,Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled =false Command5.Enabled = True Data1.UpdateControls Dala1.Recordset.MoveNext End Sub,命令按钮Command5_Click事件的功能： 根据输入专业使用SQL语句查找记录，代码如下：,6.3.4 数据库记录的增删改操作,Pr

45、ivate Sub Command5_Click() Dim mzy As String mzy = InputBox$(请输入专业, 查找窗) Data1.RecordSource = Select * From 基本情况_ Where 专业 = & mzy & Data1.Refresh,上面的代码给出了数据表内数据处理的基本方法,6.3.4 数据库记录的增删改操作,If Data1.Recordset.EOF Then MsgBox 无此专业!, , 提示 Data1.RecordSource = “基本情况” Data1.Refresh End If End Sub,使用Data1_V

46、alidate事件过滤无效记录 例如，对学号字段进行测试，如果学号为空则输入无效。在例6.5中被学号字段所约束的绑定控件是Text1，可用Text1.DataChanged属性检测Text1控件所对应的当前记录中的字段值的内容是否发生了变化，Action=6表示Update操作。 使用数据控件的箭头按钮改变当前记录，则完成添加的新记录或对已有记录的修改的任务。 而单击数据控件的箭头按钮时会触发Validate事件，在该事件中，可以根据Action取值（14）来判断单击了数据控件哪一个箭头按钮。,6.3.4 数据库记录的增删改操作,6.3.4 数据库记录的增删改操作,Private Sub Da

47、ta1_Validate(Action As Integer, Save As Integer) If Text1.Text = And _ (Action = 6 Or Text1.DataChanged) Action=6表示Update操作 Then MsgBox 数据不完整，必须要有学号! Data1.UpdateControls 读回原数据 End If,6.3.4 数据库记录的增删改操作,If Action = 1 And Action = 4 Then Command1.Caption = 新增 Command3.Caption = 修改 Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False End If End Sub,MoveFirst,