红皮书再总结——实例三

实例3 使用数据绑定访问数据

（一）制作特点：

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

（二）设计分析：

使用ADO Data 控件快速创建数据库连接，不用编写代码即可访问数据库。

（三）技术要领：

1.ADO Data 控件：右键属性页如下：

2.显示可采用三种方式连接数据库：

Data Link文件、ODBC数据源和使用连接字符串。

（四）操作过程：

（1）设计窗体

①两个标签框＋两个文本框＋ADO Data 控件

②ADO Data 控件属性—使用连接字符串—生成—测试连接—连接成功

③选中一个文本框—DataSource属性设置为Adodc1—DataField属性设置为“用户名”

另一个文本框—DataSource属性设置为Adodc1—DataField属性设置为“口令”

（2）编写代码

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

（五）连接数据库方式：

第三种，ADO Data 控件创建连接。