使用Data控件訪問數據庫
很多軟件都有保存用戶設置的功能以便用戶下一次啟動時其程序界面及相關設置都是自己最中意和習慣的這使得軟件具有人性化用戶用起來感到親切用VB編寫的軟件可以通過多種途徑實現此功能這裡介紹用數據庫方法來保存用戶的個性化設置
假設我們已經完成了一個用TextBox做編輯欄的字處理程序該程序提供了讓用戶對編輯欄背景色和字體的設置菜單現在我們想讓用戶所作的設置能保存下來怎麼辦呢？
第一步給窗體添加一個Data控件
第二步用Access建立一個名為Pad的數據庫在庫中建立一個表Myset給表添加四個字段backcolor（數據）forecolor(文本）fontname(文本）fontsize（文本）注意請將庫文件存入程序所在目錄
如果你的機器沒安裝有Access可通過VB建庫
第三步編寫如下代碼
在Form_Load事件添加
定位庫文件路徑
DataDatabaseName = AppPath + tSetmdb
DataRecordSource = MySet
設置背景色
Private Sub mnuBackColorSetting_Click()
CommonDialogFlags = cdlCCFullOpen
CommonDialogShowColor
On Error GoTo err
DataRecordsetEdit
err:
If errNumber = Then
DataRecordsetAddNew
End If
DataRecordsetFields(backcolor) = CommonDialogColor
DataRecordsetUpdate
TextBackColor = CommonDialogColor
End Sub
設置字體
Private Sub mnuFontSetting_Click()
CommonDialogFlags = cdlCFEffects Or cdlCFBoth
CommonDialogShowFont
On Error GoTo FontErr
DataRecordsetEdit
FontErr:
If errNumber = Then
DataRecordsetAddNew
End If
DataRecordsetFields(fontsize) = CommonDialogFontSize
DataRecordsetFields(forecolor) = CommonDialogColor
DataRecordsetFields(fontname) = CommonDialogFontName
DataRecordsetUpdate
TextForeColor = CommonDialogColor
TextFontName = CommonDialogFontName
TextFontSize = CommonDialogFontSize
窗體的Activate事件
Private Sub Form_Activate()
On Error Resume Next
TextBackColor = DataRecordsetFields(backcolor)
TextFontSize = DataRecordsetFields(fontsize)
TextForeColor = DataRecordsetFields(forecolor)
TextFontName = DataRecordsetFields(fontname)
End Sub
From:http://tw.wingwit.com/Article/program/net/201311/11921.html
