A client recently had their ACCPAC 5.5 moved and upgraded to Sage 300 v2016. Now I'm getting an error on the last line:
accSession.Init "", "AS", "AS1000", "60A"
accSession.Open "ADMIN", "xxx", "CBCRA", Date, 0, ""
MsgBox accSession.AppVersion
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkCmpRW = accSession.OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkSysRW = accSession.OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READWRITE)
The error is: "Application version does not match activated data of company database."
accSession.AppVersion returns 60A so I'm not sure what's wrong?
accSession.Init "", "AS", "AS1000", "60A"
accSession.Open "ADMIN", "xxx", "CBCRA", Date, 0, ""
MsgBox accSession.AppVersion
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkCmpRW = accSession.OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkSysRW = accSession.OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READWRITE)
The error is: "Application version does not match activated data of company database."
accSession.AppVersion returns 60A so I'm not sure what's wrong?