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

運行效果，記録添加成功

註意：

要先創建一箇名爲"學生選課查詢"的追加查詢