Office中国论坛/Access中国论坛

标题: 用ADODB替换NULL值,不过老是不成功 [打印本页]

作者: olderdream2007@    时间: 2015-9-25 21:58
标题: 用ADODB替换NULL值,不过老是不成功

想用下面的代码把表里的NULL全部替换为0,不过老是不成功(只有第一行有效果)
请高人看看。谢谢!

[attach]57242[/attach]


[attach]57242[/attach]


Sub test()
Dim res As ADODB.Recordset
Dim i   As Integer
Set res = New ADODB.Recordset
res.Open "Data", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
res.MoveFirst
With res
For i = 1 To 10
   If IsNull(.Fields(i & "月")) Then
      .Fields(i & "月") = 0
   End If
Next i
.MoveNext
End With
End Sub



作者: olderdream2007@    时间: 2015-9-26 10:00
请高人指点,非常感谢!
作者: 风中漫步    时间: 2015-9-26 10:09
.MoveNext
Next i

作者: olderdream2007@    时间: 2015-9-26 14:52
风中漫步 发表于 2015-9-26 10:09
.MoveNext
Next i

谢谢高人的指点,不过还是不行。是否能用我的附件帮忙测试指点下。 谢谢了!
作者: 风中漫步    时间: 2015-9-26 15:46
.MoveNext
Next i
.update
作者: olderdream2007@    时间: 2015-9-26 16:55
风中漫步 发表于 2015-9-26 15:46
.MoveNext
Next i
.update

谢谢了,不过还是不行呀!!!
作者: 风中漫步    时间: 2015-9-27 09:21
o,你找找现成的贴吧,一般关于ado的都有
以后问题贴发到这http://www.office-cn.net/forum-2-1.html
作者: olderdream2007@    时间: 2015-9-27 11:53
本帖最后由 olderdream2007@ 于 2015-9-27 11:59 编辑
风中漫步 发表于 2015-9-27 09:21
o,你找找现成的贴吧,一般关于ado的都有
以后问题贴发到这http://www.office-cn.net/forum-2-1.html


下面链接中的代码已经可以实现自己的效果,虽然有些不理解
http://www.office-cn.net/thread-120963-1-1.html


谢谢指点,非常感谢 顺祝贺节日快乐





欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3