作者Cerberus1028 (凯洛)
看板Visual_Basic
标题[VB6 ] 请问如何让程式定时重新读取资料库并更新mschart
时间Thu Apr 22 02:12:44 2010
大家好由於本人是VB新手
目前自己写了程式如下
Private Function reload()
Timer1.Enabled
Timer1.Interval = 3000
'连接资料库
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
Timer1.Interval = 30000
End Sub
请问不知道是哪边有问题
导致我资料库更新後却我的程式却不会重抓
请问是哪边写错了
请问是否可以附上范例
因为我对这方面不是很熟悉
还有就是我的TEXTBOX
当我下format的指令却会出现错误
请问是什麽原因
请大家帮忙解惑
感激不尽
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.240.67.37