一个不算太难的问题：怎样每1分钟刷新一次数据库？

[naomi77]

ok。我vb连sql好不容易连上了，现在我尝试以下语句：
rst.Open sSql, cn, 1, 3
rst.Fields(0) = Label1.Caption
rst.Update
结果发现连接正常，label1的数据很顺利的存入了数据库。由于我的label1的数据是连续变化的，所以我想加入一个timer控件，每过1分钟，执行command1_click的代码，把label1的值传入数据库。问该如何做？

[SoHo_Andy]

Private Sub Form_Load ()
Timer1.Interval = 1000 ' 设置计时器时间间隔为1妙。
Timer1.Enable=true
End Sub

Private Sub Timer1_Timer ()
rst.Open sSql, cn, 1, 3
rst.Fields(0) = Label1.Caption
rst.Update
End Sub

不建议这样频繁读写数据库

[LichKingSZ]

Private Sub Timer1_Timer()
rst.Open sSql, cn, 1, 3
rst.Fields(0) = Label1.Caption
rst.Update
rst.close
End Sub

Timer1的Interval设为60000

[planetike]

一楼的Timer1.Interval = 1000 要改为Timer1.Interval = 6000才行。