Access利用dao在窗體中添加記錄

我們前面講過很多關(guān)于添加記錄的實例

如用SQL語句添加記錄《Access窗體添加記錄》

用ADO添加記錄【新手入門】-Access添加記錄

這里也介紹一下用DAO 添加記錄的一種方法。

如下面的窗體，需要錄入學(xué)生的選課信息

通過以下dao代碼，把選課信息追加到一個查詢中。

 Dim strSql As String  '定義命令字符串
  Set r = CurrentDb.QueryDefs("學(xué)生選課查詢")  '通過學(xué)生選課查詢實例化追加查詢對象r
  選修年及季節(jié) = 選修年 + "年" + 選修季節(jié)
  strSql = "insert into 學(xué)生選修課程表( 學(xué)號,課程號,選課學(xué)期) values (" + CStr(學(xué)號) + "," + CStr(課程號) + ",""" + 選修年及季節(jié) + """)"
  r.sql = strSql
  r.Execute
  MsgBox "添加成功！"
  Me.課程號.Value = ""
  Me.課程號.SetFocus

運行效果，記錄添加成功

注意：

要先創(chuàng)建一個名為"學(xué)生選課查詢"的追加查詢