这个实例是使用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.RecordCountEnd Sub