vb.net直接數組 vb byte數組

如何讀取數據表一列的數據到數組 VB.NET

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

成都創新互聯公司專注于網站建設|成都企業網站維護|優化|托管以及網絡推廣，積累了大量的網站設計與制作經驗，為許多企業提供了網站定制設計服務，案例作品覆蓋成都門窗定制等行業。能根據企業所處的行業與銷售的產品，結合品牌形象的塑造，量身制作品質網站。

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

dim?nums()?as?string

Dim?i?As?Integer?=?0

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

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

'然后，對數據庫返回的結果進行操作（一般會將執行結果存放起來，再操作，我這里省去了存放這步）：

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

If?.HasRows?Then????'判斷是否有數據，有數據就進入下面進行讀取

Do?While?.Read???'讀取一行數據

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

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

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

i?=?i?+?1??'循環，直到結束????????????????????

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

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

End?If????????

End?With

mycon.close?'最后記得要關閉數據庫連接

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

以上，數據到了數組，你應該會操作了吧。其實建議直接對從數據庫返回的結果進行操作，不需要用數組的。

VB.NET讀取TXT文件數據保存為數組

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

'寫配件文件

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()'讀取當前行

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輸出數組

1.你說的這個有點問題,是要只輸出一次,也可做,

2.但問題是如果你數組還有就看不到了!這個做法有點問題

1.解決方法:

循環前面加入一個變量 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直接數組 vb byte數組
文章源于：http://m.kartarina.com/article34/hjijpe.html

成都網站建設公司_創新互聯，為您提供外貿網站建設、動態網站、網站設計、網站策劃、建站公司、外貿建站

廣告

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