作者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