法律信息系统管理资料定义数据.pptxVIP

7.7 在VBA程序中使用SQL命令 7.7.1 定义数据7.7.2 编辑数据7.7.3 实现数据完整性约束 7.7.4 执行查询操作 牛牛文库文档分享Sub Create_Table() DoCmd.RunSQL CREATE TABLE Student (姓名 text(6), 年龄 byte, 入学日期 date)End Sub等价Sub Create_Table() Dim Sql As String Sql = CREATE TABLE Student (姓名 text(6), 年龄 byte, 入学日期 date) DoCmd.RunSQL SqlEnd Sub7.7.1 定义数据1. 创建数据表 CREATE TABLE 表名 (字段名 数据类型 [NULL | NOT NULL] | 字段名 AS 计算表达式[, ...n]) [例7-11] 在SQL模块中建立如下过程： 牛牛文库文档分享Sub Alter_Fields_Type() DoCmd.RunSQL ALTER TABLE Student ALTER 年龄 SmallIntEnd Sub如果字段的新类型与原类型不兼容将造成数据丢失 7.7.1 定义数据2. 在表中增加字段 [例7-12] 为Student表增加一个货币型的字段“学费” 3. 改变字段的类型 [例7-13] 修改Student表中“年龄”字段的类型Sub Add_Field() DoCmd.RunSQL ALTER TABLE Student ADD 学费 CURRENCYEnd S 牛牛文库文档分享Sub Alter_Fields_Width() DoCmd.RunSQL ALTER TABLE Student ALTER 姓名 text(10)End Sub字段的宽度由大变小，有可能丢失数据 7.7.1 定义数据4. 改变字段的宽度 [例7-14] 更改Student表中“姓名”字段的宽度 5. 删除一个字段 [例7-15] 删除Student表中的“年龄”字段 Sub Delete_Field() DoCmd.RunSQL ALTER TABLE Student DROP 年龄End S 牛牛文库文档分享7.7.1 定义数据6. 删除一个表 [例7-16] 删除Student表 7. 修改数据表名字 [例7-17] 将Student表的名字更改成“学生” Sub Delete_Table() DoCmd.RunSQL DROP TABLE StudentEnd SubSub Rename_Table() DoCmd.Rename 学生, acTable, StudentEnd S 牛牛文库文档分享7.7.2 编辑数据1. 向表中追加记录 [例7-18] 在Student表中添加一条记录Sub Insert_Table() DoCmd.RunSQL INSERT INTO Student VALUES(李大明, 35, 2003-1-15)End SubVALUES后的数据与表中字段的顺序要一一对应 说明：（1）日期型常量可以放在一对单引号或一对#中。（2）如果数据是通过输入对话框等途径获得，需在SQL命令中使用变量，然后用运算符将变量连接到SQL命令中。对于字符串变量或日期型变量，要在这些变量的两侧加上一对单引号。 牛牛文库文档分享7.7.2 编辑数据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-19] 通过变量为Student表添加一条记录 注意单引号和双引号出现的位置 牛牛文库文档分享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 S 牛牛文库文档分享7.7.2 编辑数据3. 删除特定记录 [例7-22] 将“导