IFS do not provide COM Access Provider API from IFS Applications 9. .NET Access Provider is the recommended client based access provider in IFS. However, for COM client users IFS has provided an option to access .NET Access Provider while using a COM client. Access provider type libraries are delivered with each client binary patch and you could easily download and install them.
Inside the Enterprise Explorer binary patch there is a msi file as "IFS .NET Access Provider.msi". Double click on the file, select an installation location and select the option "NET Access provider Extension for COM clients".
Please note that .NET Access Provider dlls are also downloaded when you select this option. You also have the option to install only the .NET Access Provider dlls by selecting the ".NET Access Provider" feature.
An example of using .NET Access Provider from a COM language is as follows.
Option Explicit
Sub Main() Dim conn As New FndConnection conn.ConnectionString = "lkppde1045:58080" conn.SetCredentials "alain", "alain" conn.CatchExceptions = False Dim oTxtAttr As New FndTextAttribute oTxtAttr.SetValue ("A%")
Dim oBindVar As New FndBindVariable oBindVar.Direction = FndBindVariableDirection.FndBindVariableDirection_In oBindVar.Name = "DESC" Set oBindVar.Value = oTxtAttr
Dim oCmd As New FndPLSQLSelectCommand oCmd.CommandText = "SELECT * FROM FND_USER WHERE DESCRIPTION LIKE :DESC" Set oCmd.Connection = conn oCmd.BindVariables.Add oBindVar
Dim oTable As FndDataTable Dim oRow As FndDataRow
Set oTable = oCmd.ExecuteReader_3("FND_USER")
Dim sMsg As String Dim intCounter As Integer Dim oDesAttr As FndTextAttribute For intCounter = 0 To oTable.Rows.Count - 1 Set oRow = oTable.Rows.Item(intCounter) Set oDesAttr = oRow.Item(1) sMsg = sMsg & oDesAttr.ToString() & vbCrLf Next ' Show message MsgBox sMsg
End Sub