DAO

'新增保存
Dim rst As ADODB.Recordset
Dim strSQL As String
Set rst = New ADODB.Recordset
strSQL = "select * from tblcode_lj"
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.AddNew 
rst.****="new value" 
rst.Update 
rst.Close
Set rst = Nothing 


'加载
Dim rst As New ADODB.Recordset
Dim strSQL As String


Set rst = New ADODB.Recordset 
strSQL = "select * from tblcode_lj where ljid = '" & selectstr & "'"
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
rst.Close 
Set rst = Nothing 

'修改保存
Dim rst As ADODB.Recordset
Dim strSQL As String
Set rst = New ADODB.Recordset
strSQL = "select * from tblcode_lj where ljid = '" & Me.ljid & "'"
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic  
rst.****="new value" 
rst.Update 
rst.Close 
Set rst = Nothing 

 

'---------------------------------access中打开自己的记录集-------------------------

Set rstTmpCheck = CurrentDb.OpenRecordset("TMP_配仓单明细表")
    Do Until rstTmpCheck.EOF
        If Not (rstTmpCheck!确认结果 = "确认" Or rstTmpCheck!确认结果 = "未确认" Or rstTmpCheck!确认结果 = "无法按时完成") Then
            MsgBox "确认结果只能为“确认”或者“未确认”或者“无法按时完成”，此数据对后续工序很重要，请重新填写！"
            Me.sfrDetail.SetFocus
            Me.sfrDetail!确认结果.SetFocus
            rstTmpCheck.Close
            Exit Sub
        End If
        rstTmpCheck.MoveNext
    Loop
    rstTmpCheck.Close

 

上述图的IDENTITY是指SQLSER表中有一个字段是自增性质的（即上述代码中的“清单核对表”的ID，本身又是主键），

当用CurrentDb.OpenRecordset访问此种表时，上述上码不行，一定要用到opendatabase的dbseechanges

http://www.accessoft.com/article-comment.asp?id=9687