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

2020-01-16 08:00:00
tmtony8
原創
111

我們前面講過很多關于添加記錄的實例

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


運行效果,記錄添加成功



注意:

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

    分享
    北京十一选五基本走势