法律信息系统管理资料-定义数据知识课件.pptxVIP

7.7.1 定义数据 2. 在表中增加字段 [例7-12] 为Student表增加一个货币型的字段“学费” 3. 改变字段的类型 [例7-13] 修改Student表中“年龄”字段的类型 Sub Add_Field() DoCmd.RunSQL ALTER TABLE Student ADD 学费 CURRENCY End Sub 7.7.1 定义数据 4. 改变字段的宽度 [例7-14] 更改Student表中“姓名”字段的宽度 5. 删除一个字段 [例7-15] 删除Student表中的“年龄”字段 Sub Delete_Field() DoCmd.RunSQL ALTER TABLE Student DROP 年龄 End Sub 7.7.1 定义数据 6. 删除一个表 [例7-16] 删除Student表 7. 修改数据表名字 [例7-17] 将Student表的名字更改成“学生” Sub Rename_Table() DoCmd.Rename 学生, acTable, Student End Sub Sub Delete_Table() DoCmd.RunSQL DROP TABLE Student End Sub 7.7.2 编辑数据 1. 向表中追加记录 [例7-18] 在Student表中添加一条记录 Sub Insert_Table() DoCmd.RunSQL INSERT INTO Student VALUES(李大明, 35, 2003-1-15) End Sub VALUES后的数据与表中字段的顺序要一一对应 说明： （1）日期型常量可以放在一对单引号或一对#中。 （2）如果数据是通过输入对话框等途径获得，需在SQL命令中使用变量，然后用运算符将变量连接到SQL命令中。对于字符串变量或日期型变量，要在这些变量的两侧加上一对单引号。 7.7.2 编辑数据 [例7-19] 通过变量为Student表添加一条记录 Sub Insert_Table_VBA() Dim S_name As String Dim Age As Byte, S_date As Date S_name = InputBox(输入学生姓名：) S_date = InputBox(入学日期：) Age = 21 DoCmd.RunSQL INSERT INTO Student VALUES( S_name , Age , S_date ) End Sub 注意单引号和双引号出现的位置 7.7.2 编辑数据 2. 修改表中记录 [例7-20] 将“导师”表中“李向明”的年龄改成40 [例7-21] 将“导师”表中所有男导师的年龄增加1岁 Sub Update_Table_1() DoCmd.RunSQL UPDATE 导师 SET 年龄=40 WHERE 姓名=李向明 End Sub 如果本例用ADO技术编程，代码会怎样 ？ Sub Update_Table_2() DoCmd.RunSQL UPDATE 导师 SET 年龄=年龄+1 WHERE 性别=男 End Sub 7.7.2 编辑数据 3. 删除特定记录 [例7-22] 将“导师”表中年龄在50岁以下的记录全部删除 Sub Delete_Record() DoCmd.RunSQL DELETE FROM 导师 WHERE 年龄50 End Sub 思考： （1）如果要求将“导师”表中低于年龄平均值的导师记录删除，例7-22应怎样修改？ （2）如果要删除小于X岁的所有记录，X的值通过键盘在程序运行时输入，程序又该怎样修改？ 7.7.3 实现数据完整性约束 1. 设置主键 [例7-23] 为“导师”表和“研究生”表设置主键 （如果这两个表已有主键和外键，请先予以删除） [例7-24] 在创建新表Teacher 的同时设定code为主键 Sub Create_Primary() DoCmd.RunSQL Alter Table 导师 Add Primary Key (导师编号) DoCmd.RunSQL Alter Table 研究生 Add Primary Key (学号) End Sub Sub Create_Table_Primary() DoCmd.RunSQL CREATE TABLE Teacher (code text(3) PRIMARY KEY, name text