Unable to connect to a Company

45 Views

Hi

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim oCompany As SAPbobsCOM.Company
Dim lRetCode, lErrCode As Long
Dim sErrMsg As String
'Instantiate a Company object
oCompany = New SAPBobsCOM.Company
oCompany.Server = "localhost"
oCompany.CompanyDB = "XYZ"
oCompany.UserName = "manager"
oCompany.Password = "manager"
oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2008

'Please note: Log on to SAP Business One with password

lRetCode = oCompany.Connect()
If oCompany.Connected = True Then
MsgBox(oCompany.CompanyName)
Else
MsgBox("No Conneccted")

End If

'Check Return Code
If lRetCode <> 0 Then
oCompany.GetLastError(lErrCode, sErrMsg)
End If
End Sub
End Class

Thanks