DEMO:使用数据绑定访问数据

这个实例是使用ADO Data控件创建Access数据库连接，并使用文本框的数据绑定特性来显示数据。从而不用编写代码的情况下实现数据库访问。

 

设计过程：

①设计窗体：

②设置控件属性：

右击ADO Data控件--ADODC属性--使用连接字符串--选择Microsoft Jet 4.0 OLEDB  Provider--下一步---填入要连接的数据库--测试连接

第一个文本框的DataSource属性设置为Adodc1，DataField属性设置为用户名

第二个文本框 的DataSource属性设置为Adodc1，DataField属性设置为口令

③代码功能：（主要完成控件的标题显示）

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
       

        '使ADO Data控件显示当前记录编号和总记录数
        Adodc1.Caption = "当前记录：" &Adodc1.Recordset.AbsolutePosition _
                                       & "/" & Adodc1.Recordset.RecordCount

End Sub