Skip to Content
0
Jun 14, 2020 at 04:33 AM

Connection of DI API to SAP Business One Hana is Failed

4202 Views Last edit Jun 14, 2020 at 05:12 AM 2 rev

Hello All,

I am trying to develop an application to connect to a remote instance of SAP B1 Hana. The application will perform some queries. The queries will select data from staging schema in hana database and then the data will be used to create invoice a/r in the sap b1 hana. The linux server is SLES 11.4, Hana db is SAP Hana 1.0 and sap b1 9.2 Hana. I have set a connection but the connection is failed. The error message is The specified resource name cannot be found in the image file.

I have deleted SM_OBS_DLL, reinstalling sap B1 9.2 hana, disabling the firewall and reinstalling Hana Client x64 and x86

Another errors when I am debugging the source code is:

1. Application : Write only properties are not supported

2. Company Name : {"Attempted to read or write protected memory. This is often and indication that other memory is corrupt"}

3. DTCTTransactonObject: {"You are not connected to a company"}

4. InTransaction : {"You are not connected to a company"}

5. Connecte : False

please help me to resolve this error.
Here is the code I am using

Public Function ConnectSAP() As Integer
        Dim iError As Integer
        Dim sErrMsg As String = ""
        Try
           If oCompany.Connected = False Then
                oCompany.Server = "77.111.222.99:30015"
                oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_HANADB
                oCompany.DbUserName = sSAPDbUserName
            oCompany.DbPassword = sSAPDbPassword
            oCompany.UseTrusted = "False"
            oCompany.CompanyDB = sSAPDbName
            oCompany.UserName = sSAPUserName
            oCompany.Password = sSAPUserPassword
                oCompany.SLDServer = "77.111.222.99:40000"
                oCompany.LicenseServer = "77.111.222.99:40000"
           
            iError = oCompany.Connect()
            If iError <> 0 Then
                oCompany.GetLastError(iError, sErrMsg)
                MsgBox(sErrMsg)
            Else
                sErrMsg = "Connected to SAP B1 Hana Database - " & sSAPDbName
            End If
            Else
            sErrMsg = "SAP B1 already connected to - " & sSAPDbName
            End If

            Return iError
        Catch ex As Exception
            Return iError
        End Try
    End Function