我的代码依赖于相对较小的MS Jet(在Access中创建)数据库。我们的源代码控制流程远不是它应该/应该的所有(这是一个需要立即解决的问题)而且我们最终得到了同一个数据库的两个版本。编辑“其他”的人版本不再给我提示他改变了什么。找到两个版本数据库中包含的实际数据差异的最佳方法是什么?

有帮助吗?

解决方案

将所有表单和模块输出到文本文件并使用文本比较实用程序。

例如:

Sub ToText()
Dim frm, mdl

For Each frm In CurrentProject.AllForms
    Application.SaveAsText acForm, frm.Name, "c:\docs\" _ 
        & frm.Name & ".txt" 

'SO格式化

Next

For Each mdl In CurrentProject.AllModules
    Application.SaveAsText acModule, mdl.Name, "c:\docs\" _
        & mdl.Name & ".txt"

'SO格式化

Next
End Sub

其他提示

Ther是可以这样做的工具: http://www.fmsinc.com/ MicrosoftAccess / DatabaseCompare.html

或者您可以查看创建/修改日期以查看是否为您提供了线索(更改数据库窗口以显示详细信息)

或者您可以运行Tools / Analyze / Documenter并查看对象属性。

我已经创建了一个应用程序,允许在两个Microsoft Access文件(mdb或accdb)之间比较和导入/导出数据库对象。它被称为“AccdbMerge”。并可在此处下载: https://sites.google.com/site/accdbmerge/

基本上,它自动化Remou提供的方法

许可以下: CC-BY-SA归因
不隶属于 StackOverflow
scroll top