代码讲述VB.NET实现数据绑定

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实现数据绑定的源程序代码:

 
 
 
  1. Imports System.Drawing  
  2. Imports System.Windows.Forms  
  3. Imports System.ComponentModel  
  4. Imports System  
  5. Imports System.Data.OleDb  
  6. Imports System.Data  
  7.  
  8. Public Class Form1  
  9. Inherits Form  
  10.  
  11. Private WithEvents Button1 As Button  
  12. Private TextBox1 As TextBox  
  13. Private myDataSet As DataSet  
  14. Private components As System.ComponentModel.Container  
  15.  
  16. Public Sub New ( )  
  17. MyBase.New()  
  18. GetConnected ( )  
  19. InitializeComponent ( )  
  20. End Sub  
  21. '清除在程序中使用过的资源  
  22. Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )  
  23. If disposing Then  
  24. If Not ( components Is Nothing ) Then  
  25. components.Dispose ( )  
  26. End If  
  27. End If  
  28. MyBase.Dispose ( disposing )  
  29. End Sub  
  30. '打开数据表,返回数据集  
  31. public Sub GetConnected ( )  
  32. '创建一个 OleDbConnection  
  33. Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = ..\sample.mdb" 
  34. Dim myConn As OleDbConnection = new OleDbConnection ( )  
  35. myConn.ConnectionString = strCon 
  36.  
  37. Dim strCom As string = " SELECT * FROM books " 
  38. '创建一个 DataSet  
  39. myDataSet = new DataSet( )  
  40.  
  41. myConn.Open ( )  
  42. '用 OleDbDataAdapter 得到一个数据集  
  43. Dim myCommand As OleDbDataAdapter = new OleDbDataAdapter ( strCom , myConn )  
  44. '把Dataset绑定books数据表  
  45. myCommand.Fill ( myDataSet , "books" )  
  46. '关闭此OleDbConnection  
  47. myConn.Close ( )  
  48.  
  49. End Sub  
  50. '初始化窗体中的组件  
  51. Private Sub InitializeComponent ( )  
  52. Me.Text = "对TextBox组件实现数据绑定!" 
  53. Me.Width = 400 
  54. Me.Height = 300 
  55.  
  56. Button1 = New Button ( )  
  57. TextBox1 = New TextBox ( )  
  58.  
  59. Button1.Left = 200 
  60. Button1.Top = 200 
  61. Button1.Width = 100 
  62. Button1.Height = 40 
  63. Button1.TabIndex = 0 
  64. Button1.Text = "数据绑定" 
  65.  
  66. TextBox1.Left = 200 
  67. TextBox1.Top = 30 
  68. TextBox1.Width = 150 
  69. TextBox1.Height = 40 
  70.  
  71. Me.Controls.Add ( Button1 )  
  72. Me.Controls.Add ( TextBox1 )  
  73.  
  74. End Sub  
  75.  
  76. Private Sub Button1_Click ( ByVal sender As Object , _  
  77. ByVal e As System.EventArgs ) Handles Button1.Click  
  78. TextBox1.DataBindings.Add ( New Binding ( "Text" , Me.myDataSet , "books.bookid" ) )  
  79. End Sub  
  80. End Class  
  81.  
  82. Module Module1  
  83. Sub Main ( )  
  84. Application.Run ( new Form1 ( ) )  
  85. End sub  
  86. End Module 

网站名称:代码讲述VB.NET实现数据绑定
网站路径:http://www.hantingmc.com/qtweb/news38/317788.html

网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联