使用DAO增、删、改

时　间:2013-11-18 15:11:59
作　者:jia   ID：8795  城市：深圳
摘　要:使用DAO增删改的一般套路
正　文:

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

    Me.ygxm = rst!ygxm

    Me.xb = rst!xb    

    rst.Close

    Set rst = Nothing

End Sub

-------------------------------------------------------------------------------------------------

第二步，保存修改后的记录。

-------------------------------------------------------------------------------------------------

Private Sub cmdSave_Click()

    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

    rst.Edit

    rst!ygxm = Me.ygxm

    rst!xb = Me.xb

    rst.Update

    rst.Close

    Set rst = Nothing

    '表中已更新了员工信息,刷新一下子窗体

    Forms(frm员工编码).frmChild.Requery

    '修改数据后，关闭窗体

    DoCmd.Close acForm, "frm员工编码_child_Edit"

End Sub