vb.net教程之VB.NET如何实现对数据记录的浏览

当前位置:

首页 > VB.net教程 >

vb.net教程之VB.NET如何实现对数据记录的浏览

VB.NET如何实现对数据记录的浏览：
在完成对窗体中的WinForm组件进行绑定过以后，实现对数据记录的浏览操作的关键就是要找到如何定位数据记录指针的方法。而要实现这种处理就需要用到.Net FrameWork SDK中的名称空间System.Windows.Froms中的BindingManagerBase类了，BindingManagerBase是一个抽象的类，他主要管理对于绑定同一数据表所有绑定对象。BindingManagerBase类中定义了二个属性"position"和"Count"，第一个属性是定义当前数据指针，而第二个属性主要是得到当前数据集有多少记录数目。在已经进行完数据绑定后，通过这二个属性的配合使用，实现对数据记录的浏览。那么如何创建一个属于自己的BindingManagerBase对象，这就

（相关vb.net教程)

要使用到另外一个类--BindingContext。其实对于那些属于从Control类中继承对象的BindingManagerBase都是由BindingContext来创建的，下面以Access 2000为操作数据库，创建的一个名称为"myBind"的BindingManagerBase对象的具体例子。

        '创建一个数据连接
        Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;
Data Source = db.mdb "
        Dim myConn As OleDbConnection = New OleDbConnection ( )
        myConn.ConnectionString = strCon
        Dim strCom As String = " SELECT * FROM person "
        '创建一个 DataSet
        myDataSet = New DataSet ( )
        myConn.Open ( )
        '通过OleDbDataAdapter对象得到一个数据集
        Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter
   ( strCom , myConn )
        '把Dataset绑定books数据表
        myCommand.Fill ( myDataSet , "person" )
        '关闭此数据连接
        myConn.Close ( )
'创建BindingManagerBase对象
        myBind = Me.BindingContext ( myDataSet , "person" )

对于SQL Server数据库，创建BindingManagerBase对象和Access 2000大致相同，唯一不同的就在于创建数据连接的时候，下面是以SQL Server 2000为操作数据库，数据库服务器名称为"Server1",数据库名称为"Data1"，登陆的ID为"sa"，口令为空，在数据库也只存放了一张"person"数据表，创建BindingManagerBase对象的程序代码：

     '创建一个数据连接
        Dim strCon As String = " Provider = SQLOLEDB.1 ;
Persist Security Info = False ; User ID = sa ;
Initial Catalog = data1 ; Data Source = server1 "
      Dim myConn As OleDbConnection = New OleDbConnection ( )
        myConn.ConnectionString = strCon
        Dim strCom As String = " SELECT * FROM person "
        '创建一个 DataSet
        myDataSet = New DataSet ( )
        myConn.Open ( )
        '通过OleDbDataAdapter对象得到一个数据集
        Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter ( strCom ,
   myConn )
        '把Dataset绑定books数据表
        myCommand.Fill ( myDataSet , "person" )
       '关闭此数据连接
        myConn.Close ( )
'创建BindingManagerBase对象
        myBind = Me.BindingContext ( myDataSet , "person" )

在得到BindingManagerBase对象后，配合使用"position"属性和"Count"属性，就可以实现对数据集的浏览了，下面是对数据集进行"上一条"、"下一条"、"尾记录"、"首记录"。

    '按钮"尾记录"对象事件程序
    Private Sub lastrec_Click ( ByVal sender As Object , _
      ByVal e As System.EventArgs ) Handles lastrec.Click
        myBind.Position = myBind.Count - 1
    End Sub

    '按钮"下一条"对象事件程序
    Private Sub nextrec_Click ( ByVal sender As Object , _
      ByVal e As System.EventArgs ) Handles nextrec.Click
        If myBind.Position = myBind.Count - 1 Then
            MessageBox.Show ( "已经到了最后一条记录！" , "信息提示！" ,
   MessageBoxButtons.OK , MessageBoxIcon.Information )
        Else
            myBind.Position = myBind.Position + 1
        End If
    End Sub
    '按钮"上一条"对象事件程序
    Private Sub previousrec_Click ( ByVal sender As Object , _
      ByVal e As System.EventArgs ) Handles previousrec.Click
        If ( myBind.Position = 0 ) Then
            MessageBox.Show ( "已经到了第一条记录！" , "信息提示！" ,
    MessageBoxButtons.OK , MessageBoxIcon.Information )
        Else
            myBind.Position = myBind.Position - 1
        End If
    End Sub
    '按钮"首记录"对象事件程序
    Private Sub firstrec_Click ( ByVal sender As Object , _
      ByVal e As System.EventArgs ) Handles firstrec.Click
        myBind.Position = 0
    End Sub

栏目列表