GetByKey method
See Also
Description

The following example shows how to use GetByKey Method to load object data from database into object properties.
Private Sub cmdTest_Click()

   On Error GoTo ErrorHandler

   Dim vCompany As SAPbobsCOM.Company



   'create company object

   Set vCompany = New SAPbobsCOM.Company



   'set paras for connection

   vCompany.CompanyDB = "SBODemo_US"

   vCompany.Password = "manager"

   vCompany.UserName = "manager"

   vCompany.Server = "(local)"



   'connect to database server

   If (0 <> vCompany.Connect()) Then

      MsgBox "Failed to connect"

      Exit Sub

   End If



   Dim nErr As Long

   Dim errMsg As String



   'add an Journal entry

   Dim vJE As SAPbobsCOM.JournalEntries

   Set vJE = vCompany.GetBusinessObject(oJournalEntries)

   If (vJE.GetByKey(55) = True) Then

       vJE.Memo = "This's JE55"

       If (0 <> vJE.Update()) Then

           MsgBox ("Failed to update JE55")

       Else

           MsgBox ("Succeeded in updating JE55")

       End If

   End If



   'Check Error

   Call vCompany.GetLastError(nErr, errMsg)

   If (0 <> nErr) Then

       MsgBox ("Found error:" + Str(nErr) + "," + errMsg)

   End If



   'disconnect the company object, and release resource

   Call vCompany.Disconnect

   Set vCompany = Nothing

   Exit Sub

ErrorHandler:

   MsgBox ("Exception:" + Err.Description)

End Sub