|
本帖最后由 tanhong 于 2010-3-11 18:33 编辑
- ***********************************************
- '函数功能: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
复制代码
演示实例: |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|