首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb6.0如何修改access数据库中指定位置的数据

2012-03-09 
vb6.0怎么修改access数据库中指定位置的数据?数据库格式如下:IDJOB接收完成暂停123510:52:3311:52:3322251

vb6.0怎么修改access数据库中指定位置的数据?
数据库格式如下:

ID JOB 接收 完成 暂停
1 235 10:52:33 11:52:33  
2 225 10:58:33 11:52:33 
3 123 10:59:10 11:58:10

AdoDatazt.Open "Select * From data Where JOB='" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic
If AdoDatazt.Fields("暂停") Is Null Then
  AdoDatazt.Fields("暂停") = Now()
else
  AdoDatazt.Fields("暂停") = ""
enf if

现在有2个问题:
1、判断语句If AdoDatazt.Fields("订单暂停") Is Null Then,说是错的
2、清空暂停记录,怎么赋值呢?格式是时间,直接""好象不对?



[解决办法]

VB code
AdoDatazt.Open "Select * From data Where JOB='" & Text1.Text & "'", db, adOpenStatic, adLockOptimisticIf isnull(AdoDatazt.Fields("暂停")) Then  AdoDatazt.Fields("暂停") = Now()else  '本身就是NULL了,无需赋值  'AdoDatazt.Fields("暂停") = ""enf if 

热点排行