各位朋友，怎麼樣使程序每x分鐘更新一此數據庫？？

[舍南舍北]

Private Sub Form_Load()
　　　With Combo1
.AddItem "5分鐘", 0
.AddItem "10分鐘", 1
.AddItem "15分鐘", 2
.AddItem "20分鐘", 3
.AddItem "25分鐘", 4
.AddItem "30分鐘", 5
End With
end sub
1、用Timer1控件最大值只有1分多鐘（不能實現）
2、用sleep函數

還有沒有其它的方法

[guolibin]

每过5分钟检查一下系统时间，如果和上次运行时间差大于或等于设置的时间间隔就XXX

[guolibin]

如果用Timer1控件最大值只有1分多鐘，那就1分钟检查一次吧

[helanshan]

Static Sub delayloop(delaytime) '时间延迟过程
Dim a As Single
Const b = 24& * 60& * 60&
a = Timer + delaytime
If a > b Then
a = a - b
Do While Timer > a
Loop
End If
Do While Timer < a
Loop
End Sub

Private Sub Command1_Click()

delayloop Val(Combo1.Text) * 60 '调用过程，参数换算成秒
'......... '更新语句
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "1分鐘", 0
.AddItem "10分鐘", 1
.AddItem "15分鐘", 2
.AddItem "20分鐘", 3
.AddItem "25分鐘", 4
.AddItem "30分鐘", 5
End With

End Sub

[Mars.CN]

还用Timer
声明一个变量
进行变量的累加,当变量为5时执行,再复位变量.

[skyrouter]

主要使用timer函数,timer函数的单位是秒
dim aa
start=timer '设定一个初值
'你的程序体
.
.
.
.
endtime=timer '设定一个终值
aa=round(endtime-start)
if aa=300 then
update语句
end if