哈尔滨工业大学机电工程学院
实验报告
一、实验目的
●掌握利用INSERT、UPDATE、DELETE命令实现对表数据插入、修改与删除
等更新操作。

●掌握ACCESS数据库平台中通过VBA代码执行SQL语句的方法。

二、实验内容与要求
1.在VBA代码中执行SQL更新语句。

在VBA代码中应用DAO对象方法执行SQL语句示例如下：
Dim dbs As Database ‘定义数据库对象
Dim strSQL As String ‘定义字符串，用于保存SQL语句信息
Set dbs = CurrentDb ‘打开数据库
StrSQL=”SQL语句”‘设置SQL语句，其中换行符为“_”，连接符为：“&”
dbs.Execute strSQL ‘执行SQL语句
Set dbs = Nothing ‘关闭数据库
2.插入数据操作。

3.更新数据操作。

4.删除数据操作。

三、实验内容
1.在VBA代码中执行SQL更新语句。

●打开“学生管理”数据库，点击“窗体”，选择“使用向导创建窗体”，
创建名称为“学生信息浏览”的窗体，并修改窗体信息，通过该窗
体能够绑定学生信息，实现浏览、编辑学生信息的功能。

打开“学生管理”数据库，点击“窗体”，选择“在设计视图中创建窗体”，创建名称为“学生信息编辑”的窗体，在窗体上添加“插入”、
“更新”、“删除”按钮。

2.插入数据操作
●在“学生信息编辑”窗体中的“插入”按钮单击事件中编写VBA代
码，实现在学生信息中插入姓名为：王华，学号为：050840131的学
生信息。

3.更新数据操作
●在“学生信息编辑”窗体中的“更新”按钮单击事件中编写VBA代
码，实现更新学号为050840131的学生信息，性别为男，出生日期
为1988年7月18日，系别为工业工程，民族为汉族。

4.删除数据操作
在“学生信息编辑”窗体中的“删除”按钮单击事件中编写VBA代码，实现删除学号为050840131的学生信息功能。