使用Data控件访问数据库

原作者:www.upwinder.com 添加时间:2007-09-01 原文发表:2007-08-31 人气:333 来源：未知

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

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

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

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

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

　　第三步：编写如下代码：

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

'设置背景色
Private Sub mnuBackColorSetting_Click()
CommonDialog1.Flags = cdlCCFullOpen
CommonDialog1.ShowColor
On Error GoTo err
Data1.Recordset.Edit
err:
If err.Number = 3021 Then
Data1.Recordset.AddNew
End If
Data1.Recordset.Fields("backcolor") = CommonDialog1.Color
Data1.Recordset.Update
Text1.BackColor = CommonDialog1.Color
End Sub

'设置字体
Private Sub mnuFontSetting_Click()
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
CommonDialog1.ShowFont
On Error GoTo FontErr
Data1.Recordset.Edit
FontErr:
If err.Number = 3021 Then
Data1.Recordset.AddNew
End If
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事件
Private Sub Form_Activate()
On Error Resume Next
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")
End Sub

• Visual Basic 的未来

• VB中远程数据库的访问（3）－应用举例

• VB 神童教程第四章第一节——菜单界面设计

• 用OLE自动化Outlook

• 在VB6.0中播放GIF动画

• 在VB中使用水晶报表的一种简易编程方法

• 递归过程在VB中的应用实例

• 用MDB文件做密码库

• 开发ADOCE搭配WinCE资料存取应用程序

• Excel、Access、VB的结合应用

• 集合类：VBA集合对象的安全包装

• Visual Basic界面设计大观