Access利用dao在窗体中添加记录

我们前面讲过很多关于添加记录的实例

如用SQL语句添加记录《Access窗体添加记录》

用ADO添加记录【新手入门】-Access添加记录

这里也介绍一下用DAO 添加记录的一种方法。

如下面的窗体，需要录入学生的选课信息

通过以下dao代码，把选课信息追加到一个查询中。

 Dim strSql As String  '定义命令字符串
  Set r = CurrentDb.QueryDefs("学生选课查询")  '通过学生选课查询实例化追加查询对象r
  选修年及季节 = 选修年 + "年" + 选修季节
  strSql = "insert into 学生选修课程表( 学号,课程号,选课学期) values (" + CStr(学号) + "," + CStr(课程号) + ",""" + 选修年及季节 + """)"
  r.sql = strSql
  r.Execute
  MsgBox "添加成功！"
  Me.课程号.Value = ""
  Me.课程号.SetFocus

运行效果，记录添加成功

注意：

要先创建一个名为"学生选课查询"的追加查询