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

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

成都創(chuàng)新互聯(lián)公司專注于網(wǎng)站建設(shè)|成都企業(yè)網(wǎng)站維護(hù)|優(yōu)化|托管以及網(wǎng)絡(luò)推廣，積累了大量的網(wǎng)站設(shè)計(jì)與制作經(jīng)驗(yàn)，為許多企業(yè)提供了網(wǎng)站定制設(shè)計(jì)服務(wù)，案例作品覆蓋成都門窗定制等行業(yè)。能根據(jù)企業(yè)所處的行業(yè)與銷售的產(chǎn)品，結(jié)合品牌形象的塑造，量身制作品質(zhì)網(wǎng)站。

首先聲明一個(gè)數(shù)組，和即將用來(lái)計(jì)數(shù)的數(shù)字：

dim?nums()?as?string

Dim?i?As?Integer?=?0

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

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

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

With?mycom.ExecuteReader()?'對(duì)返回的結(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)行保存。這里要說(shuō)下getstring這個(gè)，是讀取某列數(shù)據(jù)中的字串，如果該列數(shù)據(jù)不是字串，那么需要用getvalue(0)，0代表該列在表中的位置，從0開(kāi)始，即0表示第一列。

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

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ù)庫(kù)連接

數(shù)據(jù)存入數(shù)組很簡(jiǎn)單，其實(shí)難點(diǎn)是連接數(shù)據(jù)庫(kù)，從數(shù)據(jù)庫(kù)拿數(shù)據(jù)，這難點(diǎn)原理簡(jiǎn)單，但因?yàn)楦袷剑瑪?shù)據(jù)類型等問(wèn)題，很容易出錯(cuò)。

以上，數(shù)據(jù)到了數(shù)組，你應(yīng)該會(huì)操作了吧。其實(shí)建議直接對(duì)從數(shù)據(jù)庫(kù)返回的結(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是指以追加的方式打開(kāi)指定文件

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

vb.net輸出數(shù)組

1.你說(shuō)的這個(gè)有點(diǎn)問(wèn)題,是要只輸出一次,也可做,

2.但問(wèn)題是如果你數(shù)組還有就看不到了!這個(gè)做法有點(diǎn)問(wèn)題

1.解決方法:

循環(huán)前面加入一個(gè)變量 dim Temp as Double=0

For i = 0 To 9

If score(i) avg and score(i)temp Then

TextBox3.Text = TextBox3.Text score(i) " "

if score(i)=avg then

temp=score(i)

end if

End If

Next

文章題目：vb.net直接數(shù)組 vb byte數(shù)組
文章源于：http://chinadenli.net/article34/hjijpe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)網(wǎng)站建設(shè)、動(dòng)態(tài)網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)站策劃、建站公司、外貿(mào)建站

廣告

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