使用VB.NET讀取數據

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

成都創新互聯是一家專業提供沙坡頭企業網站建設,專注與成都做網站、成都網站建設、成都外貿網站建設、H5網站設計、小程序制作等業務。10年已為沙坡頭眾多企業、政府機構等服務。創新互聯專業網絡公司優惠進行中。

Dim 表1 As New DataSet

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

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

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

表1 = Nothing

對象1 = Nothing

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

這個例子，就是把表格1點擊的值查一個結果集，在表格2上顯示，不知有沒有你想要的表達式？

Vb.net 字符串截取

｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝這是個JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer類來完成任務。也可以利用第三方工具比如：Newtonsoft.Json.dll等，來完成任務。

如何使用System.Web.Script.Serialization.JavaScriptSerializer類或第三方工具，網上有大量代碼，或參閱微軟在線幫助。這里就不貼了。

vb6如何post json數據?

Public?Function?Ajax_Post(ByVal?StrUrl?As?String,?Optional?ByVal?StrData?As?String,?Optional?ByVal?Index?As?Long)?As?Variant

On?Error?GoTo?MyError:

Dim?Object?As?Object,?S?As?String,?B()?As?Byte

Set?Object?=?CreateObject("Microsoft.XMLHTTP")

Object.Open?"POST",?StrUrl,?True

Object.setRequestHeader?"Content-Length",?Len(Ajax_Post)

Object.setRequestHeader?"Content-Type",?"application/x-www-form-urlencoded"

Object.send?(StrData)

Do?Until?Object.readyState?=?4

DoEvents

Loop

Select?Case?Index

Case?1:?S?=?Object.responseText:?Ajax_Post?=?S?'返回字符串

Case?2:?B?=?Object.responseBody:?Ajax_Post?=?B?'返回二進制

Case?3:?S?=?BytesToStr(Object.responseBody):?Ajax_Post?=?S?'二進制轉字符串[直接返回字串出現亂碼時嘗試]

Case?Else:?Ajax_Post?=?vbNullString?'無效的返回

End?Select

Set?Object?=?Nothing?'釋放空間

Exit?Function

MyError:

Ajax_Post?=?vbNullString?'出錯返回空

End?Function

Function?BytesToStr(ByVal?vIn)?As?String

Dim?strReturn?As?String,?ThisCharCode?As?String,?NextCharCode?As?String,?I?As?Long

For?I?=?1?To?LenB(vIn)

ThisCharCode?=?AscB(MidB(vIn,?I,?1))

If?ThisCharCode??H80?Then

strReturn?=?strReturn??Chr(ThisCharCode)

Else

NextCharCode?=?AscB(MidB(vIn,?I?+?1,?1))

strReturn?=?strReturn??Chr(CLng(ThisCharCode)?*?H100?+?CInt(NextCharCode))

I?=?I?+?1

End?If

Next

BytesToStr?=?strReturn

End?Function

Private?Sub?Command1_Click()

Dim?Url?As?String,?Key?As?Variant,?JsonKey?As?String

Url?=?""

Key?=?Array("wd=123",?"aa=456",?"bb=789",?"cc=901")

JsonKey?=?Join(Key,?"")

MsgBox?Ajax_Post(Url,?JsonKey,?1)

End?Sub

VB.NET 如何獲取網頁中的數據

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

'啟動一次具體的數據采集工作,返回采集到的HTML內容:要求必須輸入帶://的全地址數據

On Error Resume Next

Dim Str_WebContent As String = "請輸入查找網站地址."

Dim wb As WebClient = New WebClient() '//創建一個WebClient實例

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

'//獲取或設置用于對向 Internet 資源的請求進行身份驗證的網絡憑據。（可有可無）

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數據并返回字節數組。（加@是因為網址中間有"/"符號）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//轉換字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出來新聞內容,刪除Body前后的多余內容,同時補充上該 Body標記,形成完整的內容 Str_WebContent '

End Function

當前題目：vb.net獲取json vba讀取json
轉載源于：http://vcdvsql.cn/article30/doisopo.html

成都網站建設公司_創新互聯，為您提供虛擬主機、商城網站、用戶體驗、品牌網站建設、標簽優化、域名注冊

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯