初识vb数据库凯发之实例3（使用数据绑定访问数据）

制作特点

使用ADOData控件创建Access数据库连接,使用文本框的数据绑定特性来显示数据

 

设计分析

 

首先用ADO Data控件连接数据库获得数据源,然后将该数据源绑定到文本框来显示数据.

优点:使用ADO Data 控件可以在不编写代码的情况下轻松实现数据库访问.

访问数据库的方式

方法1:使用ADO对象,通过编写代码访问数据库(实例1,2)

方法2:使用ADOData控件快速创建数据库连接,不用编写代码(本例使用)

方法3:使用数据库环境设计器创建数据库连接,不用编写代码

 

技术要领

 

ADOData控件的基本结构

单击使第一个记录成为当前记录

单击使前一个记录成为当前记录

单击使后一个记录成为当前记录

单击使最后一个记录成为当前记录

ADOData控件属性设置

 

ADOData控件可以在属性窗口中设置,还可以通过属性页对话框设置

 

以下是使用属性页的方法

 

右击ADOData控件选择ADODC属性

通用中有三种连接数据库的方式

此例我们使用第三种

 

设计应用程序窗体

设置ADO Data的属性

       在通用选项卡中选择使用连接字符串单选按钮,单击生成,选择Microsoft Jet4.0 OLE DBProvider,

 单击下一步,打开连接选项卡,输入Access数据库文件名,如果数据库需要身份信息,则需要制定用户名称和密码

单击确定

打开 记录员选项卡,在命令类型下拉列表中选中 2-adcmdtable,在表或存储过程名称列表框中选中系统用户

单击确定，完成

将第一个文本框的DataSource属性设置为Adodc1,DataField属性设置为用户名，第二个文本框的DataSource属性设置为Adodc1,DataField属性设置为口令，

 

编写代码

 

由于ADO Data控件的标题默认情况下只能显示控件的默认名称，以下就是通过编写控件的MoveComplete事件处理过程代码使他可以显示当前记录序号和总记录数

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "当前记录：" & Adodc1.Recordset.AbsolutePosition _
& "/" & Adodc1.Recordset.RecordCount

End Sub

运行结果为