How to read and write data to a user defined table?

Question

I have created a srf with 2 edit box and a ok buttin, I want to insert data to the user defined table i created using sql query while i press OK button..
Please provide the complete code to insert and select da from the user defined table.

Answer 1

Hi,
You can use the code below.
Dim ret As Long
d
Private Sub Add_Table_Click()
    Dim oUserTablesMD As SAPbobsCOM.UserTablesMD
    Set oUserTablesMD = oCompany.GetBusinessObject(oUserTables)
    ' When adding user tables or fields, use a prefix
    ' identifying your partner name space. This will
    ' prevent collisions from different partner add-ons
    ' SAP's name space prefix is "BE_"
    'Set the two mandatory fields
    oUserTablesMD.TableName = "T1"
    oUserTablesMD.TableDescription = "Table1"
    'Add the table (which contains 2 default, mandatory fields, 'Code' and 'Name')
    ret = oUserTablesMD.Add
    If ret <> 0 Then
        oCompany.GetLastError ret, Str
        MsgBox Str
    Else
        MsgBox "Table: " & oUserTablesMD.TableName & " was added successfully"
    End If
End Sub
Private Sub Add_UDF_Click()
    Dim oUserFieldsMD As SAPbobsCOM.UserFieldsMD
    Set oUserFieldsMD = oCompany.GetBusinessObject(oUserFields)
    oUserFieldsMD.TableName = "T1"
    oUserFieldsMD.Name = "AlbUDF"
    oUserFieldsMD.Description = "Albert UDF"
    'Add the field to the table
    lRetCode = oUserFieldsMD.Add
    If lRetCode <> 0 Then
        oCompany.GetLastError ret, Str
        MsgBox Str
    Else
        MsgBox "Field: '" & oUserFieldsMD.Name & "' was added successfuly to " & oUserFieldsMD.TableName & " Table"
    End If
End Sub
Private Sub Add_Data_Click()
    Dim oUserTable As SAPbobsCOM.UserTable
    Set oUserTable = oCompany.UserTables.Item(1)
    oUserTable.GetByKey ("T1")
    'Set default, mandatory fields
    oUserTable.Code = "A"
    oUserTable.Name = "Albert"
    'Set user field
    oUserTable.UserFields.Fields.Item("U_AlbUDF").Value = "1"
    oUserTable.Add
    If ret <> 0 Then
        oCompany.GetLastError ret, Str
        MsgBox Str
    Else
        MsgBox "Value to field: '" & oUserTable.UserFields.Fields.Item("U_AlbUDF").Name & "' was updated successfuly to " & oUserTable.TableName & " Table"
    End If
End Sub
Regards,
Noor