office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

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

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

我們前麵講過很多關於添加記録的實例

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


運行效果,記録添加成功



註意:

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

    分享