ACCESS程序设计---备份还原功能轻松实现.docVIP

ACCESS程序设计———备份还原功能轻松实现 数据备份与还原功能在一个系统中是不可或缺的功能，在ACCESS中只要通过简单的几步骤就可以作出很专业的数据备份与还原功能。下面就简单的介绍制作的方法。 拆分数据库：将数据库拆分为两个文件，其中一个专门储存基本表，另一个储存窗体、查询、报表、数据表等内容。这个使用ACCESS的拆分向导就可以很轻松的完成，如下图： 拆分数据库有几个方面的好处： 利于以后将单机版本升级为网络版。 利于程序的升级与数据备份的方便。 添加模块：将以下代码添加到模块中，在窗体的代码中将用到这部分模块。只要在模块面版中单击新建按钮，然后将以下代码拷贝进去就可以了。具体的代码意思可以不必管它，只要能够实现备份还原功能就可以了。如下图： Option Explicit Type tagOPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long strFilter As String strCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long strFile As String nMaxFile As Long strFileTitle As String nMaxFileTitle As Long strInitialDir As String strTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer strDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Declare Function apiGetOpenFileName Lib comdlg32.dll Alias GetOpenFileNameA (ofn As tagOPENFILENAME) As Boolean Private Declare Function apiGetSaveFileName Lib comdlg32.dll Alias GetSaveFileNameA (ofn As tagOPENFILENAME) As Boolean Public Function CommonFileOpenSave( _ Optional ByRef flags As Variant, _ Optional ByVal InitialDir As Variant, _ Optional ByVal Filter As Variant, _ Optional ByVal FilterIndex As Variant, _ Optional ByVal DefaultExt As Variant, _ Optional ByVal Filename As Variant, _ Optional ByVal DialogTitle As Variant, _ Optional ByVal hWnd As Variant, _ Optional ByVal OpenFile As Variant) As Variant Dim ofn As tagOPENFILENAME Dim strFilename As String Dim strFileTitle As String Dim fResult As Boolean Dim strErrNotes As String On Error Go