作者zac00823 (叶天)
看板Visual_Basic
标题Re: [VB6 ] 请问如何让程式定时重新读取资料库并更 …
时间Thu Apr 22 03:17:27 2010
帮你稍微修改了一下，不知道是不是你要的。
不是我再删掉。
Sub reload()
Timer1.Interval=3000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
: '连接资料库
: Set db = DBEngine.OpenDatabase(App.Path & "\Database2.mdb ", False, False, "")
: '开启资料表
: Set rs = db.OpenRecordset("select * from new20")
: rs.MoveLast
: rs.MoveFirst
: '读取资料并画图
: MSChart1.RowCount = rs.RecordCount
: i = 1
: Do While Not rs.EOF
: MSChart1.Row = i
: MSChart1.RowLabel = CStr(rs("Time"))
: MSChart1.Data = rs("Pvalue")
: rs.MoveNext
: i = i + 1
: Loop
: '关闭资料表
: rs.Close
: '关闭资料库
: db.Close
: End Function
: Private Sub Form_Load()
: Dim db
: Dim rs As DAO.Recordset
: '连接资料库
: Set db = DBEngine.OpenDatabase(App.Path & "\Database2.mdb ", False, False, "")
: '开启资料表
: Set rs = db.OpenRecordset("select * from new20")
: rs.MoveLast
: rs.MoveFirst
: '读取资料并画图
: MSChart1.RowCount = rs.RecordCount
: i = 1
: Do While Not rs.EOF
: MSChart1.Row = i
: MSChart1.RowLabel = CStr(rs("Time"))
: MSChart1.Data = rs("Pvalue")
: rs.MoveNext
: i = i + 1
: Loop
: '关闭资料表
: rs.Close
: '关闭资料库
: db.Close
Call reload()
: End Sub
: 请问不知道是哪边有问题
: 导致我资料库更新後却我的程式却不会重抓
: 请问是哪边写错了
: 请问是否可以附上范例
: 因为我对这方面不是很熟悉
: 还有就是我的TEXTBOX
: 当我下format的指令却会出现错误
建议这部分把你写的程式打上来，大家才会知道你是不是格式写错了。
: 请问是什麽原因
: 请大家帮忙解惑
: 感激不尽
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.136.185.44
※ 编辑: zac00823 来自: 220.136.185.44 (04/22 03:39)
1F：推 Cerberus1028:感激不尽测试中 04/24 01:01
2F：→ Cerberus1028:虽然还是不行，但是还谢谢拉 04/24 01:48