数据库学习实践（三）--使用数据绑定

秒速五厘米 2022-06-05 01:36 87阅读 0赞

数据绑定：是指控件与数据源特定字段的关联，在程序运行时，控件能自动显示数据源数据。

简单的理解就是，建立绑定目标和绑定源之间的连接，通过绑定目标可以访问数据库。

本实例详细介绍了VB中ADO Data控件和数据源之间的绑定，使我们更加的体会到了数据绑定的方便。

下面介绍简单说说Data控件帮点数据库和详细介绍如何用代码“代替”控件。

一：功能介绍：

![1344605508_2241.png][]

只要点击1，2,3,4四个按钮就可以实现数据库的访问。

1）点击第一个按钮，访问数据库中的第一条记录。第二个按钮是当前记录的前一个记录。第三个按钮是当前记录的后一条记录。第四个按钮就是数据库中的最后一条记录。

2）在使用data控件访问数据库的时候，我们就要设置一下数据源的路径就可，具体的连接在上一篇博客《[详解VB中连接access数据库的几种方法][VB_access]》中详细的介绍啦，然后再设置一下用户名和口令连个文本框的datasource和datafield 即可。

3）Data控件的显示，则是通过设置控件的caption属性来实现的。

二：剖析Data控件

Data控件这么简单就可以实现数据库的访问，那么它到底是怎么实现的呢。那么如何用代码取代data控件呢，详解如下：

1，界面

![1344605557_6699.png][]

2，代码

1）数据库绑定

Set objCn =New Connection
    
        Set objRs =New Recordset
    
     
    
       objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;"& "Data Source=" & App.Path & "\实例01.mdb"
    
        objCn.Open
    
     
    
        strSQL ="SELECT * FROM 系统用户"
    
     
    
        SetobjRs.ActiveConnection = objCn '路径
    
        objRs.OpenstrSQL, objCn, 1 '取出信息

2）实现前后浏览

If NotobjRs.BOF Then objRs.MovePrevious IfobjRs.BOF Then objRs.MoveLast txtname.Text = objRs.Fields("用户名").Value txtpassword.Text = objRs.Fields("口令").Value ExitSub Else Text1.Text= objRs.Fields("用户名").Value txtpassword.Text = objRs.Fields("口令").Value 'Exit Sub End If End If

If NotobjRs.EOF Then objRs.MoveNext IfobjRs.EOF Then objRs.MoveFirst txtname.Text = objRs.Fields("用户名").Value txtpassword.Text = objRs.Fields("口令").Value ExitSub Else txtname.Text = objRs.Fields("用户名").Value txtpassword.Text = objRs.Fields("口令").Value End If 'ExitSub End If

3）整个代码过程：

Option Explicit
    
    Dim objCn As Connection, objRs As Recordset, strSQL AsString
    
     
    
    Private Sub cmdpre_Click()
    
        If NotobjRs.BOF Then
    
           objRs.MovePrevious
    
            
    
            IfobjRs.BOF Then
    
                objRs.MoveLast
    
     
    
               txtname.Text = objRs.Fields("用户名").Value
    
               txtpassword.Text = objRs.Fields("口令").Value
    
                ExitSub
    
            Else
    
               txtname.Text = objRs.Fields("用户名").Value
    
               txtpassword.Text = objRs.Fields("口令").Value
    
               'Exit Sub
    
     
    
            End If
    
     End If
    
    End Sub
    
     
    
    Private Sub cmdnext_Click()
    
        If NotobjRs.EOF Then
    
           objRs.MoveNext
    
     
    
            IfobjRs.EOF Then
    
               objRs.MoveFirst
    
               txtname.Text = objRs.Fields("用户名").Value
    
                txtpassword.Text = objRs.Fields("口令").Value
    
                ExitSub
    
            Else
    
               txtname.Text = objRs.Fields("用户名").Value
    
               txtpassword.Text = objRs.Fields("口令").Value
    
            End If
    
     
    
        End If
    
     
    
    End Sub
    
     
    
    Private Sub Form_Load()
    
        Set objCn =New Connection
    
        Set objRs =New Recordset
    
     
    
       objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;"& "Data Source=" & App.Path & "\实例01.mdb"
    
        objCn.Open
    
     
    
        strSQL ="SELECT * FROM 系统用户"
    
     
    
        SetobjRs.ActiveConnection = objCn '路径
    
        objRs.OpenstrSQL, objCn, 1 '取出信息
    
                                                                                                                                    
    
        txtname.Text= objRs.Fields("用户名").Value
    
       txtpassword.Text = objRs.Fields("口令").Value
    
     
    
    End Sub
    
     
    
    Private Sub Form_Unload(Cancel As Integer)
    
        objCn.Close
    
        Set objCn =Nothing
    
        Set objRs =Nothing
    
     
    
    End Sub

貌似很复杂的data控件就这样被几行代码代替啦。嘿嘿。

[1344605508_2241.png]: https://img-my.csdn.net/uploads/201208/10/1344605508_2241.png
[VB_access]: http://blog.csdn.net/lishuangzhe7047/article/details/7837657
[1344605557_6699.png]: https://img-my.csdn.net/uploads/201208/10/1344605557_6699.png