vb编程_vb基本数据类型_vb编程入门实例讲解(6)

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数据表

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-46460-6.html