Tengo la conexión correcta:
Public Function Conectar() As Boolean
Try
Empresa.Server = "SERVERSAPBO"
Empresa.DbServerType = BoDataServerTypes.dst_MSSQL2012
Empresa.UseTrusted = False
Empresa.DbUserName = "sa"
Empresa.DbPassword = "SAPB1Admin@@"
Empresa.CompanyDB = "Elsabor"
Empresa.UserName = "manager"
Empresa.Password = "170205"
Empresa.LicenseServer = "SERVERSAPBO:30000"
Dim ret As Integer = Empresa.Connect()
Dim errMsg As String = Empresa.GetLastErrorDescription()
Dim ErrNo As Integer = Empresa.GetLastErrorCode()
If ErrNo = 0 Then
Return True
Else
Return False
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Pero no entiendo estas 3 líneas de código, explíquenmela por favor, para que sirven y en que momento las uso.
Dim ret As Integer = Empresa.Connect()
Dim errMsg As String = Empresa.GetLastErrorDescription()
Dim ErrNo As Integer = Empresa.GetLastErrorCode()