使用DAO的方式增加新记录.doc

使用DAO的方式增加新记录： --------------------------------------- Private Sub?cmdSave_Click() ????Dim rst As DAO.Recordset ‘定义一个DAO方式的记录集 ????Dim strSQL As String ????strSQL = select * from tbl员工编码 Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) ‘为记录集赋值 ????rst.AddNew ‘记录集新增一条记录 ????rst!ygID = AccHelp_AutoID(Y, 3, tbl员工编码, ygID) ????rst!ygxm = Me.ygxm ????rst!xb = Me.xb?? ????rst.Update ‘更新记录集 ????rst.Close ‘关闭记录集 ????Set rst = Nothing ‘清空记录集 ????表中已添加了新员工,刷新一下子窗体 ????Forms(frm员工编码).frmChild.Requery ????清空,方便新增下一条数据 ????Me.ygxm = Null ????Me.xb = Null?? ????Me.ygxm.SetFocus End Sub ------------------------------------------------------------------------------------------------- 使用DAO删除记录 ------------------------------------------------------------------------------------------------- Private Sub cmdDel_Click() 删除数据 ????Dim rst As DAO.Recordset ????Dim strSQL As String ????Dim strID As String ????Dim strName As String ????strID = Forms!frm员工编码!frmChild.Form!ygID????员工编码 ????strName = Forms!frm员工编码!frmChild.Form!ygxm????员工姓名 ????If MsgBox(您确认要删除?[ strID strName ]?吗?, vbOKCancel, 提示) = vbOK Then ????????strSQL = select * from tbl员工编码?where ygID= strID ????????Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) ????????rst.MoveFirst ????????rst.Delete 删除，删除之后不需要update。 ????????rst.Close ????????Set rst = Nothing ????????表中已更新了员工信息,刷新一下子窗体 ????????Forms(frm员工编码).frmChild.Requery ????End If End Sub ------------------------------------------------------------------------------------------------- 使用DAO新增记录时，需要分两步进行。 ------------------------------------------------------------------------------------------------- 第一步：弹出修改记录的窗提时，加载需要修改的记录。 Private Sub?Form_Load() 在窗体加载时，给窗体上的控件赋值 ????Dim rst As DAO.Recordset ????Dim strSQL As String ????Dim strID As String ????strID = Forms!frm员工编码!frmChild.Form!ygID ?????‘此段代码至关重要，主要是获取主窗体中被选中的记录 ????strSQL = select * from tbl员工编码?where ygID= strID ????Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) ????rst.MoveFirst ???