ASPEN V7.1以上企业数据库修复方法

lthy007 · 发表于 1970-1-1 08:00:00

测试已修复ASPEN V7.1的企业数据库连接，7.1以上的由于没有安装过，如果连接有问题，应该也可以借鉴本方法修改。
本方法是研究本站发布的V7.0的企业数据库修改文件得到的V7.1修改文件。
V7.0企业数据库连接修改文件”regenerate config.aem“，用记事本打开后，内容如下：
'*************************************************************
'*
'*  Function: Regenerate config.aem file
'*
'*  Purpose: If you change your computer name after installing AES products,  you can run this vbs to regenerate the config.aem to use APED.
'*
'* Revision History:
'*************************************************************

Dim DBarray(2)
DBarray(0) = "APV70"
DBarray(1) = "NISTV70"
DBarray(2) = "FACTV70"

Dim DBUser : DBUser = "apeduser"
Dim DBPWD  : DBPWD  = "Aprop100"

set ws=createobject("wscript.shell")
set wenv=ws.environment("process")
dim COMPUTERNAME: COMPUTERNAME=wenv("computername")

Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
dim SQLINSTANCE: SQLINSTANCE=OperationRegistry.RegRead("HKLM\SOFTWARE\AspenTech\APED\23.0\InstanceUsed")

Set  myConfigInstaller  = CreateObject("AspenTech.APED.AspenProperties.CConfigFileInstaller")
call myConfigInstaller.InstallConfigurationFile(""& DBarray(0) &";"& DBarray(1) &";"& DBarray(2) &"", DBUser, DBPWD, COMPUTERNAME, Trim(SQLINSTANCE))

MsgBox "+++ config.aem regenerated."

将其中
            DBarray(0) = "APV70"
DBarray(1) = "NISTV70"
DBarray(2) = "FACTV70"
修改为    DBarray(0) = "APV71"
DBarray(1) = "NISTV71"
DBarray(2) = "FACTV71"

其中的dim SQLINSTANCE: SQLINSTANCE=OperationRegistry.RegRead("HKLM\SOFTWARE\AspenTech\APED\23.0\InstanceUsed")，我认为23.0应该是V7.1的版本号，V7.0应该是22.0，故在V7.1的修改文件中未作修改。
   修改后保存（原V7.0的文件在修改前要先做好备份），运行后，在V7.1 的Database configuration Tester改回第一个选项，运行ASPEN PLUS，没有报告找不到企业数据库的错误，在组分输入下点find，弹出的界面恢复到能够调用企业数据库的正常界面，证明成功实现修复。

ASPEN V7.1以上企业数据库修复方法

相关帖子