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

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

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

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

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

一：功能介绍：

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

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

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

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

二：剖析Data控件

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

1，界面

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控件就这样被几行代码代替啦。嘿嘿。