VB.NET数据库编程基础教程(转载）(2)

当前位置:

首页 > VB.net教程 >

VB.NET数据库编程基础教程(转载）(2)

完成上述步骤，即将数据集绑定到数据网格控件中了。只需再完成一个步骤，就可以看到数据网格控件中显示的数据了。

(2)虽然数据网格控件已被绑定到数据集上，但加载窗体时并不会自动填充数据集。加载窗体时，请使用窗体的Load事件过程，在数据网格控件中填充数据。代码如下：

Private Sub frmtest_Load( ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles MyBase.Load

'加载数据网格控件

MyDataSet1.Clear()

OleDbDataAdapter1.Fill(mydataset1,″student″)

End Sub

在Load事件过程中，首先需要清除数据集，然后用先前创建的OleDbDataAdapter1对象的Fill方法填充数据集。需要将表名传递给第二个参数，因为数据网格控件将使用第二个参数检索以前在DataMember属性中指定的正确DataMember (student)。

(3)现在，我们可以来看看我们的成果了，试运行一下程序。

在“解决方案资源管理器”窗口中，右击项目名称，从快捷菜单中选择“属性”命令，在打开的对话框中点击“启动对象”组合框并从列表中选择“frmtest”选项。然后点击“确定”按钮。最后按下F5键即可运行此项目。

3.绑定到TextBox控件

在上面我们介绍的实例窗体frmtest上删除DataGrid控件，并清除frmtest_Load中的代码。按照图所示设计程序界面。

上图中各控件相关属性是：( 图)

(其余的控件，我们将在下面的内容中用到。)

界面创建完成以后，我们就可以把数据集绑定到每个TextBox控件上了。步骤如下：

(1)选择要绑定的TextBox控件。按下F4键查看其“属性” 窗口。点击展开“DataBindings”属性，在“DataBindings” 中选择Text属性。

(2)打开组合框并将各个文本框绑定到相应的字段。如需要将“TxtStuID”文本框绑定到StuID字段，请点击myDataSet1上的“+”号，再点击 student上的“+”号，然后选择StuID字段。

(3)按照上述方法把其他几个文本框绑定到相应的字段上。

需要说明的是：虽然已绑定各个字段但还必须编写代码才能在首次加载窗体时用数据填充窗体。代码如下：

Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

MyDataSet1.Clear()

OleDbDataAdapter1.Fill(MyDataSet1, ″student″)

End Sub

按下F5键试运行一下程序。仔细观察一下运行结果我们就会发现，程序在实现时自动用数据集中的第一条记录来填充各件控件。

(三)用代码实现数据绑定

上面我们着重探讨了控件与数集据绑定的向导模式。这种模式虽然实现方法简单，但是却不灵活，可移植性较差。为此，我们为大家介绍如何用代码来实现数据绑定。用代码实现数据绑定的优点在于灵活自由，代码移植方便。

为了便于更好的理解，我们仍然选用“TextBox”控件作为实例来介绍。

1.绑定到TextBox控件

(1)界面设计：

新建一个项目，按照图的方法设置程序界面，再增加一个Button控件，将其“Text“属性设为“TextBox数据绑定”。

(2)代码实现：

'指定程序中引用的名称空间：在代码窗中输入：

Imports System.Drawing

Imports System.Windows.Forms

Imports System.ComponentModel

Imports System

Imports System.Data.OleDb

Imports System.Data

'首先定义全局变量myDataSet及GetConnected()方法，代码如下：

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)

……(省略部分自动生成代码)

End Sub

'为GetConnected()方法增加代码，用来打开数据表，返回数据集。

Public Sub GetConnected()

'创建一个 OleDbConnection

Dim ConnectionString As String = ″ Provider = Microsoft.Jet.OLEDB.4.0; Data Source = e:\My Documents\db1.mdb″

Dim myConn As OleDbConnection = New OleDbConnection()

myConn.ConnectionString = ConnectionString

Dim strCom As String = ″ SELECT * FROM student ″

'创建一个 DataSet

myDataSet = New DataSet()

myConn.Open()

'用 OleDbDataAdapter 得到一个数据集

Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter(strCom, myConn)

'把Dataset绑定student数据表

myCommand.Fill(myDataSet, ″student″)

'关闭此OleDbConnection

myConn.Close()

End Sub

'初始化窗体中的组件

Private Sub InitializeComponent()

……(省略部分自动生成代码)

End Sub

'将各个文本框控件绑定到数据库的各个字段。

Private Sub Button1_Click(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles Button1.Click

TxtStuID.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuID″))

TxtStuName.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuName″))

TxtStuSex.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuSex″))

TxtStuBorn.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuBorn″))

TxtStuCore.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuCore″))

End Sub

End Class

Module Module1

Sub Main()

Application.Run(New Form1())

End SubEnd Module

编译后运行程序，看看是不是与上面介绍的实例运行结果相同。

在上面的代码中，我们新建了一个GetConnected()过程，用于建立连接，打开数据库。在用代码实现数据绑定或者对数据库进行任何操作前，就必须要先建立连接，打开数据库，程序运行结束后再关闭数据连接。

在Button1_Click过程中，我们把“TextBox”控件绑定到数据集myDataSet中“student”的各个字段上。

程序运行后，点击“TextBox数据绑定”按纽，程序就会用myDataSet中“student”中的数据来自动填充文本框。

2.绑定到Label控件

有了上面的内容做基础，再来讨论如何把数据集绑定到Label控件上就显得很简单了。把数据绑定到Label控件的方法与绑定到TextBox控件的方法大同小异。此处不再详细讲解，只给出代码实现绑定到Label控件的核心部分代码。

Private Sub Button1_Click (ByVal sender As Object , _

ByVal e As System.EventArgs ) Handles Button1.Click

'把student表的StuName字段绑定到Label1的Text属性上。

Label1.DataBindings.Add ( New Binding ( ″Text″ , Me.myDataSet , ″student.StuName″ ) )

End Sub

3.绑定到ComboBox控件

上面介绍的是对组件的简单数据绑定，对组件的复杂数据绑定和它有所区别，也有所相同，具体如下：

(1)要对ComboBox组件实现数据绑定，首先也是要打开数据表，得到数据集。这和上面TextBox组件的代码大致一样，在此略过。

(2)实现数据绑定：

设定了ComboBox组件的三个属性就可以实现数据绑定了，这三个属性是“DataSource”、“DisplayMember”、“ValueMember”。其中DataSource表示指定的数据集；DisplayMember表示ComboBox组件显示的字段值；ValueMember表示ComboBox组件选择后的值。这三个属性的具体使用方法如下：

ComboBox1.DataSource = Me.myDataSet

ComboBox1.DisplayMember = ″studnet.StuName″

ComboBox1.ValueMember = ″ studnet.StuName ″

下面我们就来看看把数据集绑定到ComboBox控件的核心代码：

Private Sub Button1_Click ( ByVal sender As Object , _

ByVal e As System.EventArgs ) Handles Button1.Click

ComboBox1.DataSource = Me.myDataSet

ComboBox1.DisplayMember = ″student.StuName″

ComboBox1.ValueMember = ″ student.StuName ″

End Sub

注意：对ComboBox控件进行数据绑定的方法同样适用于ListBox控件，因此关于LisBox控件数据绑定方法本文将不再介绍。需要者请参阅ComboBox相关内容。