[VB6 ] 請問如何讓程式定時重新讀取資料庫並更新mschart
大家好由於本人是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