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

我們前麵講過很多關(guān)於添加記録的實(shí)例

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

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

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

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

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

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

運(yùn)行效果，記録添加成功

註意：

要先創(chuàng)建一箇名爲(wèi)"學(xué)生選課查詢"的追加查詢