Previous Topic

Next Topic

Inhoudsopgave

Book Index

Creating Application Object and Database Connection

Description

Application Object

Before you can use the Engineering Link, you have to create an Application Object. The Application object is the central portal for Engineering Link functionality. First of all, add a reference to the Engineering Link API in the Visual Basic project. Select "Isah Engineering Library" on the COM tab of the References in the project settings. You can now use functionality of the Engineering Link API.

Use the code below to create the Application object. By placing the object in a global variable you can use the object in other functions.

Dim oPDMLink As IPDMLink.Application

Set oPDMLink = new IPDMLink.Application

Integration Server

By creating an Application object an Integration Server object will be created and also there will be a check for licenses for both the applications. The Engineering Link only functions when the Integration server is present. The Integration Server object is available via the Engineering Link API. In order to use the Integration Server methods and properties you have to assign the object to a IERPLink.Application variable.

Dim oERPLink as IERPLink.Application

oERPLink = oPDMLink.ERPLink

Database Connection

Almost all Engineering Link functionality makes use of the Isah database and therefore an active database connection is required. The user must be logged in (in Isah and the database) to determine his rights. Apart from the Connect and Disconnect methods the Engineering Link has no login functionality, so the Connection object of the Integration Server should be used for logging in. The login can be performed with or without a login form: either the login data can be entered in advance or entered by the user. You can find an example of both situations below. When the login data are correct and valid the database connection will be created.

Logging in Without a Login Form

oPDMLink = New IPDMLink.Application

oERPLink = oPDMLink.ERPLink

oERPLink.Connection.DatabaseAliasname = "DemoDB"

oERPLink.Connection.Username = "Guest"

oERPLink.Connection.Password = ""

oERPLink.Connection.ShowLoginDialog = False

oERPLink.Connection.Connect()

Logging in With a Login Form

oPDMLink = New IPDMLink.Application

oERPLink = oPDMLink.ERPLink

oERPLink.Connection.Connect()

The default value for ShowLoginDialog is TRUE, so in the example above the login form will be showed in which the user can enter Administration, Name and Password. When the user clicks the OK button, the database connection will be created. You can check this by retrieving the Connected property.

If oERPLink.Connected then

MsgBox "Connected with the database."

Else

MsgBox "No connection with the database."

End If