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

2017-08-22 10:06:00
tanhong
原创
217

代码将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

分享