为什么有时候添加的记录会出错？请帮忙。

Question

with data1.recordset
     .addnew
     !产品＝text1.text
     !日期=format(date,"yyyymmdd")
     .update
end with
我发现有时候那个!日期字段不是日期值，而是空(null)按说上面的语句没有问题，为什么其他的字段没什么问题这个有时候就为空值呢？

Answer 1

with data1.recordset
     .addnew
     !产品＝text1.text
     !日期=format(date,"yyyy-mm-dd")
     .update
end with

Answer 2

你的日期字段应该是 Date 型吧：
with data1.recordset
     .addnew
     !产品＝text1.text
     !日期=date
     .update
end with

Answer 3

我的日期字段是字符串的不是日期型的。我写的语句没有问题，但是不知道为什么，有时候这个字段再记录添加以后，并没有被赋值，还是为空。这是怎么回事？是不是.upddate语句有问题？

Answer 4

不能对日期赋值 Null 但可以是 ""  我也出现过同样的问题
cstr(format(date,"yyyymmdd"))

Answer 5

formate函数转换出来的结果不就是字符串吗？还有必要用cstr()函数吗？

Answer 6

把错误提示帖出来
!日期=format(date,"yyyymmdd")   '这条语句没有错,要不改为:
!日期=format(date,"yyyy-mm-dd") '就不管你的字段是什么类型都成
     

Answer 7

a1 = Format(Date, "yyyymmdd")
a2 = CStr(a1)
MsgBox a1
MsgBox a2
MsgBox a1=a2
结果是true这就是说这俩个值是一样的。

Answer 8

改为
with data1.recordset
     .addnew
     !产品＝text1.text
     !日期=cstr(format(date,"yyyy-mm-dd"))
     .update
end with

Answer 9

是否在此前面有 On Error 语句？ 

Answer 10

to of 133()：此前没有添加on error 语句。问题就是在运行过程中，他也不报错。就以后查询的时候发现居然有些字段的值没有被赋值？为null值，这样在按照日期进行查询的时候就会出错。也许是没有转换成csrt的问题。不知道是不是这样就可以彻底避免丢下赋值的字段？

Answer 11

在 !日期=format(date,"yyyymmdd")的前面加上一行代码 debug.print format(date,"yyyymmdd")，检查一下你写入的是什么东西。

Answer 12

在什么情况下，明明应该赋值成功的，却没有成功呢？而且它也不出错？？如何避免这种潜在的错误？是不是本身data.recordset的问题？

Answer 13

在什么情况下，明明应该赋值成功的，却没有成功呢？而且它也不出错？？如何避免这种潜在的错误？是不是本身data.recordset的问题？

Answer 14

你用的的ACCESSS数据库吧,
我有的时候也能见到这种问题,
不过我解决的时候有些土!!1
就是:
    把添加和更新分开来作,众些就没有再出现过,
试一下,如果有高人的话,我还是要学习的

Answer 15

with data1.recordset
     .addnew
     !产品＝text1.text
     !日期=format(date,"yyyy-mm-dd")
     .update
end with

Answer 16

一般的情况下用
ADDNew操作
数据库的执行效率是很低的
见意你最好使用SQL的标准插入语句
INsert Into 

Answer 17

addnew,必须用data1.updatarecord?
不能用update?吗？
是不是使用updatarecord就能够避免这样的问题出现？我觉得在写一些大的工程的时候，不应该用分开写的方法，这样很多代码要重复写。意义太小了。

Answer 18

如果你用的是ACCESS数据库
with data1.recordset
     .addnew
     !产品＝text1.text
     !日期= Cdate(date())
     .update
end with
如果你用的是SQL数据库
with data1.recordset
     .addnew
     !产品＝text1.text
     !日期= DateValue(date())
     .update
end with