VB.NET還是比較常用的，于是我研究了一下VB.NET實現數據綁定，在這里拿出來和大家分享一下，希望對大家有用。以下介紹VB.NET實現數據綁定：

TextBox組件通過下列語句就可以把已經得到的數據集"myDataSet"中的"books.bookid"字段值綁定到TextBox1的"Text"屬性上：TextBox1.DataBindings.Add ( New Binding ( "Text" , Me.myDataSet , "books.bookid" ) ) 了解了這二點，就不難實現對TextBox組件的數據綁定了。下面是VB.NET實現數據綁定的源程序代碼：

Imports System.Drawing  
Imports System.Windows.Forms  
Imports System.ComponentModel  
Imports System  
Imports System.Data.OleDb  
Imports System.Data  
 
Public Class Form1  
Inherits Form  
 
Private WithEvents Button1 As Button  
Private TextBox1 As TextBox  
Private myDataSet As DataSet  
Private components As System.ComponentModel.Container  
 
Public Sub New ( )  
MyBase.New()  
GetConnected ( )  
InitializeComponent ( )  
End Sub  
'清除在程序中使用過的資源  
Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )  
If disposing Then  
If Not ( components Is Nothing ) Then  
components.Dispose ( )  
End If  
End If  
MyBase.Dispose ( disposing )  
End Sub  
'打開數據表，返回數據集  
public Sub GetConnected ( )  
'創建一個 OleDbConnection  
Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = ..\sample.mdb" 
Dim myConn As OleDbConnection = new OleDbConnection ( )  
myConn.ConnectionString = strCon 
 
Dim strCom As string = " SELECT * FROM books " 
'創建一個 DataSet  
myDataSet = new DataSet( )  
 
myConn.Open ( )  
'用 OleDbDataAdapter 得到一個數據集  
Dim myCommand As OleDbDataAdapter = new OleDbDataAdapter ( strCom , myConn )  
'把Dataset綁定books數據表  
myCommand.Fill ( myDataSet , "books" )  
'關閉此OleDbConnection  
myConn.Close ( )  
 
End Sub  
'初始化窗體中的組件  
Private Sub InitializeComponent ( )  
Me.Text = "對TextBox組件實現數據綁定！" 
Me.Width = 400 
Me.Height = 300 
 
Button1 = New Button ( )  
TextBox1 = New TextBox ( )  
 
Button1.Left = 200 
Button1.Top = 200 
Button1.Width = 100 
Button1.Height = 40 
Button1.TabIndex = 0 
Button1.Text = "數據綁定" 
 
TextBox1.Left = 200 
TextBox1.Top = 30 
TextBox1.Width = 150 
TextBox1.Height = 40 
 
Me.Controls.Add ( Button1 )  
Me.Controls.Add ( TextBox1 )  
 
End Sub  
 
Private Sub Button1_Click ( ByVal sender As Object , _  
ByVal e As System.EventArgs ) Handles Button1.Click  
TextBox1.DataBindings.Add ( New Binding ( "Text" , Me.myDataSet , "books.bookid" ) )  
End Sub  
End Class  
 
Module Module1  
Sub Main ( )  
Application.Run ( new Form1 ( ) )  
End sub  
End Module 

【編輯推薦】

1. VB.NET編寫托盤程序經驗雜談
2. 手把手指導VB.NET Socket編程
3. 快速了解VB.NET可選參數
4. 詳細介紹VB.NET MyClass
5. 自己動手用代碼實現VB.NET ListView加載數據