Attach User define tables and view table need add to database into my add-o

Question

Hi there,
I want to deploy an addon, there are User define tables and view table need add to database.
I need some advice on some issues..
1. Can I attach User define tables and view table need add to database into my addon.
2. I wonder which chance is properly to add them, if add these user define objects in time of install and I can't get the enough information that connect to SQL server
Thanks for any help.

Answer 1

Hi Weerachai,
Here's an example of how to create a user-defined table in code. My suggestion would be to check if it exists when your add-on starts up and then if not, create the tables, fields and objects.
'User Table
    Private Sub CreateTable(ByVal sTable As String, ByVal sDescription As String, ByVal oObjectType As SAPbobsCOM.BoUTBTableType)
        Dim oUserTablesMD As SAPbobsCOM.UserTablesMD
        Dim iResult As Long
        Dim sMsg As String
        oUserTablesMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserTables)
        If Not oUserTablesMD.GetByKey(sTable) Then
            oUserTablesMD.TableName = sTable
            oUserTablesMD.TableDescription = sDescription
            oUserTablesMD.TableType = oObjectType
            iResult = oUserTablesMD.Add()
            If iResult <> 0 Then
                oCompany.GetLastError(iResult, sMsg)
                MessageBox.Show("Error Creating Table: " & sTable & " Error: " & sMsg)
            End If
        End If
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserTablesMD)
    End Sub
'User Field
    Private Sub CreateField(ByVal sTable As String, ByVal sName As String, ByVal sDescription As String, _
                            ByVal iSize As Integer, ByVal aFieldType As SAPbobsCOM.BoFieldTypes, _
                            ByVal aSubType As SAPbobsCOM.BoFldSubTypes, ByVal sLink As String, _
                            ByVal bMandatory As SAPbobsCOM.BoYesNoEnum)
        Dim oUserFieldsMD As SAPbobsCOM.UserFieldsMD
        Dim oTable As SAPbobsCOM.UserTable
        Dim iResult As Long
        Dim sMsg As String
        Dim i As Integer
        Dim x As Integer
        Dim bFound As Boolean = False
        Dim oField As SAPbobsCOM.Field
        oTable = oCompany.UserTables.Item(sTable)
        For i = 0 To oTable.UserFields.Fields.Count - 1
            oField = oTable.UserFields.Fields.Item(i)
            'MessageBox.Show(oField.Name)
            If oField.Name = "U_" & sName Then
                bFound = True
            End If
        Next
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oTable)
        If Not bFound Then
            oUserFieldsMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
            oUserFieldsMD.TableName = "@" & sTable
            oUserFieldsMD.Name = sName
            oUserFieldsMD.Description = sDescription
            oUserFieldsMD.Type = aFieldType
            If aFieldType = SAPbobsCOM.BoFieldTypes.db_Alpha Or aFieldType = SAPbobsCOM.BoFieldTypes.db_Numeric Then
                oUserFieldsMD.EditSize = iSize
            Else
                oUserFieldsMD.SubType = aSubType
                oUserFieldsMD.Mandatory = bMandatory
            End If
            oUserFieldsMD.LinkedTable = sLink
            iResult = oUserFieldsMD.Add()
            If iResult <> 0 Then
                oCompany.GetLastError(iResult, sMsg)
                MessageBox.Show("Error Creating Field: " & sTable & "." & sName & " Error: " & sMsg)
            End If
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserFieldsMD)
        End If
    End Sub
If you want to create a View I think you would have to use the RecordSet object. This will ensure that you don't have to log in to the database again
Hope it helps,
Adele