Re: [VB6 ] 請問如何讓程式定時重新讀取資料庫並更 …

看板Visual_Basic作者zac00823 (葉天)時間15年前 (2010/04/22 03:17)推噓1(1推 0噓 1→)

留言2則, 1人參與討論串1/1

幫你稍微修改了一下，不知道是不是你要的。不是我再刪掉。 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)