从MS Access DB中提取源代码

我有一个Access DB，我想从中提取源代码，所以我可以把它放到Source控件中。

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

代码中有140个表单和模块（不要问，这是我inheritance的遗留系统），但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。 谢谢。

Answer 1

有一个更好的办法。 您可以使用Visual Sourcesafe（以及可能的其他SCC）来控制代码和对象的版本：请参阅此MSDN文章

Answer 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

Answer 3

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

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

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

它也适用于查找字段或控件的所有引用，无论它们位于何处。 将Access对象视为文本定义使得查找这些引用变得简单。

Answer 4

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

在MS Access上与多个程序员一起工作