Siebel Object Interfaces Reference > Customizing Siebel Object Interfaces > Accessing a Siebel Object Interface >

Accessing the COM Data Server

This topic describes how to access the COM Data Server. For more information, see COM Data Server.

To access the COM Data Server

1. Install the Siebel Mobile Web Client.

   Siebel CRM installs the COM Data Server by default when you install the Siebel Mobile Web Client.

2. In the Siebel application configuration (CFG) file, set the DataSource parameter to the Siebel database where Siebel CRM must connect.
3. Start Microsoft Visual Basic.
4. Choose Standard EXE.
5. Choose the Project menu, and then the References menu item.
6. In the References dialog box, in the Available References window, click Siebel Data BusObject Interfaces.

   Do not add a check mark to the Siebel Data BusObject Interfaces.

7. In the Siebel Data BusObject Interfaces section, note the name of the folder that contains the sobjsrv.tlb file.
8. In the Available References window, make sure the Siebel Data BusObject Interfaces item contains a check mark, and then click OK.
9. Add the required code.

   For more information, see Example of Accessing the COM Data Server.

Example of Accessing the COM Data Server

The following example includes the code you use in Microsoft Visual Basic 6.0 to access the COM Data Server. You must write and run this code outside of Siebel Tools. For example, in Microsoft Visual Basic:

Private Sub Command1_Click()
'Siebel Application Object
Dim siebApp As SiebelApplication
Dim siebBusObj As SiebelBusObject
Dim siebBusComp As SiebelBusComp
Dim siebSvcs As SiebelService
Dim siebPropSet As SiebelPropertySet
Dim bool As Boolean
Dim errCode As Integer
Dim errText As String
Dim connStr As String
Dim lng As String
Dim cfgLoc As String

ChDrive "C"
ChDir "C:\Server\siebsrvr\bin"

'Create The COM Data Server Object
Set siebApp = CreateObject("SiebelDataServer.ApplicationObject")

If Not siebApp Is Nothing Then

'''COM Data Server
cfgLoc = " C:\Siebel\8.1\Server\BIN\ENU\siebel.cfg,ServerDataSrc"
siebApp.LoadObjects cfgLoc, errCode
If errCode = 0 Then
   'Log in to the Siebel Server
   siebApp.Login "username", "password", errCode
   If errCode = 0 Then
      'Creat A Business Object
      Set siebBusObj = siebApp.GetBusObject("Contact", errCode)
      If errCode = 0 Then
         'Create a Business Component
         Set siebBusComp = siebBusObj.GetBusComp("Contact")
   Else
      errText = siebApp.GetLastErrText
      siebApp.RaiseErrorText("Business Object Creation failed: " & errCode & "::" & errText);
   End If

   'Create A New Property Set
   Set siebPropSet = siebApp.NewPropertySet(errCode)
   If errCode = 0 Then
      Set siebPropSet = Nothing
   Else
      errText = siebApp.GetLastErrText
      siebApp.RaiseErrorText("Property Set Creation failed: " & errCode & "::" & errText);
   End If

   'Get A Siebel Service
   Set siebSvcs = siebApp.GetService("Workflow Process Manager", errCode)
   If Not siebSvcs Is Nothing Then
      Set siebSvcs = Nothing
   Else
      errText = siebApp.GetLastErrText
      siebApp.RaiseErrorText("Could not Get Siebel Service: " & errCode & "::" & errText);
   End If

   If Not siebBusComp Is Nothing Then
      Set siebBusComp = Nothing
   End If
   If Not siebBusObj Is Nothing Then
      Set siebBusObj = Nothing
   End If
Else
     errText = siebApp.GetLastErrText
     siebApp.RaiseErrorText("Login Failed: " & errCode & "::" & errText);
   End If
Else
   errText = siebApp.GetLastErrText
   siebApp.RaiseErrorText("Load Objects Failed: " & errCode & "::" & errText);
End If

Set siebApp = Nothing

End If

End Sub