数据库学习实践（三）--使用数据绑定
数据绑定：是指控件与数据源特定字段的关联，在程序运行时，控件能自动显示数据源数据。
简单的理解就是，建立绑定目标和绑定源之间的连接，通过绑定目标可以访问数据库。
本实例详细介绍了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 ExplicitDim 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 IfEnd 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控件就这样被几行代码代替啦。嘿嘿。