我有一些代码依赖于一个相对较小的MS Jet数据库(在Access中创建)。我们的源代码控制过程远未达到应有的水平(这是一个需要立即解决的问题),我们现在有两个相同数据库的版本。编辑“另一个”版本的人已经离开,无法为我提供他所做更改的提示。那么,找到两个数据库版本中实际数据的差异的最佳方法是什么?
我有一些代码依赖于一个相对较小的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
有一些工具可以做到这一点,例如:http://www.fmsinc.com/MicrosoftAccess/DatabaseCompare.html
或者您可以查看创建/修改日期,以查看是否能够提供线索(将数据库窗口更改为显示详细信息)
或者您可以运行“工具/分析/文档生成器”并查看对象属性。