Office中国论坛/Access中国论坛

标题: 请问老师这段代码为何无法更改表的数据？ [打印本页]

作者: rujd 时间: 2019-1-25 09:25
标题: 请问老师这段代码为何无法更改表的数据？

我想在出库单的文本框“数量”内填入数字后，就让临时表“TMP_Tbl_库存表”内相应的物料的数量减少，于是写了这段：

Private Sub 数量_AfterUpdate()
Dim cnn: Set cnn = CurrentProject.Connection
Dim strSQL As String
strSQL = "SELECT * FROM [TMP_Tbl_库存表] WHERE [进厂编号]=" & SQLText(Me![进厂编号])
Dim rst 'As Recordset
Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
rst![库存数量] = rst![库存数量] - Me![数量]
End Sub

单步运行后，可以看到“rst![库存数量] ”的数量确实变了，但是打开“TMP_Tbl_库存表”，却发现表内的数值没变，请问这是怎么回事？

谢谢！

作者: rujd 时间: 2019-1-25 11:19
明白了，少了update语句

作者: roych 时间: 2019-1-25 12:08
如果我没记错的话，OpenRecordset应该是DAO的方法。既然用的是DAO嘛，自然要用DAO的方法了。

Set rst = CurrentDb.OpenRecordset(strSQL, adLockOptimistic, cnn)
rst.Edit
rst![库存数量] = rst![库存数量] - Me![数量]
rst.Update

复制代码

最后说一句，使用ADO或者DAO的记录集（recordset）时，最好加上父级集合。例如：

Dim rst As DAO.Recordset

这个问题，似乎每隔一段时间就会出现到在论坛上。
Dim rst 'As Recordset
看你注释掉后面的定义类型，相信你也遇到了错误。为什么？你知道了么？ADODB.Recordset是记录集，DAO.Recordset也是记录集。系统怎么知道你想用的是哪个记录集？
在无法判断的情况下（也就是这样定义时：Dim rst As Recordset），系统会根据优先级进行选择。如图所示：默认情况下DAO是优先于ADO的，所以，Dim rst As Recordset=Dim rst As DAO.Recordset。但低版本（例如DAO 3.6）或者人为不小心调整了顺序，则会出现错误。
[attach]63217[/attach]

作者: rujd 时间: 2019-1-25 13:40

roych 发表于 2019-1-25 12:08
如果我没记错的话，OpenRecordset应该是DAO的方法。既然用的是DAO嘛，自然要用DAO的方法了。

最后说一句 ...

万分感谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)