vb.net中數(shù)組拿數(shù)據(jù) 數(shù)組在vba應(yīng)用實例

vb.net！我先聲明了一個動態(tài)數(shù)組，并且往里存了數(shù)據(jù)，請問怎么用一個combobox讀取數(shù)組中的數(shù)據(jù)，先謝謝了

解決方案一：你可以用一個timer 控件，定時的更新信息；

我們擁有10多年網(wǎng)頁設(shè)計和網(wǎng)站建設(shè)經(jīng)驗，從網(wǎng)站策劃到網(wǎng)站制作，我們的網(wǎng)頁設(shè)計師為您提供的解決方案。為企業(yè)提供做網(wǎng)站、網(wǎng)站建設(shè)、微信開發(fā)、重慶小程序開發(fā)、移動網(wǎng)站建設(shè)、HTML5、等業(yè)務(wù)。無論您有什么樣的網(wǎng)站設(shè)計或者設(shè)計方案要求，我們都將富于創(chuàng)造性的提供專業(yè)設(shè)計服務(wù)并滿足您的需求。

解決方案二：也可以在動態(tài)數(shù)組改變的時候，更新信息；

如何讀取數(shù)據(jù)表一列的數(shù)據(jù)到數(shù)組 VB.NET

不知道你數(shù)據(jù)表中那一列數(shù)據(jù)是什么類型的數(shù)據(jù)，所以我全部按字串來處理。

首先聲明一個數(shù)組，和即將用來計數(shù)的數(shù)字：

dim?nums()?as?string

Dim?i?As?Integer?=?0

mycon.open?'然后，連接數(shù)據(jù)庫，按你的聲明來：

dim?mycom?as?new?sqlcommand("select?*?from?你要讀取數(shù)據(jù)的表",?mycon)'接下來，聲明一個執(zhí)行數(shù)據(jù)庫語句命令的com：

'然后，對數(shù)據(jù)庫返回的結(jié)果進(jìn)行操作（一般會將執(zhí)行結(jié)果存放起來，再操作，我這里省去了存放這步）：

With?mycom.ExecuteReader()?'對返回的結(jié)果，即查詢到的表進(jìn)行操作?

If?.HasRows?Then????'判斷是否有數(shù)據(jù)，有數(shù)據(jù)就進(jìn)入下面進(jìn)行讀取

Do?While?.Read???'讀取一行數(shù)據(jù)

If?Not?(String.IsNullOrEmpty(.GetString(0)))?Then??'檢查表列的數(shù)據(jù)是否為空，不為空就進(jìn)入下面，進(jìn)行保存。這里要說下getstring這個，是讀取某列數(shù)據(jù)中的字串，如果該列數(shù)據(jù)不是字串，那么需要用getvalue(0)，0代表該列在表中的位置，從0開始，即0表示第一列。

ReDim?Preserve?nums(i)???'重置數(shù)組大小，即為即將要保存的數(shù)據(jù)準(zhǔn)備一個位置?

nums(i)?=?.GetString(0)??'將數(shù)據(jù)放入到數(shù)組中?

i?=?i?+?1??'循環(huán)，直到結(jié)束????????????????????

End?If????????????????

Loop????????????

End?If????????

End?With

mycon.close?'最后記得要關(guān)閉數(shù)據(jù)庫連接

數(shù)據(jù)存入數(shù)組很簡單，其實難點是連接數(shù)據(jù)庫，從數(shù)據(jù)庫拿數(shù)據(jù)，這難點原理簡單，但因為格式，數(shù)據(jù)類型等問題，很容易出錯。

以上，數(shù)據(jù)到了數(shù)組，你應(yīng)該會操作了吧。其實建議直接對從數(shù)據(jù)庫返回的結(jié)果進(jìn)行操作，不需要用數(shù)組的。

VB.NET讀取TXT文件數(shù)據(jù)保存為數(shù)組

VB.NET編程讀取txt文本文檔中的數(shù)據(jù)，并把數(shù)據(jù)保存為數(shù)組，代碼如下：

'寫配件文件

Private?Sub?saveIni(ByVal?filePath?As?String,?ByVal?str?As?String)

Dim?sw?As?StreamWriter?=?New?StreamWriter(filePath,?True)?'true是指以追加的方式打開指定文件

sw.WriteLine(str)

sw.Flush()

sw.Close()

sw?=?Nothing

End?Sub

'讀配件文件

Private?Function?readIni(ByVal?filePath?As?String)

Dim?iniDt?As?New?DataTable

iniDt.Columns.Add("text")

iniDt.Columns.Add("value")

Try

Dim?sr?As?StreamReader?=?New?StreamReader(filePath,?System.Text.Encoding.Default)

Dim?line?As?String?=?""

While?Not?sr.EndOfStream

Dim?str?=?sr.ReadLine()'讀取當(dāng)前行

iniDt.Rows.Add(New?String()?{

str(0),

str(1)

})

End?While

sr.Close()

sr?=?Nothing

Catch?ex?As?Exception

End?Try

Return?iniDt

End?Function

關(guān)于VB.net中讀取Excel數(shù)據(jù)存入數(shù)組后的再讀取問題

因為Excel表的左上角的單元格都是以第一行第一列

MsgBox(LBound(arr, 1)) '一維最小下標(biāo)

MsgBox(LBound(arr, 2)) '二維最小下標(biāo)

測試：用上面函數(shù)（LBound）得到的結(jié)果都是1

新聞標(biāo)題：vb.net中數(shù)組拿數(shù)據(jù) 數(shù)組在vba應(yīng)用實例
文章分享：http://muchs.cn/article46/ddcichg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信小程序、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站營銷、軟件開發(fā)、App設(shè)計、營銷型網(wǎng)站建設(shè)

廣告

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