你的问题就是长时间定时触发的问题
给你个代码参考一下
Static n As Integer
Private Sub Form_Load()
Timer1Interval = 1000 '设置Timer1值为一秒钟
End Sub
Private Sub Timer1_Timer()
Static n As Integer
If n = 1800 Then '当时间到了1800秒(半小时)的时候
'在这里触发保存过程
n=0 ' 初始化变量,重新计算时间
end if
n = n + 1
End Sub
以上就是关于VB实时存储数据到access数据库中全部的内容,包括:VB实时存储数据到access数据库中、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)