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

naomi77 2003-12-02 04:20:39
ok。我vb连sql好不容易连上了,现在我尝试以下语句:
rst.Open sSql, cn, 1, 3
rst.Fields(0) = Label1.Caption
rst.Update
结果发现连接正常,label1的数据很顺利的存入了数据库。由于我的label1的数据是连续变化的,所以我想加入一个timer控件,每过1分钟,执行command1_click的代码,把label1的值传入数据库。问该如何做?
...全文
88 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
planetike 2003-12-02
  • 打赏
  • 举报
回复
一楼的Timer1.Interval = 1000 要改为Timer1.Interval = 6000才行。
LichKingSZ 2003-12-02
  • 打赏
  • 举报
回复
Private Sub Timer1_Timer()
rst.Open sSql, cn, 1, 3
rst.Fields(0) = Label1.Caption
rst.Update
rst.close
End Sub

Timer1的Interval设为60000

SoHo_Andy 2003-12-02
  • 打赏
  • 举报
回复

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

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

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧