如何每隔一段较长的时间就去取数据一次了？

[zhoupu2004]

比如说每隔5分钟去数据库取一次数据。定时器一次只能定时65535ms，如何才能解决这个问题了？

[tmran]

定时器设定时长为60000（60秒），另用一个变量计数，从0到5，就是5分钟了。当计数到5时执行一次读数据，同时变量清零。这样就会一直循环。

[yangao]

Option Explicit

Private strTime As String



Private Sub Command1_Click()
'开始操作
strTime = Format(Time, "HH:MM:SS")
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()


While DateDiff("s", strTime, Time) < 5
DoEvents
Exit Sub
Wend

'取数据
MsgBox "取数据"

strTime = Format(Time, "HH:MM:SS")

End Sub

[留下些什么]

Private Sub Form_Load()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()
Static tc As Integer
tc = tc + 1
If tc = 5 Then

tc = 0
'取数据

End If