VB 那個“更新數據” 的功能如何實現?

這壹般是用webbrowser控件去打開指定網頁，通過獲取網頁指定內容，然後利用ado控件將數據放入數據庫。我做了壹個例子，就是獲取最新壹期雙色球開獎結果

Private Sub Command1_Click()

qishu = WebBrowser1.Document.All.tags("table").Item(0).Rows.Item(1).Cells.Item(0).innerText ’截取期號

hq = WebBrowser1.Document.All.tags("table").Item(0).Rows.Item(1).Cells.Item(1).innerText ‘截取紅色球

lq = WebBrowser1.Document.All.tags("table").Item(0).Rows.Item(1).Cells.Item(2).innerText ’截取藍色球

adocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False" ‘打開數據庫

adocn.Execute "insert into 雙色球 (期號,紅色球,藍色球) values ('" & qishu & "','" & hq & "','" & lq & "')" ’錄入數據

adocn.Close ‘關閉數據庫

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate "/play_list_game_5.html" ‘打開指定網頁

End Sub