从 MS Access 数据库中提取源代码

Posted 2023-04-19

【中文标题】从 MS Access 数据库中提取源代码

【英文标题】：Extracting Source Code from an MS Access DB

【发布时间】：2008-10-13 14:38:16

【问题描述】：

我有一个 Access DB，我想从中提取源代码，以便将其放入源代码控制中。

我尝试使用主互操作程序集 (PIA) 提取数据，但我遇到了问题，因为它没有提取所有模块和表单。

代码中有 140 个表单和模块（别问，这是我继承的遗留系统），但 PIA 代码只提取了其中的 91 个。

这是我正在使用的代码。

using System;
using Microsoft.Office.Interop.Access;

namespace GetAccesSourceFiles

    class Program
    
        static void Main(string[] args)
        
            ApplicationClass appClass = new ApplicationClass();
            try
            
                appClass.OpenCurrentDatabase("C:\\svn\\projects\\db.mdb",false,"");

                Console.WriteLine(appClass.Version);
                Console.WriteLine(appClass.Modules.Count.ToString());
                Console.WriteLine(appClass.Modules.Parent.ToString());

                int NumOfLines = 0;
                for (int i = 0; i < appClass.Modules.Count; i++)
                
                    Console.WriteLine(appClass.Modules[i].Name + " : " + appClass.Modules[i].CountOfLines);
                    NumOfLines += appClass.Modules[i].CountOfLines;
                

                Console.WriteLine("Number of Lines : " + NumOfLines);
                Console.ReadKey();
            
            catch(Exception ex)
            
                Console.WriteLine(ex.Message + "\r\n" +ex.StackTrace);
            
            finally
            
                appClass.CloseCurrentDatabase();
                appClass.Quit(AcQuitOption.acQuitSaveNone);
            

        
    

对可能缺少的代码有什么建议吗？或者在可以为我做到这一点的产品/工具上？

编辑： 我还应该提到，这需要将脚本写入磁盘，与 VSS 集成不是一个选项，因为我们的源系统是 SVN。谢谢。

【问题讨论】：

另见***.com/questions/247292/…

【参考方案1】：

有更好的方法。您可以使用 Visual Sourcesafe（可能还有其他 SCC）来对代码和对象进行版本控制：请参阅MSDN article

【讨论】：

嗨米奇，对不起，我应该提到这一点。我们的源代码控制在内部是 SVN，我查看了 VSS 工具，但它确实需要可编写脚本到文件夹，以便我可以将其提交给 SVN。不过感谢您的回答:-)

作为最后的手段，你能把你所有的 Access 开发放到 VSS 中吗？

VSS 可能更好，但如果不可能，Mitch 提供的 URL 是您最好的选择。您将使用 .SaveAsText 将 Forms/Reports/Modules 的定义写到文件系统中，它们可以由 SVN 管理。它可以通过 VBScript 使用 COM 自动化来完成。

在使用临时脚本之前，我仍然会尝试为 SVN 找到一个 MSSCCI 适配器，看看它是否可以与 MS Access 一起使用。例如，我会查看daveswebsite.com/software/tamtamsvn/index.shtml 以及通过谷歌搜索 MSSCCI 和 SVN/Subversion 可以找到的任何其他内容。

【参考方案2】：

这可能会有所帮助：

    Sub AllCodeToDesktop()
       'The reference for the FileSystemObject Object is Windows Script Host Object Model
       'but it not necessary to add the reference for this procedure.

       Dim fs As Object
       Dim f As Object
       Dim strMod As String
       Dim mdl As Object
       Dim i As Integer

       Set fs = CreateObject("Scripting.FileSystemObject")

       'Set up the file.
       Set f = fs.CreateTextFile(SpFolder("Desktop") & "\" _
         & Replace(CurrentProject.Name, ".", "") & ".txt")

       'For each component in the project ...
       For Each mdl In VBE.ActiveVBProject.VBComponents
           'using the count of lines ...
           i = VBE.ActiveVBProject.VBComponents(mdl.Name).CodeModule.CountOfLines
           'put the code in a string ...
           If VBE.ActiveVBProject.VBComponents(mdl.Name).codemodule.CountOfLines > 0 Then
              strMod = VBE.ActiveVBProject.VBComponents(mdl.Name).codemodule.Lines(1, i)
           End If
           'and then write it to a file, first marking the start with
           'some equal signs and the component name.
           f.writeline String(15, "=") & vbCrLf & mdl.Name _
               & vbCrLf & String(15, "=") & vbCrLf & strMod
       Next

       'Close eveything
       f.Close
       Set fs = Nothing
   End Sub

   Function SpFolder(SpName As String)
   'Special folders
       SpFolder = CreateObject("WScript.Shell").SpecialFolders(SpName)
   End Function  

发件人：http://wiki.lessthandot.com/index.php/Code_and_Code_Windows

【讨论】：

如果您在 Access 中运行它，在我看来，遍历 Forms、Reports 和 Modules 集合并使用 Application.SaveAsText 编写代码（和完整形式）会更有意义定义，实际上）输出到文件系统。这将消除对 FSO 的需求。

将所有代码写到一个文件中很方便，无需遍历每个集合。结果文本可用于比较来自两个可能相同的数据库/前端的代码。

【参考方案3】：

您可以使用未记录的 Application.SaveAsText 和 Application.LoadFromText 函数。 SaveAsText 适用于模块、表单和报告；当您将表单或报表另存为文本时，其模块代码将出现在生成的文本文件的底部。

您可以编写一个例程，将 Access MDB（或 ADP）中的所有非数据对象保存为文本，将其放入模块中，然后将该模块保留在 Access DB 的开发版本中。然后您可以运行例程并检查 VSS 中的转储代码。

它可能不如 Mitch Wheat 描述的 Visual SourceSafe 方法优雅，但这取决于您想对源代码做什么。我倾向于使用 MDB 的多个版本，并使用这种方法使用差异工具（例如 WinMerge）比较它们之间的源代码。它有利于在开发分支之间移植功能。

它还可以很好地定位对字段或控件的所有引用，无论它们在哪里。将 Access 对象视为文本定义使得查找这些引用变得非常简单。

【参考方案4】：

您可能还想看看他的问答：

Working with multiple programmers on MS Access