cancel
Showing results for 
Search instead for 
Did you mean: 

Company connection

Former Member
0 Kudos

Hi xperts,

I got this code in tutorial, but how to run it in Visual Basic means stepwise how projects need to be created and etc?

Dim oCompany As SAPbobsCOM.Company

Dim lRetCode, lErrCode As Long

Dim sErrMsg as String

'Instanciate a Company object

oCompany = New SAPBobsCOM.Company

oCompany.Server = "(local)"

oCompany.CompanyDB = "SBODemo_US"

oCompany.UserName = "manager"

oCompany.Password = "manager"

oCompany.Language = ln_English

u2018Sample: E.g.use Windows Auth.(MSSQL only)

oCompany.UseTrusted = True

u2018Set AddOn identifier u2013 a long string with numbers; identifies

u2018your Add-On against License Service u2026 optional!

u2018oCompany.AddOnIdentifier = u201Cfill in your Add-On Identifier hereu201D

lRetCode = oCompany.Connect()

'Check Return Code

If lRetCode <> 0 Then

oCompany.GetLastError(lErrCode, sErrMsg)

End If

Accepted Solutions (0)

Answers (1)

Answers (1)

former_member206488
Active Contributor
0 Kudos

HI,

Post your question in SDK forum for quick replies:

Neetu