连接SQL server保存提示必须用OpenRecordset的dbSeeCHanges

snryga

Private Sub 保存_Click()
Dim rst As DAO.Recordset
    Dim str As String
    Set rst = CurrentDb.OpenRecordset("方案", dbOpenDynaset)
    rst.MoveFirst
    Do Until rst.EOF
        str = str & " " & rst("服务类型")
        rst.MoveNext
    Loop
    rst.close
    Set rst = Nothing   
    me.子窗体 = Mid(str, 2, Len(str) - 1)   
End Sub

snryga

该怎么修改呢，请大神们帮忙改改，谢谢！

tmtony

后面参数 加上 dbSeeCHanges 就可以了啊

snryga

谢谢

roych

这个不是有人在群里问过吗？请参考：
http://www.accessoft.com/article-show.asp?id=17337
都是一年前的问题了

worryd1

不知道为啥非要加这个dbSeeChanges，不过我改后台到sql-server的时候都加了