VB实时存储数据到access数据库中

发布网友发布时间：2022-05-22 18:06

共1个回答

热心网友时间：2023-10-05 10:34

你的问题就是长时间定时触发的问题
给你个代码参考一下

Static n As Integer
Private Sub Form_Load()
Timer1.Interval = 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追问能加你QQ不我感觉我运行的时候就只进行了一次加一，然后就不再加了不知道是怎么回事~~

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com