代码将Access数据库mdb文件生成mde的通用函数

代码将Access数据库mdb文件生成mde的通用函数

正常将accdb生成accde, 将mdb生成mde, 需要手工另存，生成为 accde或mde格式

但有否使用代码的方式来自动实现这个功能，我们的Access通用开发平台就实现了自动发布，其主要的核心功能就是用代码自动编绎并生成mde文件。下面是tanhong版主提供的函数：

***********************************************
'函数功能：MDB转MDE自定义函数
'函数变量：DestinationFile字符串变量,目的文件
'         SourceFile字符串变量,源文件
'         AccApp应用程序对象变量
'应用实例：MakeMDE "C:\a.mdb", "C:\b.mde"

'***********************************************
Public Function MakeMDE(SourceFile As String, _
                        DestinationFile As String, _
                        Optional AccApp As Application) As Boolean

    Set AccApp = New Access.Application
        AccApp.SysCmd 603, SourceFile, DestinationFile
    Set AccApp = Nothing
End Function

Access示例源码下载： mdb生成mde