VB数据库编程技术.ppt

《VB数据库编程技术.ppt》由会员分享，可在线阅读，更多相关《VB数据库编程技术.ppt（85页珍藏版）》请在三一办公上搜索。

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）VB数据库 也

2、称本地数据库，本地数据库文件格式与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数据库应用程序包含三部分，如图6.

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

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

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

6、数据库如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),基本情况表(学号，姓名，性别，专业，出生年月，照片，备注),6.2 本地数据库设计(ACCESS),学

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

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

10、nect属性指定数据控件所要连接的数据库类型，Visual Basic默认的数据库是Access的MDB文件，也可连接ODBC等类型的数据库。Access数据库的所有表都包含在一个MDB文件中。,6.3.1 数据控件属性,2DatabaseName属性DatabaseName属性指定具体使用的数据库文件名，包括文件所在的路径名。数据库中的基本表名可由RecordSource属性指定。例如，要连接一个Microsoft Access的数据库存放在C:Student.mdb.设置DatabaseName=”C:Student.mdb“，该方法可以通过属性栏设置，或在过程中指定.在过程中可以使用相对

11、路径来描述,DatabaseName=”.Student.mdb“。,6.3.1 数据控件属性,3RecordSource属性RecordSource确定具体可访问的记录集对象Recordset。该属性值可以是数据库中的单个表名或者是使用SQL查询语言的一个查询。例如，指定Student.mdb数据库中的基本情况表:RecordSource=”基本情况”。例如，访问基本情况表中所有物理系学生的数据。RecordSource=”Select From 基本情况 Where专业=物理”，,6.3.1 数据控件属性,4RecordsetType属性RecordsetType属性确定记录集类型。（1）

12、Table:表记录集类型，一个记录集（单个表）（2）Dynaset:动态集类型，一个动态记录集（多个表），默认值。（3）Snapshot：快照类型，一个记录集静态副本（不可改）5EofAction和BofAction属性当记录指针指向Recordset对象的开始(第一个记录前)或结束(最后一个记录后)时，BofAction和EofAction属性的设置或返回值决定了数据控件要采取的操作。操作属性的取值如表6.1所示。,6.3.1 数据控件属性,6.3.1 数据控件属性,焦点将从一个记录转换到另一个记录之前，Validate 事件发生,6.3.1 数据控件属性,与数据控件绑定：数据控件本身不能直

13、接显示记录集中的数据，必须通过能与它绑定的控件来实现。可与数据控件绑定的控件对象有文本框、标签、图像框、图形框、列表框、组合框、复选框、网格、DB列表框、DB组合框、DB网格和OLE容器等控件。要使绑定控件能被数据库约束，必需在设计或运行时对上述控件的两个属性进行设置：DataSource属性 该属性通过指定个有效的数据控件连接到一个数据库上。DataField属性 该属性设置数据库有效的字段与绑定控件建立联系。,6.3.1 数据控件属性,当上述控件与数据控件绑定后，Visual Basic将当前记录的字段值赋给控件。数据控件在装入数据库时，它把记录集的第一个记录作为当前记录。当数据控件的Eo

14、fAction属性值设置为2时，当记录指针移过记录集结束位，数据控件会自动向记录集加入新的空记录。,绑定控件、数据控件和数据库三者的关系如图下示。,6.3.1 数据控件属性,例6.2 设计一个窗体用以显示建立的student.mdb数据库中基本情况表的内容。要显示基本情况表中除了备注字段外的6个字段，故需要用6个绑定控件与之对应。这里用一个图形框显示照片和5个文本框显示学号、姓名等数据。,6.3.1 数据控件属性,进入,数据控件Data1属性设置Connect属性指定为Access类型DatabaseName属性连接数据库Student.mdbRecordSource属性设置为“基本情况”表。

15、图片框和5个文本框控件属性设置Text1Text5的DataSource属性设置成Data1。Text1Text5的DataField属性分别选择与其对应的字段学号、姓名、性别、专业和出生年月。Picture1的DataField属性选择字段照片,6.3.1 数据控件属性,进入,例6.3 用数据网格控件MsFlexGrid显示Student.mdb数据库中基本情况表的内容。,6.3.1 数据控件属性,进入,数据网格控件的DataSource属性设置为一个Data控件，运行时网格控件的列标题会用Data控件的记录集里的数据自动地设置。MsFlexGrid控件不是Visual Basic工具箱内的

16、默认控件，需要在开发环境中选择“工程|部件”菜单命令，并在随即出现的对话框中选择“Microsoft FlexGrid Control 6.0”选项，将其添加到工具箱中。,6.3.1 数据控件属性,本例所用控件的属性设置如下表所示。,6.3.1 数据控件属性,注意:不可卷动列属性FixedCols=0与FixedCols=1的区别,进入,1Reposition事件Reposition事件激活的条件:当记录集指针从一条记录移到另一条记录，会产生Reposition事件。Reposition事件作用:显示当前指针的位置。,6.3.2 数据控件的事件和常用方法,Private Sub Data1_R

17、eposition()Data1.Caption=Data1.Recordset.AbsolutePosition+1 End Sub,AbsolutePosition属性指示当前指针值(从0开始)。当单击数据控件对象上的箭头按钮时，数据控件的标题区会显示记录的序号,2.Validate事件Validate事件激活的方法:在焦点转换到一个（第二个）控件之前发生，此时该控件CausesValidation 属性值设置为True。Validate事件的作用:用于检查被数据控件绑定控件的状态,例如,由一个记录移到另一个记录;或者焦点由一个文本框移到另一个文本框.,6.3.2 数据控件的事件和常用方法

18、,6.3.2 数据控件的事件和常用方法,例题:在窗体中放置一个CommandButton 和两个TextBox 控件，来演示Validate 事件和CausesValidation 属性的使用。限制条件为:如果 Text1没有包含日期或 Text2没有包含一个大于10的数字，将阻止焦点的转换。两个TextBox 控件的CausesValidatio n属性在缺省情况为 True，这样当把焦点从一个TextBox转换到另一个时，Validate 事件发生。,进入,6.3.2 数据控件的事件和常用方法,Private Sub Form_Load()With Command1.CausesValid

19、ation=False 设置该属性为False,当用户单击按钮时，Validate事件不发生。.Caption=Help End With Show With Text1 选择Text1的文本并为它设置焦点。.SelLength=Len(Text1.Text).SetFocus End WithEnd Sub,With 语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。例如，要改变一个对象的多个属性，可以在 With 控制结构中加上属性的赋值语句，这时候只是引用对象一次而不是在每个属性赋值时都要引用它。,返回或设置所选择的字符数,6.3.2 数据控件的事件和常用方法,Private

20、 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(KeepFocus As Boolean)如果值不是一个日期，则保持焦点，除非用户单击Help。If Not IsDate(Text1.Text)Then KeepFocus=True MsgBox Please insert a date

21、 in this field.,Text1 End ifEnd Sub,返回 Boolean 值指明某表达式是否可以转换为日期。,6.3.2 数据控件的事件和常用方法,Private Sub Text2_Validate(KeepFocus As Boolean)如果值是一个大于10的数字，保持焦点。If Not IsNumeric(Text2.Text)Or Val(Text2.Text)10 Then KeepFocus=True MsgBox _Please insert a number less than or equal to 10.,Text2 End IfEnd Sub,返回

22、Boolean 值指明表达式的值是否为数字。,进入,6.3.2 数据控件的事件和常用方法,Validate事件的检查方法:通过Save参数(True或False)判断被连接的数据（被绑定的控件）是否发生变化。通过Action参数判断哪一种操作触发了Validate事件。,6.3.2 数据控件的事件和常用方法,6.3.2 数据控件的事件和常用方法,保存对 Recorded 对象的当前记录所做的所有更改。,例如，不允许用户在数据浏览时清空性别数据，可使用下列代码：,6.3.2 数据控件的事件和常用方法,Private Sub Data1_Validate(Action As Integer,_ S

23、ave As Integer)If Save And Len(Trim(Text3.Text)=0 Then Action=0 取消操作 MsgBox 性别不能为空！End IfEnd Sub,检查被数据控件绑定的控件Text3内的数据是否被清空。如果Text3内的数据发生变化，则Save参数返回True，若性别对应的文本框Text3被置空，则通过Action=0取消对数据控件的操作,去除前导空格和末尾空格,3 数据控件的常用方法数据控件的内置功能很多，可以在代码中用数据控件的方法访问这些属性。1）Refresh方法当RecordSource在运行时被改变时，使用Refresh方法，将当前指定

24、RecordSource中的数据装入内存工作区，达到激活数据库的作用。,6.3.2 数据控件的事件和常用方法,6.3.2 数据控件的事件和常用方法,Private Sub Form_Load()Dim Mpath As String Mpath=App.Path 获取当前路径 If Right(mpath,1)”/”Then mpath=mpath+”/”Data1.DatabaseName=mpath+”Student.mdb”连接数据库 Data1.RecordSource=基本情况”构成记录集对象 Data1.Refresh 激活数据控件End Sub,App 对象是通过关键字 App

25、访问的全局对象。它指定如下信息：应用程序的标题、版本信息、可执行文件的路径及名称以及是否运行前一个应用程序的示例。Path返回或设置当前路径，在编程时无效，运行时有效。,RIGHT(cExpression,nCharacters)Function返回从右边数的n个字符。,2）UpdateControls方法UpdateControls方法从数据库中重新读数据送到被数据控件绑定的控件内。,6.3.2 数据控件的事件和常用方法,3）UpdateRecord方法对绑定控件内的数据修改后，数据控件需要移动记录集的指针才能保存修改。如果使用UpdateRecord方法，可强制数据控件将绑定控件内的数据写

26、入到数据库中，而不再触发Validate事件。,记录集Recordset常用的属性和方法。1AbsolutePosition属性AbsolutePosition返回当前指针值，如果是第1条记录，其值为0，该属性为只读属性。2Bof和Eof的属性Bof判定记录指针是否在首记录之前，若Bof为True，则当前位置位于记录集的第1条记录之前。Eof判定记录指针是否在末记录之后，若Eof为True，则当前位置位于记录集的最后1条记录之后。,6.3.3 记录集的属性和方法,6.3.2 数据控件的事件和常用方法,3Bookmark属性Bookmark属性的值采用字符串类型，用于设置或返回当前指针的标签。在

27、程序中可以使用Bookmark属性重定位记录集的指针。4Nomatch属性在记录集中进行查找时，如果找到相匹配的记录，则Recordset的NoMatch属性为False，否则为True。该属性常与Bookmark属性一起使用。5RecordCount属性RecordCount属性对Recordset对象中的记录计数，使用 RecordCount 属性可确定 Recordset 对象中记录的数目。,6.3.3 记录集的属性和方法,6Move方法 五种Move方法是：MoveFirst 将控件移动到第1条记录。MoveLast 将控件移动到最后一条记录。MoveNext 将控件移动到后一条记录。

28、MovePrevious 将控件移动到前一条记录。Move n 向前或向后移n条记录，n为指定的数值。,6.3.3 记录集的属性和方法,例6.4 设计一个窗体用以显示建立的student.mdb数据库中基本情况表的内容。在窗体上用4个命令按钮实现对数据库的操作。,图6.10 用按钮代替数据控件对象的箭头按钮,6.3.3 记录集的属性和方法,命令按钮Command1_Click事件移至第1条记录，代码如下：,6.3.3 记录集的属性和方法,命令按钮Command4_Click事件移至最后一条记录，代码如下：,Private Sub Command4_Click()End Sub,Private

29、Sub Command1_Click()End Sub,使用Move方法需要考虑Recordset对象的边界状态。如果越界，则用MoveFirst方法定位到第1条记录或用MoveLast方法定位到最后一条记录。使用MoveFirst方法定位到第1条记录：,6.3.3 记录集的属性和方法,Private Sub Command2_Click()End Sub,使用MoveLast方法定位到最后一条记录：,6.3.3 记录集的属性和方法,Private Sub Command3_Click()If Data1.Recordset.EOF End Sub,7Find方法使用Find方法可在Recor

30、dset对象中查找与指定条件相符的一条记录，并使之成为当前记录。四种Find方法是：FindFirst方法 从记录集的开始查找满足条件的第1条记录。FindLast方法 从记录集的尾部向前查找满足条件的第l条记录。FindNext方法 从当前记录开始查找满足条件的下一条记录。FindPrevious方法 从当前记录开始查找满足条件的上一条记录。,6.3.3 记录集的属性和方法,Find方法的语法格式:4种格式相同 数据集.Find方法 条件搜索条件表达式:是一个指定字段与常量关系的字符串表达式。在构造表达式时，除了用普通的关系运算外，还可以用Like运算符。例如，查找专业=物理的纪录“Data

31、1.Recordset.FindFirst 专业=物理”查找下一条符合条件的记录，可继续使用语句：”Data1.Recordset.FindNext 专业=物理”。,6.3.3 记录集的属性和方法,例如，要在记录集内查找专业名称中带有“建”字的专业:Data1.Recordset.FindFirst 专业 Like%建%如果Find方法找不到相匹配的记录，则记录保持在查找的始发处，Recordset的NoMatch属性为True。如果Find方法找到相匹配的记录，则记录定位到该记录，Recordset的NoMatch属性为False。,6.3.3 记录集的属性和方法,6.3.3 记录集的属性和

32、方法,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 IfEnd Sub,8Seek方法Seek方法:是根据索引字段的值，查找与指定索引规则相符的第1条记录，并使之成为当前记录。其语法格式为：数据表对象.seek comparison,keyl,key2比较运算符comparison；可用的

33、比较运算符有=、=、=Seek允许接受多个参数keyl,key2，；在使用Seek方法定位记录时，必须打开索引文件，通过Index属性设置索引文件。若在记录集中多次使用同样的Seek方法(参数相同)，那么找到的总是同一条记录。,6.3.3 记录集的属性和方法,例如，假设数据库Student内基本情况表的索引字段为学号，满足学号字段值大于等于110001的第1条记录可使用以下程序代码：,6.3.3 记录集的属性和方法,Data1.RecordsetType=1 设置记录集类型为TableData1.RecordSource=“基本情况”打开基本情况表单Data1.RefreshData1.Rec

34、ordset.Index=jbqk_no 打开名称为jbqk_no的索引Data1.Recordset.Seek=,110001,数据库记录的增、删、改操作需要使用AddNew、Delete、Edit、Update和Refresh方法。它们的语法格式为：数据控件.记录集.方法名1增加记录 调用AddNew方法。给各字段赋值。给字段赋值格式为：Recordset.Fields(”字段名”)=值。,6.3.4 数据库记录的增删改操作,调用Update方法，将缓冲区内的数据写入数据库。如果使用AddNew方法添加新的记录，但是没有使用Update方法而移动到其他记录，或者关闭记录集，那么所做的输入将

35、全部丢失，而且没有任何警告。当调用Update方法写入记录后，记录指针自动返回到添加新记录前的位置上，而不显示新记录。因此，需要在调用Update方法后，使用MoveLast方法将记录指针再次移到新记录上。,6.3.4 数据库记录的增删改操作,2删除记录 定位被删除的记录使之成为当前记录。调用Delete方法。移动记录指针。在使用Delete方法时，当前记录立即删除，不加任何的警告或者提示。删除一条记录后，被数据库所约束的绑定控件仍旧显示该记录的内容。因此，必须移动记录指针刷新绑定控件，一般采用移至下一记录的处理方法。在移动记录指针后，应该检查Eof属性,6.3.4 数据库记录的增删改操作,3

36、编辑记录数据控件自动提供了修改现有记录的能力，当直接改变被数据库所约束的绑定控件的内容后，需单击数据控件对象的任一箭头按钮来改变当前记录，确定所做的修改。使用程序代码修改当前记录步骤的为：调用Edit方法。给各字段赋值。调用Update方法，确定所做的修改。如果要放弃对数据的所有修改，可用updatecontrols方法，重读数据库的数据，没有调用Update方法，数据的修改没有写入数据库，所以这样的记录会在刷新记录集时丢失。,6.3.4 数据库记录的增删改操作,图6.11 编程建立增、删、改、查功能,例6.5 设计一个窗体用以显示建立的student.mdb数据库中基本情况表的内容。并加入“

37、新增”、“删除”、“修改”、“放弃”和“查找”钮，通过对5个按纽的编程建立增、删、改、查功能。,6.3.4 数据库记录的增删改操作,进入,Command1_Click事件的功能：当按钮提示为“新增”时调用AddNew方法，并将提示文字改为“确认”，同时使“删除”按钮Command2、“修改”按钮Command3和“查找”按钮Command5不可用，而使“放弃”按钮Command4可用。新增记录后，需再次单击Command1调用Update方法确认添加的记录，再将提示文字改为“新增”，并使“删除”、“修改”和“查找”按钮可用，而使“放弃”按钮不可用。On Error Resume Next语句表

38、示在程序运行时发生错误，忽略错误行，继续执行下一语句。,6.3.4 数据库记录的增删改操作,6.3.4 数据库记录的增删改操作,Private Sub Command1_Click()On Error Resume Next。Command2.Enabled=Not Command2.Enabled Command3.Enabled=Not Command3.Enabled Command4.Enabled=Not Command4.Enabled Command5.Enabled=Not Command5.Enabled,6.3.4 数据库记录的增删改操作,If Command1.Capti

39、on=新增 Then Command1.Caption=“确认”Text1.SetFocus Else Command1.Caption=新增 End IfEnd 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 D

40、ata1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub,命令按钮Command3_Click事件的功能：根据按钮提示文字调用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.

41、Enabled=Not Command4.Enabled Command5.Enabled=Not Command5.Enabled,6.3.4 数据库记录的增删改操作,If Command3.Caption=修改 Then Command3.Caption=确认 Text1.SetFocus Else Command3.Caption=修改 End IfEnd Sub,命令按钮Command4_Click事件的功能：使用UpdateControls方法放弃操作，代码如下：,6.3.4 数据库记录的增删改操作,Private Sub Command4_Click()On Error Resum

42、e Next Command1.Caption=新增 Command3.Caption=修改,6.3.4 数据库记录的增删改操作,Command1.Enabled=True Command2.Enabled=True Command3.Enabled=True Command4.Enabled=false Command5.Enabled=TrueEnd Sub,命令按钮Command5_Click事件的功能：根据输入专业使用SQL语句查找记录，代码如下：,6.3.4 数据库记录的增删改操作,Private Sub Command5_Click()Dim mzy As String mzy=I

43、nputBox$(请输入专业,查找窗)Data1.RecordSource=Select*From 基本情况_ Where 专业=&mzy&Data1.Refresh,上面的代码给出了数据表内数据处理的基本方法,6.3.4 数据库记录的增删改操作,If Data1.Recordset.EOF Then MsgBox 无此专业!,提示 Data1.RecordSource=“基本情况”Data1.Refresh End IfEnd Sub,使用Data1_Validate事件过滤无效记录例如，对学号字段进行测试，如果学号为空则输入无效。在例6.5中被学号字段所约束的绑定控件是Text1，可用Te

44、xt1.DataChanged属性检测Text1控件所对应的当前记录中的字段值的内容是否发生了变化，Action=6表示Update操作。使用数据控件的箭头按钮改变当前记录，则完成添加的新记录或对已有记录的修改的任务。而单击数据控件的箭头按钮时会触发Validate事件，在该事件中，可以根据Action取值（14）来判断单击了数据控件哪一个箭头按钮。,6.3.4 数据库记录的增删改操作,6.3.4 数据库记录的增删改操作,Private Sub Data1_Validate(Action As Integer,Save As Integer)If Text1.Text=And _(Action

45、=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 IfEnd Sub,MoveFir

46、st,MoveLast,进入,1 ODBC概述存在问题 使用数据库系统所提供的专用开发工具(如嵌入式SQL语言)，开发的应用程序只能运行在特定的数据库系统环境下，适应性和可移植性比较差。使用数据库系统所提供的嵌入式SQL语言，一个应用程序只能连接同类的DBMS，而无法同时访问多个不同的DBMS；在实际应用中通常是需要同时访问多个不同的DBMS。这种情况下传统的数据库应用程序开发方法就难以实现。为了解决这些问题，Microsoft公司开发了ODBC。,6.4 ODBC,ODBC(Open DataBase Connectivity，即开放数据库互连)是Microsoft公司开发的一套开放数据库系

47、统应用程序接口规范，目前它已成为一种工业标准，它提供了统一的数据库应用编程接口(API)，为应用程序提供了一套高层调用接口规范和基于动态连接库的运行支持环境。使用ODBC开发数据库应用时，应用程序调用的是标准的ODBC函数和SQL语句，数据库底层操作由各个数据库的驱动程序完成。因此应用程序有很好的适应性和可移植性，并且具备了同时访问多种数据库管理系统的能力，从而彻底克服了传统数据库应用程序的缺陷。,6.4 ODBC,图6.12 ODBC的体系结构,2 ODBC体系结构,6.4 ODBC,主要任务包括：建立与数据源的连接、向数据源发送SQL请求、接收并处理请求的结果、断开与数据源的连接等,主要作

48、用是用来装载ODBC驱动程序、管理数据源、检查ODBC参数的合法性,6.4 ODBC,ODBC应用程序不能直接存取数据库，它将所要执行的操作提交给数据库驱动程序，,通过针对不同数据源的驱动程序实现对不同数据源的各种操作,ODBC驱动程序是一个动态链接库(DLL)，类似于Windows下的打印驱动程序，对用户来说，驱动程序屏蔽了不同对象(数据库系统或打印机)间的差异。同样地，ODBC屏蔽了DBMS之间的差异。,6.4 ODBC,数据库操作结果也通过驱动程序返回给应用程序。,数据源数据源(Data Source Name，简称DSN)是指任一种可以通过ODBC连接的数据库管理系统，它包括要访问的数

49、据库和数据库的运行平台。数据源名表达了一个ODBC驱动程序和DBMS的特定连接。例如，建立一个数据源名为Studend1，并设置Studend1=Studend.mdb。使用Studend1的用户可以由文件指定、本机使用或用户使用三种。通过定义多个数据源名，每个数据源名指向一个数据库服务器上的DBMS名，在应用程序中使用不同的数据源名，可以实现同时访问多个DBMS的目的。,6.4 ODBC,数据源分为以下三类,可以通过控制面板中ODBC图标来设置：用户数据源 用户创建的数据源，称为“用户数据源”。此时只有创建者才能使用，并且只能在所定义的机器上运行。任何用户都不能使用其他用户创建的用户数据源。

50、系统数据源 所有用户和在Windows NT下以服务方式运行的应用程序均可使用系统数据源。文件数据源 文件数据源可用于企业用户，ODBC驱动程序安装在用户的计算机上。,6.4 ODBC,ODBC提供了一个开放的、标准的能访问从PC机、小型机到大型机数据库数据的接口。ODBC提供了在不同数据库环境中为客户机/服务器（简称CS）结构的客户机访问异构数据库的接口。使用ODBC标准接口的应用程序，开发者可以不必深入了解要访问的数据库系统，比如其支持的操作和数据类型等信息，而只需掌握通用的ODBC API编程方法即可。利用ODBC开发的数据库应用程序具有很好的移植性，当作为数据库源的数据库服务器上的数据