How to set accpac session using Accpac COMAPI?


Create the session using Accpac Session manager and we should to give Application id, Application Version ,Program name and one important thing We should Create object handle to open accpac Session.



'Global Variables

Dim mSession as New AccpacSession
Dim Sessionmgr as new AccpacSessionManager
Dim ObjectHand as String
Dim mDbLink as AccpacDBLink

'Open Session:
Private sub Form_Load()

'Open Session
With SessionMgr
.AppId="XX"
.AppVersion="56A"
.ProgramName="XX1000"
.ServerName=""
.CreateObjectHandle(ObjectHand,0,mSession)
End With

If mSession.isOpened then

Set mDbLink=mSession.OpenDBLink(DBLinkType.Company,DBLinkFlags.ReadWrite)


End if

'Initialize Views

With adsView1
if .Active=false then
.DBLink=mDbLink
.Active=true
End if
End With

With adsView2
if .Active=false then
.DBLink=mDbLink
.Active=true
End if
End With


With adsView3
if .Active=false then
.DBLink=mDbLink
.Active=true
End if
End With


With adsView4
if .Active=false then
.DBLink=mDbLink
.Active=true
End if
End With

End Sub


Comments

No responses found. Be the first to comment...


  • Do not include your name, "with regards" etc in the comment. Write detailed comment, relevant to the topic.
  • No HTML formatting and links to other web sites are allowed.
  • This is a strictly moderated site. Absolutely no spam allowed.
  • Name:
    Email: