Page History

[ Image Removed |../../index.htm#lansa/l4wdev07_0250.htm]
現在地:

...

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

...