使用VB.NET的五個技巧之處理數(shù)據(jù)行

處理數(shù)據(jù)行（DataRow）

創(chuàng)新互聯(lián)主要從事網頁設計、PC網站建設（電腦版網站建設）、wap網站建設（手機版網站建設）、響應式網站建設、程序開發(fā)、網站優(yōu)化、微網站、微信小程序定制開發(fā)等，憑借多年來在互聯(lián)網的打拼，我們在互聯(lián)網網站建設行業(yè)積累了豐富的網站建設、成都網站建設、網站設計、網絡營銷經驗，集策劃、開發(fā)、設計、營銷、管理等多方位專業(yè)化運作于一體。

Windows窗體中的數(shù)據(jù)綁定列表框和組合框很節(jié)省時間 典型的代碼如下（假定已經建立了SqlDataAdapter或者其它部件獲取數(shù)據(jù)）

Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID

在這種情況下 代碼使用Northwind數(shù)據(jù)庫的顧客記錄工作 DisplayMember屬性設置為你希望用戶在列表框中看到的記錄字段 它是customers表的CompanyName 通常ValueMember屬性設置為數(shù)據(jù)表中的一個鍵字段 對于customer來說是CustomerID 一旦用戶選擇了列表框中的一行 很容易使用列表框的SelectedValue屬性獲得鍵字段

MsgBox（ListBox SelectedValue）

但是有可能需要一個與被選擇項相關的整個數(shù)據(jù)行對象的引用 例如 如果被選擇的行需要被刪除 就不知道鍵了 你需要一個數(shù)據(jù)行的引用以使用Delete方法

典型的Visual Basic開發(fā)者通常這樣想 我已經得到了該行的鍵了 我將編寫一些邏輯來查找使用該鍵的行 這樣可以實現(xiàn) 但是有更好的實現(xiàn)方法 可以使用一行代碼獲取與列表框中選項關聯(lián)的數(shù)據(jù)行

Dim dr As DataRow = CType（ListBox SelectedItem DataRowView） Row

通常該邏輯不會憑直覺出現(xiàn) 即使對經驗豐富的開發(fā)者 為了解釋這是怎樣實現(xiàn)的 我把上面的一行拆成幾行 下面的代碼與上面代碼的功能相同

Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row

DataRowView類是數(shù)據(jù)行的包裝 它被多個Windows窗體控件使用 它使得顯示與控件中的數(shù)據(jù)行相關的數(shù)據(jù)更加容易 當列表框被數(shù)據(jù)綁定到數(shù)據(jù)表時（假定列表框中的有些行當前被選定了） 列表框的SelectedItem屬性保存了一個DataRowView對象

這意味著我們能把列表框的SelectedItem屬性轉換到DataRowView對象 這就是上面代碼中的第二行實現(xiàn)的 接著DataRowView暴露一個Row屬性 它指向被包裝的數(shù)據(jù)行 上面的代碼聲明了一個數(shù)據(jù)行并設置了Row屬性

轉換對象的類型以訪問它的接口的技術在Visual Basic 中不是經常使用 但是在Visual Basic NET中這是經常的 有了上面的例子后 大多數(shù)有經驗的開發(fā)者迅速跟上了這種技術

數(shù)據(jù)行的引用（dr）可用于用任何方式維護行 訪問數(shù)據(jù)行中的任何特定字段是可行的 行中的數(shù)據(jù)可以被改變 能使數(shù)據(jù)行的Delete方法把該行標識為刪除 或者從數(shù)據(jù)表的行集合中刪除該行 下面的代碼標識刪除了一行

dr Delete（）

lishixinzhi/Article/program/net/201311/12974

vb點虐 怎么操作數(shù)據(jù)庫

如果樓主熟悉VB6，可以直接在項目中添加ADODB的Com引用，這樣你就可以像VB6那樣操作數(shù)據(jù)庫了！

另外

.NET

Framework中連接數(shù)據(jù)庫要用到ADO.NET。如果要操作Access數(shù)據(jù)庫，要用到System.Data.OleDb命名空間下的許多類。

比如按樓主所說，“我想在textbox1中顯示表一中【一些數(shù)據(jù)】字段下的第一個內容”：

'首先導入命名空間

Imports

System.Data

Imports

System.Data.OleDb

'然后在某一個事件處理程序中寫：

Dim

conn

As

New

OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data

Source=數(shù)據(jù)庫.accdb;Jet

OLEDB:Database

Password=MyDbPassword")

Dim

command

As

New

OleDbCommand("Select

*

From

數(shù)據(jù)表",

conn)

conn.Open()

'打開數(shù)據(jù)庫連接

Dim

reader

As

OleDbDataReader

=

command.ExecuteReader()

'執(zhí)行SQL語句，返回OleDbDataReader

對象

Do

While

reader.Read()

'讀取一條數(shù)據(jù)

textbox1.Text

+=

reader("一些數(shù)據(jù)")

VbCrLf

Loop

reader.Close()

'關閉OleDbDataReader

conn.Close()

'關閉連接

vb點虐 怎么使用表格控件？

DataGridView控件，放一個DataGridView1和Button1到窗體，下面是按鈕下代碼\x0d\x0a Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click\x0d\x0a Me.DataGridView1.AllowUserToAddRows = False\x0d\x0a DataGridView1.RowTemplate.Height = 200\x0d\x0a DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None\x0d\x0a For i = 1 To 3\x0d\x0a Me.DataGridView1.Columns.Add("列" i.ToString, "列" i.ToString)\x0d\x0a Me.DataGridView1.Rows.Add()\x0d\x0a Next\x0d\x0a Me.DataGridView1.Columns(0).Width = 100\x0d\x0a Me.DataGridView1.Columns(1).Width = 500\x0d\x0a Me.DataGridView1.Columns(0).Width = 300\x0d\x0a End Sub\x0d\x0a'自己設置相關需要的屬性即可