Visual Basic程序设计与实训 教学课件 作者 苏玉雄 习题答案 第11章答案.docVIP

1、举例说明记录、字段、表与数据库之间的关系？ 2、怎样使用SQL语句修改特定表中字段的值？ 3、练习编写一个公司的通讯录查询程序，要求可以实现添加、删除、查询等功能？ 答案： 1、我们先了解什么是关系数据库，关系数据库就是将数据表示为表的集合，通过建立简单表之间的关系来定义结构的一种数据库。 　　不管表在数据库文件中的物理存储方式如何，它都可以看作一组行和列，与电子表格的行和列类似。在关系数据库中，行被称为记录，而列则被称为字段。下面是一个学籍表的例子。 学籍号 姓名 性别 出生年月日 籍贯 爱好 0605001 李云杰 女 1990-8-5 湖南长沙 游泳 0605002 张飞 男 1990-12-20 湖南岳阳 足球 0605003 陈强 男 1989-11-2 湖南常德 读书 0605004 陆晓月 女 1989-2-3 湖南长沙 篮球 　　此表中每一行是一个记录，它包含了特定客户的所有信息，而每个记录则包含了相同类型和数量的字段：学籍号、姓名等等。 　　表是一种按行与列排列的相关信息的逻辑组，类似于工作单表。 　　字段数据库表中的每一列称作一个字段。表是由其包含的各种字段定义的，每个字段描述了它所含有的数据。创建一个数据库时，须为每个字段分配一个数据类型、最大长度和其它属性。字段可包含各种字符、数字甚至图形。 　　记录各个客户有关的信息存放在表的行，被称为记录。一般来说，数据库表创建时任意两个记录都不能相同。 　　关系数据库可以由多个表组成，表与表之间可以以不同的方式相互关联。 2、ALTER?TABLE?[表名]?ALTER?COLUMN?[字段名]?NVARCHAR?(50)?NULL?Private Sub cmdAdd_Click() Data1.Recordset.AddNew End Sub Private Sub cmdDelete_Click() If (MsgBox(确定要删除该条记录?, vbYesNo + vbQuestion + vbDefaultButton2, 提示)) = vbYes Then 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNext End If End Sub Private Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.Refresh Data1.Recordset.MoveLast Data1.Recordset.MoveFirst End Sub Private Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub Command1_Click() Data1.Recordset.MoveFirst End Sub Private Sub Command2_Click() If (Not Data1.Recordset.BOF) Then Data1.Recordset.MovePrevious End Sub Private Sub Command3_Click() If (Not Data1.Recordset.EOF) Then Data1.Recordset.MoveNext End Sub Private Sub Command4_Click() Data1.Recordset.MoveLast End Sub Private Sub Command5_Click() Dim condition As String condition = Text1.Text If (condition = ) Then MsgBox 请输入查询条件, , 提示 Exit Sub End If Data1.Recordset.FindFirst condition If (Data1.Recordset.NoMatch) Then MsgBox 没有符合条件的记录, , 提示 End If End Sub Private Sub Data1_Error(DataErr As Integer, Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： Error