
用vb如何监控access里的数据是否改变 20
炉座号炉号年号CSiMn时间日期牌号205191070.160.180.5009:0907-03-07Q235B305101070.150.170.5010:3507-0...
炉座号 炉号 年号 C Si Mn 时间 日期 牌号
2 05191 07 0.16 0.18 0.50 09:09 07-03-07 Q235B
3 05101 07 0.15 0.17 0.50 10:35 07-03-07 Q235B
1 14938 08 0.15 0.17 0.46 08.26 08-03-07 Q235B
2 15191 08 0.16 0.18 0.50 12:35 08-03-07 Q235B
3 06101 09 0.15 0.17 0.50 7:23 09-03-07 Q235B
1 07938 09 0.15 0.17 0.46 11.32 09-03-07 Q235B
以上是ACCESS数据库里的数据(大概有几万条),我想用VB监控它,20分钟一扫描,如果日期时间最晚的一条数据的年号和炉号任意一个发生改变,则把这条数据直接存入sqlsever2000数据库
请高手指教,最好有代码,谢谢
炉座 炉号 年号 C Si Mn 时间 日期 牌号
2 05191 07 0.16 0.18 0.50 09:09 07-03-07 Q235B
3 05101 07 0.15 0.17 0.50 10:35 07-03-07 Q235B
1 14938 08 0.15 0.17 0.46 08.26 08-03-07 Q235B
2 15191 08 0.16 0.18 0.50 12:35 08-03-07 Q235B
3 06101 09 0.15 0.17 0.50 7:23 09-03-07 Q235B
1 07938 09 0.15 0.17 0.46 11.32 09-03-07 Q235B
上面数据不太整齐,从新贴一个 展开
2 05191 07 0.16 0.18 0.50 09:09 07-03-07 Q235B
3 05101 07 0.15 0.17 0.50 10:35 07-03-07 Q235B
1 14938 08 0.15 0.17 0.46 08.26 08-03-07 Q235B
2 15191 08 0.16 0.18 0.50 12:35 08-03-07 Q235B
3 06101 09 0.15 0.17 0.50 7:23 09-03-07 Q235B
1 07938 09 0.15 0.17 0.46 11.32 09-03-07 Q235B
以上是ACCESS数据库里的数据(大概有几万条),我想用VB监控它,20分钟一扫描,如果日期时间最晚的一条数据的年号和炉号任意一个发生改变,则把这条数据直接存入sqlsever2000数据库
请高手指教,最好有代码,谢谢
炉座 炉号 年号 C Si Mn 时间 日期 牌号
2 05191 07 0.16 0.18 0.50 09:09 07-03-07 Q235B
3 05101 07 0.15 0.17 0.50 10:35 07-03-07 Q235B
1 14938 08 0.15 0.17 0.46 08.26 08-03-07 Q235B
2 15191 08 0.16 0.18 0.50 12:35 08-03-07 Q235B
3 06101 09 0.15 0.17 0.50 7:23 09-03-07 Q235B
1 07938 09 0.15 0.17 0.46 11.32 09-03-07 Q235B
上面数据不太整齐,从新贴一个 展开
1个回答
展开全部
在20分钟激活的TIMER里
用ADO先查询最新的一条记录。
aRec.Open "select top 1 * from 炉子库 order by 日期时间 desc", aCnn
if aRec!炉号<> luhaobk or aRec!年号<>nianhaobk then
保存到sql2000
luhaobk=arec!炉号
nianhaobk=arec!年号
endif
如果把日期时间加索引,查询将很快。
用ADO先查询最新的一条记录。
aRec.Open "select top 1 * from 炉子库 order by 日期时间 desc", aCnn
if aRec!炉号<> luhaobk or aRec!年号<>nianhaobk then
保存到sql2000
luhaobk=arec!炉号
nianhaobk=arec!年号
endif
如果把日期时间加索引,查询将很快。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询