使用Data控件訪問數據庫
很多軟件都有保存用戶設置的功能，以便用戶下一次啟動時其程序界面及相關設置都是自己最中意和習慣的，這使得軟件具有人性化，用戶用起來感到親切。用VB編寫的軟件可以通過多種途徑實現此功能，這里介紹用數據庫方法來保存用戶的個性化設置。
假設我們已經完成了一個用TextBox做編輯欄的字處理程序，該程序提供了讓用戶對編輯欄背景色和字體的設置菜單，現在我們想讓用戶所作的設置能保存下來。怎么辦呢？
第一步：給窗體添加一個Data控件。
第二步：用Access建立一個名為Pad的數據庫，在庫中建立一個表Myset，給表添加四個字段：backcolor（數據），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。
如果你的機器沒安裝有Access，可通過VB建庫。
第三步：編寫如下代碼：
| 在Form_Load事件添加： '定位庫文件路徑 Data1.DatabaseName = App.Path + "tSet.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 |