office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2020-01-16 08:00:00
tmtony8
原创
564

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

如用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


运行效果,记录添加成功



注意:

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

    分享