Question

VB中向数据库中添加记录

串口发过来的数据，我想存入数据库中。想以时间作为索引，因此需要时间字段唯一，但是单片机一秒钟发送很多次数据，我希望先判断接收到数据的时间点是否和上一次数据的时间点相同，如果不同则加入该次数据到数据库中；如果相同则不作处理。
我代码是这样写的：（time在标准模块中定义的，public time as string）
Dim act As String
act = Format(Year(Now), "0") + "/" + Format(Month(Now), "0") + "/" + Format(Day(Now), "0") + "/" + Format(Hour(Now), "0") + "/" + Format(Minute(Now), "0") + "/" + Format(Second(Now), "0")
If time <> act Then
time = act
Data1.Recordset.AddNew
Data1.Recordset.Fields("时间") = time
Data1.Recordset.Fields("温度") = wendu
Data1.Recordset.Fields("传感器编号") = bianhao
Data1.UpdateRecord
End If
End If
但是这样貌似不行，没有判断就直接把所有受到的数据都加入到数据库中。求帮助解答原因，或者帮我写这一段能够实现这个目的的代码。谢谢~
我知道怎么回事了，不能用time。脑残了，没注意到这点

Answer 1

都是string类,,但是act有值,,,time没有值 ...

如果time=Format(Year(Now), "0") + "/" + Format(Month(Now), "0") + "/" + Format(Day(Now), "0") + "/" + Format(Hour(Now), "0") + "/" + Format(Minute(Now), "0") + "/" + Format(Second(Now), "0")
那么两者都相等...

再说一句..单片机一秒钟发送很多次数据..你可以这样解决...
我们假设单片机一秒发送10000次,那么我们就用 act然后加上一个5位的随机数来作索引..我想这样应该可以解决多次问题...

Answer 2

不错，程序中time <> act 为真