[求助]如何用代码把一个MDB文件生成MDE[已解决]

andymark

      怎样才能在一个MDE或MDB文件,把另一个MDB生成mde 文件

     Function GenerateMDEFile(MyPath As String)

   Dim NAcc As Access.Application

   Set NAcc = CreateObject("Access.Application")

   'The following lines simulate accepting the default
   'name, clicking Make MDE, and clicking Save
   SendKeys MyPath & "{Enter}{Enter}"
   SendKeys "{Enter}"

   NAcc.DoCmd.RunCommand acCmdMakeMDEFile

   Set NAcc = Nothing

End Function


在microsoft找到的文章,试验不成功

原文:http://support.microsoft.com/kb/202039/en-us

[此贴子已经被作者于2007-2-9 17:46:59编辑过]

hi-wzj

可以呀？

是否因为您测试用的mdb版本和您所使用的版本不相同？

比如2003版默认保存的是2000版格式的文件，需要升级为2003版的才可以生成mde文件。

andymark

   我把保存格式转换成2003后还是不行

   

andymark

    用下面代码已解决:

     Dim accessApplication As Access.Application
     Set accessApplication = New Access.Application

    With accessApplication
        .SysCmd 603, sourceDB, targetDB
   End With


   Set accessApplication = Nothing

qlm

[em17]怎么想出来的

有没有mde->mdb的方法

一点通

又多了一个生成MDB的方法,谢谢分享

zzcjp

不行啊，运行到：.SysCmd 603, sourceDB, targetDB 提示非法函数调用