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

前端之家收集整理的这篇文章主要介绍了初识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


运行结果为

原文链接:https://www.f2er.com/vb/259743.html

猜你在找的VB相关文章