VB.NET 如何獲取網(wǎng)頁中的數(shù)據(jù)

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

成都創(chuàng)新互聯(lián)公司長(zhǎng)期為超過千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為環(huán)江企業(yè)提供專業(yè)的網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)，環(huán)江網(wǎng)站改版等技術(shù)服務(wù)。擁有十年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

'啟動(dòng)一次具體的數(shù)據(jù)采集工作,返回采集到的HTML內(nèi)容:要求必須輸入帶://的全地址數(shù)據(jù)

On Error Resume Next

Dim Str_WebContent As String = "請(qǐng)輸入查找網(wǎng)站地址."

Dim wb As WebClient = New WebClient() '//創(chuàng)建一個(gè)WebClient實(shí)例

If mWebsiteUrl.IndexOf("://") 0 Then

'//獲取或設(shè)置用于對(duì)向 Internet 資源的請(qǐng)求進(jìn)行身份驗(yàn)證的網(wǎng)絡(luò)憑據(jù)。（可有可無）

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。（加@是因?yàn)榫W(wǎng)址中間有"/"符號(hào)）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//轉(zhuǎn)換字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出來新聞內(nèi)容,刪除Body前后的多余內(nèi)容,同時(shí)補(bǔ)充上該 Body標(biāo)記,形成完整的內(nèi)容 Str_WebContent '

End Function

使用VB.NET讀取數(shù)據(jù)

孩子，如果你從你單擊事件上下手，就好辦了，先弄明白，點(diǎn)擊了什么，datagridview點(diǎn)擊，可以獲取單擊的值，好辦，用SQL語句去查詢單擊的這個(gè)值，把查到的結(jié)果再交給你要處理的地方，我常這么干。我從來不曉得什么表與表之間的關(guān)聯(lián)，或者關(guān)系表什么鬼東西，但是我也可以操作很多張表，把它們的結(jié)果集一起顯示出來。

Dim 表1 As New DataSet

Dim 對(duì)象1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select top * from表名 where 字段名 = '" DataGridView1.CurrentCell.Value "' ", 數(shù)據(jù)源)

對(duì)象1.Fill(表1, " 表名")

DataGridView2.DataSource = 表1.Tables(" 表名")

表1 = Nothing

對(duì)象1 = Nothing

如果寫成這樣，還嫌不夠，一定要按你的意思去寫，那我真的要瘋了。

這個(gè)例子，就是把表格1點(diǎn)擊的值查一個(gè)結(jié)果集，在表格2上顯示，不知有沒有你想要的表達(dá)式？

vb.net 數(shù)據(jù)采集

已寫好，經(jīng)過測(cè)試，一個(gè)WEBBROWSER控件，一個(gè)LISTBOX控件，我也初學(xué)習(xí)VB.NET，共同進(jìn)步

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

WebBrowser1.Visible = False

WebBrowser1.Navigate(";_fmw.i._0.c=_fmw.i._0.ca=_fmw.i._0.cat=_fmw.i._0.k=%B7%FE%D7%B0_fmw.i._0.t=_fmw.i._0.p=1_fmw.i._0.pa=20_fmw.i._0.u=_fmw.i._0.s=event_submit_do_search_2=true")

End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

Dim tmp As String

tmp = WebBrowser1.Document.Body.InnerHtml

Dim a() As String

a = Split(tmp, "群號(hào)：")

For i = 0 To UBound(a)

If Trim(Strings.Mid(a(i), 1, 6)) = "/SPAN" Then

tmp = Strings.Mid(a(i), Strings.InStr(a(i), "('") + 2, 20)

tmp = Strings.Mid(tmp, 1, Strings.InStr(tmp, "',''") - 1)

ListBox1.Items.Add(tmp)

End If

Next

End Sub

End Class

vb.net實(shí)現(xiàn)實(shí)時(shí)數(shù)據(jù)采集曲線，有什么方法，或是書籍呢？

簡(jiǎn)單說下思路吧，具體的代碼可以查資料

首先要會(huì)畫曲線圖，有三種方法：

1、用mschar控件（vb6的）；2、用水晶報(bào)表；3、用word圖表

x軸為時(shí)間，y軸為數(shù)據(jù)

要實(shí)現(xiàn)實(shí)時(shí)數(shù)據(jù)刷新，只要用 定時(shí)器 定時(shí)刷新曲線圖的數(shù)據(jù)就可以了（x、y的數(shù)據(jù)重寫）