VBSQL编程基础教程

.

在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相关内容。

三、数据库简单操作

前面介绍了ADO.NET基础，以及ADO.NET与Windows窗体控件的绑定方法。但是，对于数据库编程我们更想了解的还是如何增加记录，删除记录，更新记录等数据库记录的操作方法。这里我们将以一个具体的实例为大家介绍这些操作方法。

在图3中，有btnFirst(第一个记录)，btnEnd(最后一条记录)，btnAdd(增加记录)，btnDel(删除记录)，btnEdit(修改记录)控件。

用代码形式打开数据并在frmtest_load中把数据绑定给TextBox控件。此处给出源代码： '打开数据库

Public Sub OpenData() '创建一个 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

'绑定数据到TextBox控件

.

.

Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 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

完成以上步骤后，我们就可以通过编程对数据库进行各作操作了。 1.实现对数据记录的浏览

在完成对窗体中的WinForm组件进行绑定后，实现对数据记录的浏览操作的关键就是要找到如何定位数据记录指针的方法。而要实现这种处理就需

.