database - Enterprise Architect 数据的自动备份

Question

我们将 Enterprise Architect 用于我们的模型，它使用数据库来保存其所有数据。我们现在需要每天“转储”数据，以便我们可以将其存储在我们的配置管理系统中。是否有捷径可寻？

Answer 1

对此没有特定的内置函数。EA 有几个版本控制选项，但它们基于包，而不是整个项目。

（顺便说一句，不建议将外部版本控制系统与数据库存储的 EA 项目结合使用，因此除非您完全确定自己在做什么，否则不要从该路径开始；请改用 EA 的基线。）

使用“项目转移”功能（在工具 - 数据管理下）手动转储项目很容易。这允许您将整个项目从数据库传输到 .EAP 文件（以及其他三个组合）。该过程通常需要不到一分钟的时间。

此功能在 EA API (Project::ProjectTransfer) 中也可用，因此如果您想自动化它，您可以这样做。在之前的工作中，我设计并实现了一个版本控制解决方案，其中这是一个组件，所以它可以完成，甚至没有那么难。

Answer 2

这可能是旧的，但记录一些来自 Geert Bellekens 的 VBScript 示例代码

sub main

Dim CurrentDate
Currentdate = Replace(Date, "/", "-") 

dim repository
dim projectInterface
set repository = CreateObject("EA.Repository")

Dim FileName
Filename = "EA_Export.eap"

dim LogFilePath
LogFilePath = "C:\EA\EA_to_EAP.log"

dim TargetFilePath
TargetFilePath = "C:\EA\EA_Export.eap"

dim eapString
eapString = "EAConnectString:DB_EA_PROD --- DBType=1;Connect=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_EA_PROD;Data Source=BESQLCP;LazyLoad=1;"

'get project interface
set projectInterface = repository.GetProjectInterface()

projectInterface.ProjectTransfer eapString, TargetFilePath, LogFilePath

'repository.CloseFile
repository.Exit 

Dim newFilename 
newFilename = "C:\EA\EAP_Files\EA_Export_" & CurrentDate & ".eap"

Dim Fso
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")
Fso.MoveFile "C:\EA\EA_Export.eap", newFileName

end sub

main

引用自：http ://sparxsystems.com/forums/smf/index.php/topic,37635.msg235329.html#msg235329