セッションの初期化

 

Private Session As LANSA_ACTIVEX_LIB.ISession


Private Sub ConnectToLansa( _
    ByVal username As String, _
    ByVal password As String))
Try

    ' Create the Session object
    Session = New LANSA_ACTIVEX_LIB.Session
    
    ' Set the session configuration file
    Session.ConfigFile = "./Session.cfg"

    ' Set the User and Password    
    Session.SetConnectParam("USER", username)
    Session.SetConnectParam("PSPW", password)
    
    ' Connect to LANSA
    Session.Connect
    
      Catch ex As Exception
            MessageBox.Show("Exception :" + ex.Message)
End Try

 

End Sub