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

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

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



本实例详细介绍了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控件就这样被几行代码代替啦。嘿嘿。