知识大全控件指南使用Data控件访问数据库

Posted 2022-07-17 知

篇首语：宁可枝头抱香死，何曾吹落北风中。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全控件指南使用Data控件访问数据库相关的知识，希望对你有一定的参考价值。

控件指南使用Data控件访问数据库 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　使用Data控件访问数据库

　　很多软件都有保存用户设置的功能以便用户下一次启动时其程序界面及相关设置都是自己最中意和习惯的这使得软件具有人性化用户用起来感到亲切用VB编写的软件可以通过多种途径实现此功能这里介绍用数据库方法来保存用户的个性化设置

　　假设我们已经完成了一个用TextBox做编辑栏的字处理程序该程序提供了让用户对编辑栏背景色和字体的设置菜单现在我们想让用户所作的设置能保存下来怎么办呢？

　　第一步给窗体添加一个Data控件

　　第二步用Access建立一个名为Pad的数据库在库中建立一个表Myset 给表添加四个字段 backcolor（数据） forecolor(文本） fontname(文本） fontsize（文本）注意请将库文件存入程序所在目录

　　如果你的机器没安装有Access 可通过VB建库

　　第三步编写如下代码

　　在Form_Load事件添加

　　定位库文件路径

　　Data DatabaseName = App Path + tSet mdb

　　Data RecordSource = MySet

　　设置背景色

　　Private Sub mnuBackColorSetting_Click()

　　CommonDialog Flags = cdlCCFullOpen

　　CommonDialog ShowColor

　　On Error GoTo err

　　Data Recordset Edit

　　err:

　　If err Number = Then

　　Data Recordset AddNew

　　End If

　　Data Recordset Fields( backcolor ) = CommonDialog Color

　　Data Recordset Update

　　Text BackColor = CommonDialog Color

　　End Sub

　　设置字体

　　Private Sub mnuFontSetting_Click()

　　CommonDialog Flags = cdlCFEffects Or cdlCFBoth

　　CommonDialog ShowFont

　　On Error GoTo FontErr

　　Data Recordset Edit

　　FontErr:

　　If err Number = Then

　　Data Recordset AddNew

　　End If

　　Data Recordset Fields( fontsize ) = CommonDialog FontSize

　　Data Recordset Fields( forecolor ) = CommonDialog Color

　　Data Recordset Fields( fontname ) = CommonDialog FontName

　　Data Recordset Update

　　Text ForeColor = CommonDialog Color

　　Text Font Name = CommonDialog FontName

　　Text Font Size = CommonDialog FontSize

　　窗体的Activate事件

　　Private Sub Form_Activate()

　　On Error Resume Next

　　Text BackColor = Data Recordset Fields( backcolor )

　　Text Font Size = Data Recordset Fields( fontsize )

　　Text ForeColor = Data Recordset Fields( forecolor )

　　Text Font Name = Data Recordset Fields( fontname )

cha138/Article/program/net/201311/11921

知识大全 控件指南 使用Data控件访问数据库

知识大全控件指南使用Data控件访问数据库