使用Data控件访问数据库

核心提示：很多软件都有保存用户设置的功能，以便用户下一次启动时其程序界面及相关设置都是自己最中意和习惯的，使用Data控件访问数据库，这使得软件具有人性化，用户用起来感到亲切，注意：请将库文件存入程序所在目录，如果你的机器没安装有Access，用VB编写的软件可以通过多种途径实现此功能，这里介绍用数据库方法来保存用户的个性化设置

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

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


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

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

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

　　第三步：编写如下代码：


->在Form_Load事件添加：
'定位库文件路径
Data1.DatabaseName=App.Path "\rtSet.mdb"
Data1.RecordSource="MySet"

'设置背景色
PRivateSubmnuBackColorSetting_Click()
CommonDialog1.Flags=cdlCCFullOpen
CommonDialog1.ShowColor
OnErrorGoToerr
Data1.Recordset.Edit
err:
Iferr.Number=3021Then
Data1.Recordset.AddNew
EndIf
Data1.Recordset.Fields("backcolor")=CommonDialog1.Color
Data1.Recordset.Update
Text1.BackColor=CommonDialog1.Color
EndSub

'设置字体
PrivateSubmnuFontSetting_Click()
CommonDialog1.Flags=cdlCFEffectsOrcdlCFBoth
CommonDialog1.ShowFont
OnErrorGoToFontErr
Data1.Recordset.Edit
FontErr:
Iferr.Number=3021Then
Data1.Recordset.AddNew
EndIf
Data1.Recordset.Fields("fontsize")=CommonDialog1.FontSize
Data1.Recordset.Fields("forecolor")=CommonDialog1.Color
Data1.Recordset.Fields("fontname")=CommonDialog1.FontName
Data1.Recordset.Update

Text1.ForeColor=CommonDialog1.Color
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize

'窗体的Activate事件
PrivateSubForm_Activate()
OnErrorResumeNext
Text1.BackColor=Data1.Recordset.Fields("backcolor")
Text1.Font.Size=Data1.Recordset.Fields("fontsize")
Text1.ForeColor=Data1.Recordset.Fields("forecolor")
Text1.Font.Name=Data1.Recordset.Fields("fontname")
EndSub
->->