给ADO记录集字段赋空值时报错

Chen　发表于：2010-04-06 14:48:32 　

将窗体中各控件值用ADO传输到表时，若有控件为空值，则弹出如下错误：

相关语句为：

dim rs as new adodb.recordset

rs.Addnew

For i = 0 To rs.Fields.Count - 1
rs.Fields(i) = Me.Controls(rs.Fields(i).Name)

Next
rs.Update

andymark 发表于：2010-04-06 16:20:16

字段类型都是文本?

日期,是否,文本,数字类型不同

应该是有区别的

Chen 发表于：2010-04-06 16:31:41

各种类型都有的，如果没有空值的话是正常的

王樵民发表于：2010-04-07 11:22:31

将空值判出去，就不会出现错误了，见如下代码：

dim rs as new adodb.recordset

rs.Addnew

For i = 0 To rs.Fields.Count - 1

if not isnull(Me.Controls(rs.Fields(i).Name)) then rs.Fields(i) = Me.Controls(rs.Fields(i).Name)

Next
rs.Update

Chen 发表于：2010-04-08 15:50:12

我原来是这样做的，但是这样的话就不能传递空值了，添加记录是没有问题，但是修改的话就会出问题，比如将某一控件值改为空的话，这个代码就不会执行这个操作，实际上记录没有被改掉

总记录：4篇页次：1/1 9 1 :

Access交流中心